[gradsusr] (no subject)

[Maria Elena Segura]

hi that is the solution
 
 
  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(28)(write(28)(year(i),month(i),Stid(i),Lat(i),Lon(i),RaiN(i)),i=1,9)
stop
end
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://gradsusr.org/pipermail/gradsusr/attachments/20110817/0774dd6c/attachment-0003.html