
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD>

<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">

<META content="MSHTML 6.00.2900.3243" name=GENERATOR>

<STYLE></STYLE>

</HEAD>

<BODY bgColor=#ffffff>

<DIV><FONT size=4>Hi</FONT></DIV>

<DIV><FONT size=4></FONT>&nbsp;</DIV>

<DIV><FONT size=4>I had written a program for plotting station-data by 

GrADS.</FONT></DIV>

<DIV><FONT size=4>It works OK&nbsp;on a DEC Alpha machine with F77 

compiler.</FONT></DIV>

<DIV>The 'open' line in my program is:</DIV>

<DIV><FONT size=4></FONT>&nbsp;</DIV>

<DIV><FONT size=4>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

open(13,file=file(3),status="unknown",form="unformatted",<BR>&nbsp;&nbsp;&nbsp;&nbsp; 

+&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; recordtype='stream')</FONT></DIV>

<DIV><FONT size=4></FONT>&nbsp;</DIV>

<DIV><FONT size=4>And I also declared the "station id" as:</FONT></DIV>

<DIV><FONT size=4>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; character*8 

sta1(1:stnn),sta2</FONT></DIV>

<DIV><FONT size=4></FONT>&nbsp;</DIV>

<DIV><FONT size=4>Mark Wang</FONT></DIV>

<DIV><FONT size=4><BR></FONT>&nbsp;</DIV>

<DIV><FONT size=4></FONT>&nbsp;</DIV>

<BLOCKQUOTE 

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

  <DIV style="FONT: 10pt &#26032;&#32048;&#26126;&#39636;">----- Original Message ----- </DIV>

  <DIV 

  style="BACKGROUND: #e4e4e4; FONT: 10pt &#26032;&#32048;&#26126;&#39636;; font-color: black"><B>From:</B> 

  <A title=zmumba@YAHOO.COM href="mailto:zmumba@YAHOO.COM">zilore mumba</A> 

  </DIV>

  <DIV><FONT face=&#26032;&#32048;&#26126;&#39636; size=2></FONT><FONT face=&#26032;&#32048;&#26126;&#39636; size=2></FONT><FONT 

  face=&#26032;&#32048;&#26126;&#39636; size=2></FONT><FONT face=&#26032;&#32048;&#26126;&#39636; size=2></FONT><FONT face=&#26032;&#32048;&#26126;&#39636; 

  size=2></FONT><FONT face=&#26032;&#32048;&#26126;&#39636; size=2></FONT><FONT face=&#26032;&#32048;&#26126;&#39636; 

  size=2></FONT><FONT face=&#26032;&#32048;&#26126;&#39636; size=2></FONT><FONT face=&#26032;&#32048;&#26126;&#39636; 

  size=2></FONT><BR></DIV>

  <DIV>&nbsp;program stndata</DIV>

  <DIV>&nbsp;implicit none</DIV>

  <DIV>&nbsp;&nbsp;&nbsp;&nbsp;integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

  :: i<BR>&nbsp;&nbsp;&nbsp; 

  integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :: 

  IYEAR,IMONTH,IYROLD,IMNOLD<BR>&nbsp;&nbsp;&nbsp; 

  integer&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :: 

  NFLAG,IFLAG,NLEV<BR>&nbsp;&nbsp;&nbsp;</DIV>

  <DIV>&nbsp;&nbsp; 

  &nbsp;real&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

  :: LAT,LON,RVAL,tim</DIV>

  <DIV>&nbsp;&nbsp;&nbsp;&nbsp; </DIV>

  <DIV>&nbsp;&nbsp;&nbsp; CHARACTER(len=4) :: STID<BR>&nbsp;&nbsp;&nbsp;&nbsp; 

  <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OPEN 

  (8,NAME='rainin.dat',status='old') <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

  OPEN (12,file='rainout.dat',FORM='BINARY',ACCESS='SEQUENTIAL')</DIV>

  <DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; !OPEN 

  (12,file='rainout.dat',form='unformatted',access='direct',recl=8*7)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

  <BR>&nbsp;&nbsp;&nbsp; IFLAG = 0 </DIV>

  <DIV>!&nbsp; Read and Write<BR>10&nbsp;&nbsp;&nbsp;&nbsp; READ (8,9000,END=90) 

  IYEAR,IMONTH,STID,LAT,LON,RVAL <BR>9000&nbsp;&nbsp; FORMAT 

  (1x,I4,2X,I1,2X,A3,3(2x,F5.1))</DIV>

  <DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IF (IFLAG.EQ.0) 

  THEN<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IFLAG = 1 

  <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IYROLD = 

  IYEAR<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IMNOLD = 

  IMONTH <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ENDIF </DIV>

  <DIV>!&nbsp; If new time group, write time group terminator. <BR>!&nbsp; 

  Assuming no empty time groups. 

  <BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IF 

  (IYROLD.NE.IYEAR.OR.IMNOLD.NE.IMONTH) THEN 

  <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NLEV = 

  0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

  write(12)stid,lat,lon,tim,nlev,nflag<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

  ENDIF<BR>&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

  IYROLD = IYEAR <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IMNOLD = IMONTH </DIV>

  <DIV>!&nbsp; Write this report <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; tim = 

  0.0 <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NLEV = 1 

  <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NFLAG = 

  1<BR>&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 

  write(12)stid,lat,lon,tim,nlev,nflag,rval</DIV>

  <DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; GOTO 10<BR>&nbsp;&nbsp;&nbsp; 

  <BR>!&nbsp; On end of file write last time group terminator. </DIV>

  <DIV>90&nbsp;&nbsp;&nbsp;&nbsp;CONTINUE 

  <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; NLEV = 

  0<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; 

  write(12)stid,lat,lon,tim,nlev,nflag</DIV>

  <DIV>&nbsp;&nbsp;&nbsp; close(12)<BR></DIV></BLOCKQUOTE></BODY></HTML>