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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.