Copier, dans un fichier texte, une partie d'une subroutine

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!

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:

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 ;)

merci! c nickel!