Discussion :

[nicobells]

Bonjour,

Je dois copier la partie d'une subroutine, constituée de 2101 chiffres, dans un fichier texte annexe (il faut le créer également), comportant:
-Dans la première colonne, les chiffres de 1 à 2101;
-Dans la seconde colonne, les chiffres (séparés par des virgules) ci-dessous.

DATA (Rsoil1(i),i=1,100)/&
2.377E-01,2.373E-01,2.369E-01,2.365E-01,2.360E-01,2.356E-01,2.352E-01,2.348E-01,2.344E-01,2.340E-01,&
2.336E-01,2.332E-01,2.328E-01,2.324E-01,2.320E-01,2.316E-01,2.312E-01,2.308E-01,2.304E-01,2.299E-01,&
2.295E-01,2.290E-01,2.284E-01,2.278E-01,2.272E-01,2.267E-01,2.263E-01,2.259E-01,2.254E-01,2.250E-01,&
2.246E-01,2.243E-01,2.240E-01,2.237E-01,2.234E-01,2.231E-01,2.228E-01,2.224E-01,2.221E-01,2.218E-01,&
2.215E-01,2.215E-01,2.215E-01,2.215E-01,2.215E-01,2.214E-01,2.215E-01,2.215E-01,2.216E-01,2.217E-01,&
2.217E-01,2.218E-01,2.219E-01,2.219E-01,2.220E-01,2.221E-01,2.222E-01,2.224E-01,2.225E-01,2.227E-01,&
2.228E-01,2.230E-01,2.231E-01,2.233E-01,2.234E-01,2.236E-01,2.238E-01,2.240E-01,2.241E-01,2.243E-01,&
2.245E-01,2.247E-01,2.249E-01,2.251E-01,2.253E-01,2.256E-01,2.258E-01,2.260E-01,2.262E-01,2.264E-01,&
2.266E-01,2.269E-01,2.271E-01,2.273E-01,2.276E-01,2.278E-01,2.280E-01,2.283E-01,2.285E-01,2.287E-01,&
2.289E-01,2.293E-01,2.297E-01,2.302E-01,2.306E-01,2.310E-01,2.314E-01,2.319E-01,2.324E-01,2.329E-01/

etc...

DATA (Rsoil1(i),i=2001,2101)/&
4.723E-01,4.718E-01,4.714E-01,4.709E-01,4.704E-01,4.699E-01,4.695E-01,4.691E-01,4.686E-01,4.682E-01,&
4.678E-01,4.678E-01,4.678E-01,4.678E-01,4.678E-01,4.678E-01,4.678E-01,4.677E-01,4.677E-01,4.677E-01,&
4.677E-01,4.675E-01,4.673E-01,4.671E-01,4.668E-01,4.666E-01,4.662E-01,4.658E-01,4.653E-01,4.649E-01,&
4.645E-01,4.640E-01,4.636E-01,4.632E-01,4.627E-01,4.623E-01,4.620E-01,4.616E-01,4.613E-01,4.609E-01,&
4.606E-01,4.602E-01,4.599E-01,4.595E-01,4.592E-01,4.588E-01,4.585E-01,4.581E-01,4.578E-01,4.574E-01,&
4.571E-01,4.567E-01,4.564E-01,4.561E-01,4.557E-01,4.554E-01,4.551E-01,4.548E-01,4.545E-01,4.541E-01,&
4.538E-01,4.535E-01,4.532E-01,4.529E-01,4.526E-01,4.523E-01,4.522E-01,4.521E-01,4.521E-01,4.520E-01,&
4.519E-01,4.518E-01,4.518E-01,4.517E-01,4.516E-01,4.516E-01,4.513E-01,4.510E-01,4.507E-01,4.505E-01,&
4.502E-01,4.499E-01,4.497E-01,4.494E-01,4.491E-01,4.488E-01,4.487E-01,4.486E-01,4.485E-01,4.483E-01,&
4.482E-01,4.482E-01,4.482E-01,4.482E-01,4.482E-01,4.482E-01,4.478E-01,4.475E-01,4.471E-01,4.467E-01,&
4.464E-01/

Je dois ainsi créer un fichier txt comme suit:
1 2.377E-01
2 2.373E-01
etc...
2100 4.467E-01
2101 4.464E-01


Cependant, il ne faut pas que je supprime ces données dans ma subroutine.

Merci d'avance et désolé pour mon ignorance!

[rogue-spectre]

Bonjour,

Si j'ai bien compris tu as une subroutine où est défini un gros tableau en dur ? Si c'est bien ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   ! ouverture d'un fichier pour l'output
   OPEN(unit=_INT_REF_, file="votre_fichier_de_sortie", status="new")
   ! _INT_REF_ : un entier > 10, les précédent sont réservés pour d'autres usages
   ! status : on peut mettre old, unknown, ou new, et comme là on veut le créer on met new
 
   ! boucle de sauvegarde
   DO i=1, taille_du_tableau
        WRITE(_INT_REF_, *), i, TABLEAU(i)
   END DO
 
   ! on ferme le fichier
   CLOSE(_INT_REF_)

mais bon le cours c'est bien aussi

[nicobells]

merci! c nickel!