Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / DIAPRO / carmemory.f90
1 !     ######spl
2       MODULE MODI_CARMEMORY
3 !     #####################
4 !
5 INTERFACE
6 !
7 SUBROUTINE CARMEMORY(HCARIN,KOP)
8 CHARACTER(LEN=*),INTENT(INOUT)  :: HCARIN
9 !CHARACTER(LEN=2400),INTENT(INOUT) :: HCARIN
10 INTEGER          :: KOP 
11 END SUBROUTINE CARMEMORY
12 !
13 END INTERFACE
14 !
15 END MODULE MODI_CARMEMORY
16 !     ######spl
17       SUBROUTINE CARMEMORY(HCARIN,KOP)
18 !     ################################
19 !
20 !!****  *CARMEMORY* - 
21 !!
22 !!    PURPOSE
23 !!    -------
24 !      
25 !
26 !!**  METHOD
27 !!    ------
28 !!     
29 !!     N.A.
30 !!
31 !!    EXTERNAL
32 !!    --------
33 !!      None
34 !!
35 !!    IMPLICIT ARGUMENTS
36 !!    ------------------
37 !!      Module
38 !!
39 !!
40 !!    REFERENCE
41 !!    ---------
42 !!
43 !!
44 !!    AUTHOR
45 !!    ------
46 !!      J. Duron    * Laboratoire d'Aerologie *
47 !!
48 !!
49 !!    MODIFICATIONS
50 !!    -------------
51 !!      Original       24/11/95
52 !!      Updated   PM   02/12/94
53 !-------------------------------------------------------------------------------
54 !
55 !*       0.    DECLARATIONS
56 !              ------------
57 !
58 USE MODD_RESOLVCAR
59
60 IMPLICIT NONE
61 !
62 !*       0.1   Dummy arguments
63 !              ---------------
64 !
65 !CHARACTER(LEN=2400),INTENT(INOUT)  :: HCARIN
66 CHARACTER(LEN=*),INTENT(INOUT)  :: HCARIN
67 INTEGER          :: KOP
68 !
69 !*       0.1   Local variables
70 !              ---------------
71
72 !
73 CHARACTER(LEN=2400),SAVE :: YCAR
74 INTEGER,SAVE   ::   ILENC, ILENGP1
75 !------------------------------------------------------------------------------
76 !
77 IF(KOP == 1)THEN
78 !fuji  HCARIN=ADJUSTL(HCARIN)   !introduit des caracteres genre {Á\80W×?Ã
79    HCARIN=TRIM(HCARIN)
80   YCAR(1:LEN(YCAR))=' '
81   YCAR=ADJUSTL(HCARIN)
82   ILENC = LEN(YCAR)
83 if (nverbia > 0)then
84 !print *, ' *** CARMEMORY 1 ILENC YCAR ',ILENC,YCAR(1:80)
85 print *, ' *** CARMEMORY 1 ILENC YCAR ',ILENC,YCAR(1:LEN_TRIM(YCAR))
86 endif
87 ELSE IF(KOP == 2)THEN
88   HCARIN(1:LEN(HCARIN))=' '
89   HCARIN=ADJUSTL(YCAR(ILENGP1+1:LEN_TRIM(YCAR)))
90   HCARIN=ADJUSTL(HCARIN)
91 ELSE IF(KOP == 3)THEN
92   CGROUPS(1)=ADJUSTL(CGROUPS(1))
93   ILENGP1=LEN_TRIM(CGROUPS(1))
94 ENDIF
95
96 !*       2.       EXITS
97 !                 -----
98
99 RETURN
100 END SUBROUTINE CARMEMORY