Discussion :

[mister_viet]

Bonjour,
je viens de commencer à coder avec Fortran77 et j'aurais une question très bête !
Donc voilà le problème : dans mon code, j'ai écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call Nom_Subroutine(table(:,1), table(:,2))

qui me permet de récupérer deux colonnes entières de mon tableau table. Le problème est que cela compile parfaitement avec le compilateur xlf mais que en compilant avec g77, il y a une erreur à cause du ":"... Je voudrais donc savoir si il y a l'équivalent du ":" qui marcherait avec g77 ???

2ème question :
J'ai aussi un autre problème, cette fois ça vient d'un calcul :
pi=real=3,1415
t=real
et var=real

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

var= asin(cos(2*pi*t)/sqrt(1+cos(2*pi*t)cos(2*pi*t)))

Il y a la encore une erreur de compilation, maintenant en enlevant le premier "pi" et en recompilant
(je compile donc: var= asin(cos(2*pi*t)/sqrt(1+cos(2*pi*t)*cos(2*pi*t)))
).
... ça passe !! Bizarrer... je ne comprends pas.
Merci par avance!!

[feynman]

Pour ta deuxieme question il est bien claire que tu as oublie' un * entre les 2 cos

[mister_viet]

Merci Feynman, mais là il sagit d'un oubli de ma part en recopiant....lol (c corrigé)
sinon je voulais préciser que l'erreur est au niveau du premier "pi" puisque quand je l'enleve ca marche très bien...

[feynman]

ca marche chez moi :
voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
program jet
real, parameter  :: PI = 3.14
real t,var
read*, t
var = asin(cos(2*PI*t)/sqrt(1+cos(2*PI*t)*cos(2*PI*t)))
print*,'var',var
end

[afrancisco]

Salut,

l'erreur est au niveau du premier "pi" puisque quand je l'enleve ca marche très bien...

... mauvais séparateur décimal peut-être. Il aurait mieux valu, copier-coller le code entre des balises [code]

[mister_viet]

je suis d'accord qu'il aurait mieux valu que je copie le code! mais le problème est que je ne l'ai pas sous les mains^^ il est resté au bureau.

Pour la 2em question ca me semble bien marcher (je n'avais pas ecrit parameter:: j'avais juste ecrit real pi=3,1415)! merci =).

Pour la premiere je vais essayer d'etre plus clair:

Donc en fait ce que je veux faire est simple:
" Recopier 2 colonnes entières d'un tableau dans un fichier .dat"
exemple: soit le tableau suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
do i=1:1000
            table(i, 1)= i
            table(i, 2)= i+1   !colonne 2
            table(i, 3)= i+2   !colonne 3
enddo

Comment est ce que vous fairiez pour copier les colonnes 2/ et 3/ dans un fichier toto.dat???? (sous fortran 77)

Merci encore!