[gradsusr] convert text at binary (program fortran)

[Carlos Batista]

Alexandre a linguagem é fortran...
Boa sorte e espero que ajude....



Carlos

c      parameter (12,58) ! Valores mensais do indice Oscilaçao do
Atlântico Norte para o periodo de 1950 até 2008. Sao valores mensais deste
indice e representa apenas um ponto de anaolise da pressão entre acoures e
(esqueci) o outro lugar.rsss
c      program vazao

        real ind(12,59),ind_a(59)

c obs: o simb & serve p/ pular contin inform que
c nao cabe na linha anterior!

      open(10,file='NAO.txt',status='old')
      open(20,file='naomes.bin',form='unformatted',
     &  access='direct',recl=1) !mes
      open(30,file='naoano.bin',form='unformatted',
     &  access='direct',recl=1) !ano
      open(35,file='naomes.txt',status='unknown')
      open(40,file='naoano.txt',status='unknown')

c       read(10,*)
       do i=1,59
c       ind_p(j)=0  !
c       cont=0
c       do j=1,12   !
       read(10,*)(ind(i,j),j=1,12)
       enddo

c     irec e jrec = valor dos n. reais!
      irec=0
      jrec=0
c     doh = contando da 1 ate a 59 linha!
      do i=1,59

c     ind_a(i) i=59 (linhas da tabela do txt),
c ind contador!
      ind_a(i)=0.
      do j=1,12
      irec=irec+1
c     write 20=escreve os dados de saida atraves
c dos dados de entrada (qualquer formato (*) do
c num rais dentro das linhas e colunas 12,59!
      write(20,rec=irec)ind(i,j)

c     = ao wite 20, apenas um destaque para o
c valor 100 q repres. um formato de saida em txt!
      write(35,100)ind(i,j)
      ind_a(i)=ind_a(i)+ind(i,j)
      enddo
      jrec=jrec+1   !
      write(30,rec=jrec)ind_a(i)
      write(40,100)ind_a(i)
      enddo

100   format(f6.2)
      stop
      end

2010/5/6 Alexandre Santos <puffy78 at gmail.com>

> Hello,
>
> Someone , have a program at fortran that convert data precipitation for
> binary (read grads), interpolation from 0.5 x 0.5 (graus).
>
> example
> lon               lat                      prec
> -35.4           -9.10                 10.4
> -35.9           8.60                   13.0
> -37.2           6.6                      14.7
>
> ......            .......                    ........
>
>
> matrix prec(61,87)
>
> Thanks very much
>
>
> Alexandre
>
> _______________________________________________
> gradsusr mailing list
> gradsusr at gradsusr.org
> http://gradsusr.org/mailman/listinfo/gradsusr
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://gradsusr.org/pipermail/gradsusr/attachments/20100506/84d96536/attachment-0003.html