Philippe 02/05/2016: moved all LIBTOOLS files in LIBTOOLS directory
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / MOD / modd_expr.f90
1 !     ######spl
2       MODULE  MODD_EXPR
3 !     #############################
4 !
5 !!****  *MODD_EXPR* - 
6 !!
7 !!    PURPOSE
8 !!    -------
9 !       Declaration des variables et tableaux intervenant dans la
10 !       multiplication (ou division) d'un processus par un autre
11 !       processus
12 !
13 !!    IMPLICIT ARGUMENTS
14 !!    ------------------
15 !!
16 !!     None
17 !!
18 !!
19 !!    REFERENCE
20 !!    ---------
21 !!
22 !!
23 !!    AUTHOR
24 !!    ------
25 !!      JD    "LA"
26 !!
27 !!
28 !!    MODIFICATIONS
29 !!    -------------
30 !!
31 !!     original        02/07/01
32 !!
33 !-------------------------------------------------------------------------
34 !
35 !*     0.   Declarations
36 !           ------------
37 !
38
39 IMPLICIT NONE
40
41
42 INTEGER,SAVE :: NMD
43
44 REAL,DIMENSION(:,:,:,:,:,:), ALLOCATABLE,SAVE  :: XEXPR1,XEXPR2,XEXPR3,&
45 XEXPR4,XEXPR5,XEXPR6,XEXPR7,XEXPR8,XEXPR9
46 REAL,DIMENSION(:,:,:,:,:,:), ALLOCATABLE,SAVE  :: XDEXPR1,XDEXPR2,XDEXPR3,&
47 XDEXPR4,XDEXPR5,XDEXPR6,XDEXPR7,XDEXPR8,XDEXPR9
48 INTEGER,DIMENSION(100), SAVE  :: NMULTDIV
49 CHARACTER(LEN=6),DIMENSION(50),SAVE :: CMULTDIV
50
51 !
52 END MODULE MODD_EXPR