desperate-f77
10-02-2010, 09:43
Salve a tutti... sto imparando a usare il fortran 77 ma ho un problema con un programma... la mia intenzione era :
aprire il file di dati composto da due colonne che avevo in memoria,
fare la moltiplicazione tra tutti gli elementi della seconda colonna per una costante
scrivere la prima, la seconda colonna e una terza colonna che è il risultato della moltiplicazione in un nuovo file da creare e salvare per un successivo plot...
ma la cosa non è per niente riuscita :muro: per caso qualcuno sa dirmi perchè???
parameter(n=2e4)
implicit double precision(a-h, o-z)
real*8 c_norm, Imf, t(n), csfr_t(n), cost, csnr_t(n)
print*,'reading csfr_CMM04.t...' A QUESTO PUNTO SI BLOCCA TUTTO
open(11,file='csfr_CMM04.t',status='unknown')
open(12,file='csnr.t',status='unknown')
cost = Imf*c_norm
do i=1,n
read(11,*) t(i), csfr(i)
csnr_t(i)=cost*csfr_t(i)
write(12,*) t(i), csfr_t(i), csnr_t(i)
enddo
end
Ringrazio tutte le anime pie che abbiano tempo, voglia e capacità di aiutarmi
:D :D :D
aprire il file di dati composto da due colonne che avevo in memoria,
fare la moltiplicazione tra tutti gli elementi della seconda colonna per una costante
scrivere la prima, la seconda colonna e una terza colonna che è il risultato della moltiplicazione in un nuovo file da creare e salvare per un successivo plot...
ma la cosa non è per niente riuscita :muro: per caso qualcuno sa dirmi perchè???
parameter(n=2e4)
implicit double precision(a-h, o-z)
real*8 c_norm, Imf, t(n), csfr_t(n), cost, csnr_t(n)
print*,'reading csfr_CMM04.t...' A QUESTO PUNTO SI BLOCCA TUTTO
open(11,file='csfr_CMM04.t',status='unknown')
open(12,file='csnr.t',status='unknown')
cost = Imf*c_norm
do i=1,n
read(11,*) t(i), csfr(i)
csnr_t(i)=cost*csfr_t(i)
write(12,*) t(i), csfr_t(i), csnr_t(i)
enddo
end
Ringrazio tutte le anime pie che abbiano tempo, voglia e capacità di aiutarmi
:D :D :D