<div dir="ltr"><div>I think you have a hidden  illegal character.<br></div>There is a &#39;dos&#39; character. Use dos2unix to eliminate the character. <br><div><br>ot there<br><br>%&gt; WRAPIT getlatlon.stub<br> <br>WRAPIT Version: 120209<br>A syntax error occurred while parsing: <br>LINKING<br>END WRAPIT<br><br> %&gt; dos2unix getlatlon.stub<br><br>dos2unix: converting file getlatlon.stub to Unix format ...<br><br>%&gt; WRAPIT getlatlon.stub<br> <br>WRAPIT Version: 120209<br>LINKING<br>END WRAPIT<br><br>+++++++++++++++<br></div><div>I do not know why you are reading in fortran.<br></div><div>It is easy in NCL<br>++++++++++++++++<br><br>  diri = &quot;./&quot;<br>  fili = &quot;station.txt&quot;<br><br>  ncol = 2<br>  nrow = numAsciiRow(diri+fili)  ; determine # or rows<br><br>  latlon = asciiread(diri+fili, (/nrow,ncol/), &quot;float&quot;)<br>  lat    = latlon(:,0)<br>  lon    = latlon(:,1)<br><br>  print(lat+&quot;  &quot;+lon)<br><br></div><div> <br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Mon, Dec 8, 2014 at 8:22 PM, 易路 <span dir="ltr">&lt;<a href="mailto:dg1225033@smail.nju.edu.cn" target="_blank">dg1225033@smail.nju.edu.cn</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><br>
----- 转发邮件 -----<br>
发件人: 易路 &lt;<a href="mailto:dg1225033@smail.nju.edu.cn">dg1225033@smail.nju.edu.cn</a>&gt;<br>
收件人: Dennis Shea &lt;<a href="mailto:shea@ucar.edu">shea@ucar.edu</a>&gt;<br>
已发送邮件: Tue, 09 Dec 2014 11:21:15 +0800 (CST)<br>
主题: 回复: Re: [ncl-talk] call Fortran in NCL<br>
<div class="HOEnZb"><div class="h5"><br>
Thanks very much for your remind of statements must starting in column 7, but it still show error:<br>
<br>
A syntax error occurred while parsing:<br>
COMPILING getlatlon.f90<br>
END WRAPIT<br>
<br>
would you please help me check it again? Thanks a lot!<br>
<br>
----- 原始邮件 -----<br>
发件人: Dennis Shea &lt;<a href="mailto:shea@ucar.edu">shea@ucar.edu</a>&gt;<br>
收件人: 易路 &lt;<a href="mailto:dg1225033@smail.nju.edu.cn">dg1225033@smail.nju.edu.cn</a>&gt;<br>
抄送: <a href="mailto:ncl-talk@ucar.edu">ncl-talk@ucar.edu</a><br>
已发送邮件: Tue, 09 Dec 2014 01:25:12 +0800 (CST)<br>
主题: Re: [ncl-talk] call Fortran in NCL<br>
<br>
Remember f77 requires that statements must start in column 7.<br>
<br>
Your SUBROUTINE statement started befor column 7.<br>
I&#39;ve made a 2nd stub file to illustrate how to include<br>
a more general CHARACTER declaration.<br>
<br>
===&gt; foo.stub<br>
<br>
C NCLFORTSTART<br>
      SUBROUTINE getlatlon (infile,nx,ny,ii,iilat,iilon)<br>
       CHARACTER*80 infile<br>
        INTEGER  nx,ny,ii<br>
        REAL iilat,iilon<br>
C NCLEND<br>
C NCLFORTSTART<br>
      SUBROUTINE getlatlon1(infile,nx,ny,ii,iilat,iilon)<br>
       CHARACTER*(*) infile<br>
        INTEGER  nx,ny,ii<br>
        REAL iilat,iilon<br>
C NCLEND<br>
<br>
=====<br>
<br>
WRAPIT foo.stub<br>
<br>
WRAPIT Version: 120209<br>
LINKING<br>
END WRAPIT<br>
<br>
<br>
<br>
On Mon, Dec 8, 2014 at 9:06 AM, 易路 &lt;<a href="mailto:dg1225033@smail.nju.edu.cn">dg1225033@smail.nju.edu.cn</a>&gt; wrote:<br>
<br>
&gt; Hi all,<br>
&gt; I want to call Fortran in NCL to read in data, but it shows errors while<br>
&gt; run WRAPIT, would you please help me find out the resons?<br>
&gt;<br>
&gt; error1 ,while WRAPTI getlatlon.stub getlatlon.f90,shows:<br>
&gt;         A syntax error occurred while parsing:<br>
&gt;         LINKING<br>
&gt;         END WRAPIT<br>
&gt;<br>
&gt; erro2, while run ncl getlatlon.ncl<br>
&gt;<br>
&gt;       warning:Could not find Init() in external file ./getlatlon.so, file<br>
&gt; not loaded<br>
&gt;       warning:error at line 2 in file getlatlon.ncl<br>
&gt;<br>
&gt;       fatal:syntax error: line 10 in file getlatlon.ncl before or near :<br>
&gt;        GETLATLON_SO:<br>
&gt;    ----------------^<br>
&gt;<br>
&gt; fatal:error in statement<br>
&gt; fatal:Syntax Error in block, block not executed<br>
&gt; fatal:error at line 16 in file getlatlon.ncl<br>
&gt; ***********fortran program**************<br>
&gt; subroutine getlatlon (infile,nx,ny,ii,iilat,iilon)<br>
&gt; implicit none<br>
&gt; character*80 infile<br>
&gt; integer:: nx,ny,ii,i,j<br>
&gt; real:: iilat, iilon<br>
&gt; real,allocatable::latlon(:,:)<br>
&gt;<br>
&gt; open(10,file=infile,status=&#39;old&#39;)<br>
&gt;<br>
&gt; allocate(latlon(nx,ny))<br>
&gt; do j=1,ny<br>
&gt;    read(10,*)(latlon(i,j),i=1,nx)<br>
&gt; end do<br>
&gt;<br>
&gt; iilat=latlon(1,ii)<br>
&gt; iilon=latlon(2,ii)<br>
&gt;<br>
&gt; close(10)<br>
&gt; return<br>
&gt; end subroutine<br>
&gt; *************************stub file************************<br>
&gt; C NCLFORTSTART<br>
&gt;     SUBROUTINE getlatlon (infile,nx,ny,ii,iilat,iilon)<br>
&gt;        CHARACTER*80 infile<br>
&gt;         INTEGER  nx,ny,ii<br>
&gt;         REAL iilat,iilon<br>
&gt; C NCLEND<br>
&gt;<br>
&gt; ********************NCL file********************************<br>
&gt;<br>
&gt; load &quot;$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl&quot;<br>
&gt; external GETLATLON_SO &quot;./getlatlon.so&quot;<br>
&gt;<br>
&gt; begin<br>
&gt; infile =&quot;./station.txt&quot;<br>
&gt; nx=2<br>
&gt; ny=60<br>
&gt; do ii=1,ny<br>
&gt;<br>
&gt;     GETLATLON_SO::getlatlon(infile,nx,ny,ii,iilat,iilon)<br>
&gt;     print(iilat)<br>
&gt;     print(iilon)<br>
&gt;<br>
&gt; end do<br>
&gt;<br>
&gt; end<br>
&gt; _______________________________________________<br>
&gt; ncl-talk mailing list<br>
&gt; List instructions, subscriber options, unsubscribe:<br>
&gt; <a href="http://mailman.ucar.edu/mailman/listinfo/ncl-talk" target="_blank">http://mailman.ucar.edu/mailman/listinfo/ncl-talk</a><br>
&gt;<br>
<br>
<br>
</div></div></blockquote></div><br></div>