ingegnomeccanico
05-12-2009, 09:58
Salve a tutti,
siccome ho una discreta conoscenza del linguaggio di programmazione Matlab, volevo estendere le mie conoscenze al Fortran. Ho scritto qualche semplice programma, tanto per vedere come si compila e si creano gli eseguibili.
innanzitutto preciso che ho scaricato dal sito silverfrost il file di installazione che mi da sia l'editor sia il compilatore per il fortran. il problema che ho è il seguente:
quando scrivo un programma,lo compilo e poi lo faccio partire, mi esce la schermata dos che mi fa vedere l'esecuzione del programma e alla fine del calcolo mi dice press return to exit.
se lancio direttamente l'eseguibile creato, invece, il programma non si ferma ma esce subito dalla schermata dos. dove sbaglio??
vi allego il programma che converte la temperatura da gradi farenheit a kelvin e vi ringrazio in anticipo:
PROGRAM conver_temp
IMPLICIT NONE
REAL :: temp_f
REAL :: temp_k
WRITE (*,*) 'temperatura farenheit'
READ (*,*) temp_f
temp_k=(5./9.)*(temp_f-32)+273.15
WRITE (*,*) temp_f, ' farenheit = ', temp_k, ' kelvin'
STOP
END PROGRAM conver_temp
siccome ho una discreta conoscenza del linguaggio di programmazione Matlab, volevo estendere le mie conoscenze al Fortran. Ho scritto qualche semplice programma, tanto per vedere come si compila e si creano gli eseguibili.
innanzitutto preciso che ho scaricato dal sito silverfrost il file di installazione che mi da sia l'editor sia il compilatore per il fortran. il problema che ho è il seguente:
quando scrivo un programma,lo compilo e poi lo faccio partire, mi esce la schermata dos che mi fa vedere l'esecuzione del programma e alla fine del calcolo mi dice press return to exit.
se lancio direttamente l'eseguibile creato, invece, il programma non si ferma ma esce subito dalla schermata dos. dove sbaglio??
vi allego il programma che converte la temperatura da gradi farenheit a kelvin e vi ringrazio in anticipo:
PROGRAM conver_temp
IMPLICIT NONE
REAL :: temp_f
REAL :: temp_k
WRITE (*,*) 'temperatura farenheit'
READ (*,*) temp_f
temp_k=(5./9.)*(temp_f-32)+273.15
WRITE (*,*) temp_f, ' farenheit = ', temp_k, ' kelvin'
STOP
END PROGRAM conver_temp