<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:12pt"><div style="RIGHT: auto">Similar to you</div>
<div style="RIGHT: auto">you can use if you want bidimensinal to separate diferent month . Your varibles will be </div>
<div style="RIGHT: auto">temp (i,j) and read with a do us</div>
<div style="RIGHT: auto">do i= 1,n</div>
<div style="RIGHT: auto">do j=1,m</div>
<div style="RIGHT: auto">and write </div>
<div style="RIGHT: auto">write(2) <VAR id=yui-ie-cursor></VAR>((year(i),month(i),Stid(i),Lat(i),Lon(i),RaiN(i)),i=1,9),j=1,12)<BR></div>
<div style="RIGHT: auto">open (1,file="datascii.dat") <BR> open (2,file="datbinary",form="unformatted")<BR> do 17 i=1,9<BR> read(1,14)year(i),month(i),Stid(i),Lat(i),Lon(i),RaiN(i)<BR>14 format(i4,1x,i1,1x,a3,1x,F4.1,1x,F4.1,2x,5.1)<BR> Write(2)year(i),month(i),Stid(i),Lat(i),Lon(i),RaiN(i) <BR>17 continue <BR>' if you want one to one <BR>' if you want all together put firts</div>
<div style="RIGHT: auto">17 continue <BR>' and then <BR> write(2)(year(i),month(i),Stid(i),Lat(i),Lon(i),RaiN(i)),i=1,9)<BR></div></div></body></html>