Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / TOOL / low2up.f90
1 !     ######spl
2       MODULE MODI_LOW2UP
3 !     #####################
4 !
5 INTERFACE
6 !
7 SUBROUTINE LOW2UP(HCARIN)
8 CHARACTER(LEN=*), INTENT(INOUT)  :: HCARIN
9 END SUBROUTINE LOW2UP
10 !
11 END INTERFACE
12 !
13 END MODULE MODI_LOW2UP
14 !     ######spl
15       SUBROUTINE LOW2UP(HCARIN)
16 !     ############################
17 !
18 !!****  *LOW2UP* - 
19 !!
20 !!    PURPOSE
21 !!    -------
22 !      
23 !
24 !!**  METHOD
25 !!    ------
26 !!     
27 !!     N.A.
28 !!
29 !!    EXTERNAL
30 !!    --------
31 !!      None
32 !!
33 !!    IMPLICIT ARGUMENTS
34 !!    ------------------
35 !!      Module
36 !!
37 !!    REFERENCE
38 !!    ---------
39 !!
40 !!
41 !!    AUTHOR
42 !!    ------
43 !!      J. Duron    * Laboratoire d'Aerologie *
44 !!
45 !!
46 !!    MODIFICATIONS
47 !!    -------------
48 !!      Original       06/06/94
49 !!      Updated   PM   02/12/94
50 !-------------------------------------------------------------------------------
51 !
52 !*       0.    DECLARATIONS
53 !              ------------
54 !
55 IMPLICIT NONE
56 !
57 !*       0.1   Dummy arguments
58 !              ---------------
59 CHARACTER(LEN=*), INTENT(INOUT)  :: HCARIN
60 !
61 !*       0.1   Local variables
62 !              ---------------
63 !
64 CHARACTER(LEN=1),DIMENSION(26),SAVE  :: YLO=(/'a','b','c','d','e','f','g', &
65  'h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'/)
66 CHARACTER(LEN=1),DIMENSION(26),SAVE  :: YUP=(/'A','B','C','D','E','F','G', & 
67  'H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z'/)
68 INTEGER   ::   ILENC
69 INTEGER   ::   J, JA
70 !------------------------------------------------------------------------------
71 !
72 ILENC = LEN(HCARIN)
73 !print *,' HCARIN ',LEN(HCARIN)
74 !print *,HCARIN
75 DO J=1,ILENC
76   DO JA=1,26
77     IF(HCARIN(J:J) == YLO(JA))HCARIN(J:J)=YUP(JA)
78   ENDDO
79 ENDDO
80 !
81 END SUBROUTINE LOW2UP