[gradsusr] (no subject)

[Maria Elena Segura]

Similar to you
you can use if you want  bidimensinal to separate diferent month . Your varibles will be 
temp (i,j) and read with a do us
do i= 1,n
do j=1,m
and write  
write(2)  ((year(i),month(i),Stid(i),Lat(i),Lon(i),RaiN(i)),i=1,9),j=1,12)

open (1,file="datascii.dat") 
      open (2,file="datbinary",form="unformatted")
            do 17 i=1,9
   read(1,14)year(i),month(i),Stid(i),Lat(i),Lon(i),RaiN(i)
14     format(i4,1x,i1,1x,a3,1x,F4.1,1x,F4.1,2x,5.1)
         Write(2)year(i),month(i),Stid(i),Lat(i),Lon(i),RaiN(i) 
17     continue  
'    if you want one to one 
'    if you want all together put firts
17   continue 
'      and then    
        write(2)(year(i),month(i),Stid(i),Lat(i),Lon(i),RaiN(i)),i=1,9)
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://gradsusr.org/pipermail/gradsusr/attachments/20110817/2e355bd4/attachment-0003.html