Discussion :

[djocin]

Bonjour !

Voici mon problème : j'écris dans un fichier ceci

Code :

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

1
2
3
 
write(100,200)truc,p,bidule
200 format(a10,i3,a41)

où truc et bidule sont des chaines de caractères, et p un entier.

Le problème est que mon p peut prendre des valeurs à 1, 2 ou 3 chiffres, du coup à cause du i3 dans le format, si le nombre de chiffres de p est inférieur à 3 alors j'ai 1 ou 2 espaces entre truc et p, ce que je ne veux absolument pas !

Comment faire pour supprimer ces espaces ? (j'ai essayé de taper un entier du style 004, pour avoir 3 chiffres, mais cela ne me convient pas)

Merci de votre aide.

[FR119492]

Salut!
en effet, en Fortran, ça n'est pas très commode, mais c'est possible:

Code :

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

1
2
3
4
5
6
7
8
 
      If (p.lt.10) Then
        Write (100,'(A10,I1,A41)') truc,p,bidule
      Else If (p.lt.100) Then
        Write (100,'(A10,I2,A41)') truc,p,bidule
      Else
        Write (100,'(A10,I3,A41)') truc,p,bidule
      End If

Jean-Marc Blanc

[Sylvain Bergeron]

Ce problème est résolu depuis Fortran 90. Il suffit d'utiliser "i0" (ou f0.n pour les réels).

Ainsi :

Code :

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

1
2
 
write(100,'(a10,i0,a41)')truc,p,bidule

fera ce que tu veux.

Pour les variables caractères, il est possible de supprimer la longueur à côté du format "a" si cette longueur correspond à la longueur de la variable (ce qui en pratique est presque toujours le cas). Ton format se simplifie donc à '(a,i0,a)'.

Finalement, la forme i3.3 t'aurait permit d'ajouter des "0" devant les chiffres significatifs des nombres plus petits que 100 et toujours obtenir une chaine de 3 caractères.

[djocin]