Discussion :

[VauRDeC]

Bonjour,

Contrairement à ce que la majorité gens, en fait je cherche à réduire le nombre de chiffres après la virgule de mes réel.

Donc ce que je veux, c'est de considérer un certains nombres de chiffres après la virgule de mes réels sans pour autant vouloir les arrondir...
Par exemple, si j'ai "pi" je cherche une option de write ou read qui me donnerait les 3 premiers chiffres par exemple, ou même rien que le premier, c.a.d je voudrais qu'il me donne 3,1 et non 3,10000 par exemple.

J'ai trouvé une option F2.2 de write mais ça ne marche pas à tout les coups...

Merci d'avance

VaµRDeC

[FR119492]

Salut!

J'ai trouvé une option F2.2 de write mais ça ne marche pas à tout les coups...

Qu'est-ce qui ne marche pas? Donne-nous des exemples.
Jean-Marc Blanc

[VauRDeC]

Merci pour votre réponse
Je vais donc vous expliquer ce que je veux faire...

J'ai un répertoire qui contient des sous répertoires nommés : beta_9 ou beta_10 ou encore beta_12.5, vous comprendrez tout ce qu'il y a après le _ c'est les nombres qui sont dans le vecteurs beta que j'ai posté en bas.
Alors dans ces sous répertoires, il y a des fichiers nommés par exemple "resultats.dat", qui contiennent des colonnes de nombres que je voudrais trier...
J'aimerai donc écrire un code fortran qui me ferait tout ça tout seul, au lieu de m'embêter à le compiler pour chaque ficher "resulats.dat" dans chacun de mes sous répertoire beta... C'est à dire qu'un moment j'en aurai des centaines de sous répertoires beta!!

Donc voici un bout de mon code qui ferait tout ce job, je vous évite les déclarations et tout (je sais que l'erreur ne viens pas de là):

beta = (/8.7,10.0,12.0,12.5,13.0,13.5,14.0,16.0,18.0,20.0/)
do k = 1, nb ! nb = la dimension de mon vecteur beta
rang = beta(k)
write(numero,FMT='(??.??)') rang
print*,"numero=",numero ! Pour vérifier que ça a bien marché
open(30,file="REPERT/beta"//"_"//trim(numero)//"/resultats.dat",form='formatted')
do i=1,nk ! nk = le nombre de sous répertoires beta dans REPERT
read(30,*) a(i), b(i)
enddo
close(30)
enddo

Puis, je trie et je les reclasse dans le fichier "resultats.dat" correspondant...

Pour l'instant, la seul solution pour ça marche plus ou moins, c'est que je déclare la variable "rang" comme integer et que je mette "FMT='(I2.2)'".
Le souci avec cette méthode, c'est qu'il ne va pas tenir compte des sous répertoires beta_Y.X avec Y quelconque et X différent de zéro, par exemple les beat_12.5 ou beta_13.4 mais le reste c'est OK...

Dès que je veux mettre des trucs avec F (genre F6.2 par exemple) je déclare "rang" comme real et ça ne marche plus...

Voilà, j'espère que ce n'est pas confus...

VaµRDeC

[Sylvain Bergeron]

D'où viennent tes nombres beta ? Sont-ils externes à ton programme ? Résultats numériques d'une autre partie du programme ?

[VauRDeC]

Ils viennent effectivement d'un autre programme...

[Sylvain Bergeron]

Pourquoi ne les passes-tu pas en caractères ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
integer, parameter :: nb=10
character (5) :: beta(nb) = /('8.7  ','10.0 ','12.0 ','12.5 ','13.0 ','13.5 ','14.0 ','16.0 ','18.0 ','20.0 '/)
charaacter (5) rang
do k = 1, nb ! nb = la dimension de mon vecteur beta
  rang = beta(k)
  open(30,file="REPERT/beta_"//trim(Rang)//"/resultats.dat",form='formatted')
  do i=1,nk ! nk = le nombre de sous répertoires beta dans REPERT
    read(30,*) a(i), b(i)
  enddo
  close(30)
enddo

[VauRDeC]

Nickel
Je ne sais pas non plus pourquoi je ne l'ai pas fait
Maintenant, faudrait que je trouve un moyen pour introduire ce que je récupère comme valeur pour beta et les mette dans cette chaine de caractère.

Merci énormément!

VaµRDeC

[Sylvain Bergeron]

Maintenant, faudrait que je trouve un moyen pour introduire ce que je récupère comme valeur pour beta et les mette dans cette chaine de caractère.

Tu rediriges un "ls beta*" (ou dir beta* si Windows) dans un fichier, puis tu lis le fichier par ton programme Fortran qui décode les entrées...