Patrick Corde & Anne Fouilloux

Arguments de type chaîne de caractères 159
Dans l’exemple ci-dessous les fonctions ICHAR/ACHAR
permettent de mettre en relation un caractère et son
rang dans la table des caractères ASCII.
Exemple
program arg_chaine
implicit none
character(len=10) :: ch
read ’(a)’,ch
call conv( ch )
print *,ch
end program arg_chaine
subroutine conv( chaine )
implicit none
character(len=*) :: chaine
integer i, j
do i=1,len(chaine)
if( ichar( chaine(i:i) ) < 97 .or. &
ichar( chaine(i:i) ) > 122 ) cycle
j = ichar( chaine(i:i) ) - 32
chaine(i:i) = achar( j )
end do
end subroutine conv
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux