Alexandre a linguagem é fortran...<br>Boa sorte e espero que ajude....<br><br><br><br>Carlos<br><br>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<br>
c program vazao<br><br> real ind(12,59),ind_a(59)<br><br>c obs: o simb & serve p/ pular contin inform que<br>c nao cabe na linha anterior!<br><br> open(10,file='NAO.txt',status='old')<br>
open(20,file='naomes.bin',form='unformatted',<br> & access='direct',recl=1) !mes<br> open(30,file='naoano.bin',form='unformatted',<br> & access='direct',recl=1) !ano<br>
open(35,file='naomes.txt',status='unknown')<br> open(40,file='naoano.txt',status='unknown')<br><br>c read(10,*)<br> do i=1,59<br>c ind_p(j)=0 !<br>c cont=0<br>
c do j=1,12 !<br> read(10,*)(ind(i,j),j=1,12)<br> enddo<br><br>c irec e jrec = valor dos n. reais!<br> irec=0<br> jrec=0<br>c doh = contando da 1 ate a 59 linha!<br> do i=1,59<br>
<br>c ind_a(i) i=59 (linhas da tabela do txt),<br>c ind contador! <br> ind_a(i)=0.<br> do j=1,12<br> irec=irec+1<br>c write 20=escreve os dados de saida atraves<br>c dos dados de entrada (qualquer formato (*) do<br>
c num rais dentro das linhas e colunas 12,59! <br> write(20,rec=irec)ind(i,j)<br><br>c = ao wite 20, apenas um destaque para o<br>c valor 100 q repres. um formato de saida em txt!<br> write(35,100)ind(i,j)<br>
ind_a(i)=ind_a(i)+ind(i,j) <br> enddo<br> jrec=jrec+1 !<br> write(30,rec=jrec)ind_a(i)<br> write(40,100)ind_a(i)<br> enddo<br><br>100 format(f6.2)<br> stop<br> end<br><br>
<div class="gmail_quote">2010/5/6 Alexandre Santos <span dir="ltr"><<a href="mailto:puffy78@gmail.com">puffy78@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div>Hello,</div>
<div> </div>
<div>Someone , have a program at fortran that convert data precipitation for binary (read grads), interpolation from 0.5 x 0.5 (graus).</div>
<div> </div>
<div>example</div>
<div>lon lat prec</div>
<div>-35.4 -9.10 10.4</div>
<div>-35.9 8.60 13.0</div>
<div>-37.2 6.6 14.7</div>
<div> </div>
<div>...... ....... ........</div>
<div> </div>
<div> </div>
<div>matrix prec(61,87) </div>
<div> </div>
<div>Thanks very much</div>
<div> </div><font color="#888888">
<div> </div>
<div>Alexandre</div>
</font><br>_______________________________________________<br>
gradsusr mailing list<br>
<a href="mailto:gradsusr@gradsusr.org">gradsusr@gradsusr.org</a><br>
<a href="http://gradsusr.org/mailman/listinfo/gradsusr" target="_blank">http://gradsusr.org/mailman/listinfo/gradsusr</a><br>
<br></blockquote></div><br>