Suppression espace write statement [Résolu]

[Babou42800]

Bonjour à tous,

Après quelques recherches vaines sur Internet, votre aide serait le bienvenue.
Je souhaiterais en effet que les parenthèses viennent s'accoler au nombre dans le "write" suivant:

Code :

1
2
3
4
5
    double precision :: a, alpha
    a = -5
    write(6,*) 'Input y(', a, ').'
    read(5,*) alpha

Le résultat est: Input y( -5.0000000000000000 ). (Les espaces sont plus marquants sur ma console que sur le forum.)

Je sais qu'il existe la fonction intrinsèque "lnblnk", mais cela ne fonctionne qu'avec un "String". J'ai aussi tenté différents formats, en vain.

Merci d'avance pour votre aide.

[Sylvain Bergeron]

2 solutions :

Solution #1

write(6,'(a,f0.d,a)') 'Input y(', a, ').' où tu dois remplacer le ".d" par le nombre de décimales requises.

C'est une solution simple et intéressante si tu connais le nombre de décimales à générer.

Solution #2

character (20) StrA
...
write(StrA,*) a
write(6,'(a,a,a)') 'Input y(',trim(adjustl(StrA)) , ').'

[Babou42800]

Merci pour ta réponse rapide Sylvain; tes deux solutions me conviennent très bien !