[Fortran] appel desespéré
lesupreme
Messages postés
30
Statut
Membre
-
[Dal] Messages postés 6373 Statut Contributeur -
[Dal] Messages postés 6373 Statut Contributeur -
Bonjour,
j'ai ecrit un programme en fortran qui s'execute bien sous windows.
min sous ubuntu cela ne se passe pas pareil. voici le programme sous ubuntu
program extraction
implicit none
character(len=8) :: date
character(len=4) :: time
character(len=3) :: step,lev
character(len=2) :: name
real :: tab(3,6461)
integer :: i, ios
character(len=11) :: pathentree
character(len=14) :: pathsortie
character(len=30) :: nomfichier
character(len=38) :: fichsortie
character(len=6) :: la='latitd', lo='longtd', va='valeur'
pathsortie='/home/zouzoua/DATA_IN/analyse/' ! initialisation du path de sortie
pathentree='/home/zouzoua/essai/temp.txt' ! initialisation du path d'entree
print*,'*********** debut de l''extraction **************'
open(10, file=pathentree, status='old', access='sequential', action='read',&
position='rewind', iostat=ios)
if (ios /=0) then
print*,'erreur à l''ouverture du fichier'
stop
endif
read(10,"(/,/, A8, 4x, A4, 8x, A3, 9x, A2, 10x, A3)") date, time, step, name, lev ! lire l'entête du fichier
read(10,"(/,/,/,/,/)") ! passer aux lignes suivantes
read(10,"(2x, F7.3, 2x, F7.3, 1x, F9.6)") (tab(1,i), tab(2,i), tab(3,i), i=1,6461)
nomfichier=date//'_'//time//'_'//name//'_+'//step//'H'
fichsortie=pathsortie//nomfichier
open(12, file=fichsortie//'.txt', status='new', action='write', form='formatted')
write(12,"(A30, /)") nomfichier
write(12,"('niveau : ',A3, /)") lev
write(12,"(3x, A6, 2x, A6, 6x, A6, /)") la, lo, va
do i=1,6461
if ((2.00 .LE. tab(1,i)).and.(tab(1,i) .LE. 12.00)) then ! a changer en fonction du modèle
if ((-10.00 .LE.tab(2,i)).and.( tab(2,i).LE. 0.00)) then ! a changer en fonction du modèle
write(12,"(1x, F7.3, 2x, F7.3, 2x, F9.3)") tab(1,i), tab(2,i), tab(3,i) ! ercrire les valeurs des differentes latitudes
endif
endif
enddo
close(10)
close(12)
print*,'***** fin extraction fichier : ', nomfichier,' *******'
end
dans le terminal cè ecrit:
*********** debut de l'extraction **************
erreur à l'ouverture du fichier
excusez moi pour la longueur du message
j'ai ecrit un programme en fortran qui s'execute bien sous windows.
min sous ubuntu cela ne se passe pas pareil. voici le programme sous ubuntu
program extraction
implicit none
character(len=8) :: date
character(len=4) :: time
character(len=3) :: step,lev
character(len=2) :: name
real :: tab(3,6461)
integer :: i, ios
character(len=11) :: pathentree
character(len=14) :: pathsortie
character(len=30) :: nomfichier
character(len=38) :: fichsortie
character(len=6) :: la='latitd', lo='longtd', va='valeur'
pathsortie='/home/zouzoua/DATA_IN/analyse/' ! initialisation du path de sortie
pathentree='/home/zouzoua/essai/temp.txt' ! initialisation du path d'entree
print*,'*********** debut de l''extraction **************'
open(10, file=pathentree, status='old', access='sequential', action='read',&
position='rewind', iostat=ios)
if (ios /=0) then
print*,'erreur à l''ouverture du fichier'
stop
endif
read(10,"(/,/, A8, 4x, A4, 8x, A3, 9x, A2, 10x, A3)") date, time, step, name, lev ! lire l'entête du fichier
read(10,"(/,/,/,/,/)") ! passer aux lignes suivantes
read(10,"(2x, F7.3, 2x, F7.3, 1x, F9.6)") (tab(1,i), tab(2,i), tab(3,i), i=1,6461)
nomfichier=date//'_'//time//'_'//name//'_+'//step//'H'
fichsortie=pathsortie//nomfichier
open(12, file=fichsortie//'.txt', status='new', action='write', form='formatted')
write(12,"(A30, /)") nomfichier
write(12,"('niveau : ',A3, /)") lev
write(12,"(3x, A6, 2x, A6, 6x, A6, /)") la, lo, va
do i=1,6461
if ((2.00 .LE. tab(1,i)).and.(tab(1,i) .LE. 12.00)) then ! a changer en fonction du modèle
if ((-10.00 .LE.tab(2,i)).and.( tab(2,i).LE. 0.00)) then ! a changer en fonction du modèle
write(12,"(1x, F7.3, 2x, F7.3, 2x, F9.3)") tab(1,i), tab(2,i), tab(3,i) ! ercrire les valeurs des differentes latitudes
endif
endif
enddo
close(10)
close(12)
print*,'***** fin extraction fichier : ', nomfichier,' *******'
end
dans le terminal cè ecrit:
*********** debut de l'extraction **************
erreur à l'ouverture du fichier
excusez moi pour la longueur du message
A voir également:
- [Fortran] appel desespéré
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Appel privé - Guide
- Double appel - Guide
- Signal d'appel - Forum iPhone
- Appel externe - Forum telephonie fixe
