Bonjour,

Je débute en F77, et j'ai des problèmes de formatage
Mon fichier de sortie doit imperativement etre au format csv avec un séparateur de champs point virgule et un séparateur décimal point.
La premiere ligne du fichier doit aussi contenir des chaines de caractères.

je voudrai d'une part pouvoir aligner mes champs à gauche, au meme niveau que la premiere ligne (j'ai bidouiller FORMAT sans succès )
et d'autre part etre capable d'écrire mon point virgule entre chaque champs (
j'ai essayé de mettre un ";" entre chacune des variables, mais j'obtient des erreurs à la compil)

Voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
	IF(iinv.eq.0) then
           open(1,file='truc.csv',status='unknown')
         somme=0.
	 WRITE(1,*)"longitude;latitude;elevation;conc;nvt;dvtx;dvty"
         do i=1,npts
          x=xpts(i)
         do j=1,npts
          y=ypts(j)
         write(1,100)x,y,fpts(i,j),ventno(i,j),acorect(i,j)
1                ,bcorect(i,j),topohaut(i,j)
         somme=somme+fpts(i,j)
         enddo
         write(1,'()')
         enddo
        close(1)
et le resultat csv:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
longitude;latitude;elevation;conc;nvt;dvtx;dvty
          0.0000000           0.0000000           0.0000000           4.1898599           
          0.0000000          68.9655151           0.0000000           4.1744800           
          0.0000000         137.9310303           0.0000000           4.1219192           
          0.0000000         206.8965454           0.0000000           4.0344415           
          0.0000000         275.8620605           0.0000000           3.9318738           
          0.0000000         344.8275757           0.0000000           3.8293421
Est-ce qqn aurait une idée pour que je puisse formater à ma guise ?
D'avance merci bcp pour votre aide

PiklaS