! Questo programma e' tratto o ispirato da 
! "Fortran 90 - A Conversion Course for Fortran 77 Programmers“
! S.Ramsen, F.Lin, M.A.Pettipher, G.S.Noland, J.M.Brooke
! The University of Manchester, G.B., Edition 3.0 July 1995 
!------------------------------------------------------------------------------
!  Purpose: this program shows the use of elemental intrinsics for 
!           characters (ADJUSTL, ADJUSTR, INDEX, LEN_TRIM, SCAN, VERIFY).
!------------------------------------------------------------------------------
PROGRAM ch_elemental  

IMPLICIT NONE  
CHARACTER (LEN = 1) :: chstars = "'"  
CHARACTER (LEN = 40) :: char = '     5 Blanks,  30 chars,  5 blanks     '  

WRITE (*,*) "Original              : ", chstars, char, chstars  
WRITE (*,*) "Adjustl               : ", chstars, ADJUSTL (char), chstars  
WRITE (*,*) "Adjustr               : ", chstars, ADJUSTR (char), chstars  
WRITE (*,*) "Index(char,'30')      : ", INDEX(char,'30')  
WRITE (*,*) "Len_trim              : ", LEN_TRIM (char)  
WRITE (*,*) "Scan(char, 'cha')     : ", SCAN (char, 'cha') 
WRITE (*,*) "Verify(char, 'blank') : ", VERIFY (char, 'blank')  

STOP
END PROGRAM ch_elemental