Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / mesonh / mode_io.f90
1 FUNCTION UPCASE(HSTRING)
2 CHARACTER(LEN=*)            :: HSTRING
3 CHARACTER(LEN=LEN(HSTRING)) :: UPCASE
4
5 INTEGER :: JC
6 INTEGER, PARAMETER :: IAMIN = IACHAR("a")
7 INTEGER, PARAMETER :: IAMAJ = IACHAR("A")
8
9 DO JC=1,LEN(HSTRING)
10   IF (HSTRING(JC:JC) >= "a" .AND. HSTRING(JC:JC) <= "z") THEN
11     UPCASE(JC:JC) = ACHAR(IACHAR(HSTRING(JC:JC)) - IAMIN + IAMAJ)
12   ELSE
13     UPCASE(JC:JC) = HSTRING(JC:JC)
14   END IF
15 END DO
16
17 END FUNCTION UPCASE