Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / DIAPRO / careal.f90
1 !     ######spl
2       MODULE MODI_CAREAL
3 !     ##################
4 !
5 INTERFACE
6 !
7 SUBROUTINE CAREAL(HCAR,POUT)
8 CHARACTER(LEN=*) :: HCAR
9 REAL             :: POUT
10 END SUBROUTINE CAREAL
11 !
12 END INTERFACE
13 !
14 END MODULE MODI_CAREAL
15 !     ######spl
16       SUBROUTINE CAREAL(HCAR,POUT)
17 !     ############################
18 !
19 !!****  *CAREAL* - 
20 !!
21 !!    PURPOSE
22 !!    -------
23 !      
24 !
25 !!**  METHOD
26 !!    ------
27 !!     
28 !!     N.A.
29 !!
30 !!    EXTERNAL
31 !!    --------
32 !!      None
33 !!
34 !!    IMPLICIT ARGUMENTS
35 !!    ------------------
36 !!      Module
37 !!
38 !!
39 !!    REFERENCE
40 !!    ---------
41 !!
42 !!
43 !!    AUTHOR
44 !!    ------
45 !!      J. Duron    * Laboratoire d'Aerologie *
46 !!
47 !!
48 !!    MODIFICATIONS
49 !!    -------------
50 !!      Original       24/11/95
51 !!      Updated   PM   02/12/94
52 !-------------------------------------------------------------------------------
53 !
54 !*       0.    DECLARATIONS
55 !              ------------
56 !
57 USE MODD_RESOLVCAR
58
59 IMPLICIT NONE
60 !
61 !*       0.1   Dummy arguments
62 !              ---------------
63
64 CHARACTER(LEN=*) :: HCAR
65 REAL             :: POUT
66 !
67 !*       0.1   Local variables
68 !              ---------------
69
70 !
71 CHARACTER(LEN=LEN(HCAR)) :: YCAR
72 !------------------------------------------------------------------------------
73 !
74 YCAR=HCAR
75 READ(YCAR,*)POUT
76
77 !*       2.       EXITS
78 !                 -----
79
80 RETURN
81 END SUBROUTINE CAREAL