Patrick Corde & Anne Fouilloux

Procédures internes 166
subroutine conversion( chaine )
implicit none
character(len=*) :: chaine
integer i
do i=1,len(chaine)
if( ichar( chaine(i:i) ) < 97 .or.
ichar( chaine(i:i) ) > 122 ) cycle
chaine(i:i) = car_majuscule( chaine(i:i) )
end do
CONTAINS
function car_majuscule( c )
character(len=1) :: c, car_majuscule
integer
:: i
i = ichar( c ) - (ichar(’a’) - ichar( ’A’ ))
car_majuscule = achar( i )
end function car_majuscule
end subroutine conversion
INSTITUT DU DÉVELOPPEMENT
ET DES RESSOURCES
EN INFORMATIQUE SCIENTIFIQUE
Cours langage Fortran – 27 janvier 2006
Patrick Corde et Anne Fouilloux