File: /nfs/home/0/users/jenkins/mfix.git/model/boundfunijk_mod.f

1       MODULE BOUNDFUNIJK
2     
3       CONTAINS
4     
5           INTEGER FUNCTION BOUND_FUNIJK(pLI, pLJ, pLK)
6     
7     !-----------------------------------------------
8     !   M o d u l e s
9     !-----------------------------------------------
10           USE param
11           USE param1
12           USE physprop
13           USE geometry
14           USE compar
15           USE fldvar
16           USE indices
17           USE functions
18           IMPLICIT NONE
19     !
20     !                      Dummy indices for I, J, K
21           INTEGER          pLI, pLJ, pLK
22     
23     !                      Dummy indices for MINS AND MAXS
24           INTEGER          LIMIN
25     !-----------------------------------------------
26     
27           BOUND_FUNIJK  = FUNIJK ( MIN( IEND3, MAX (ISTART3, pLI) ),&
28                                    MIN( JEND3, MAX (JSTART3, pLJ) ),&
29                                    MIN( KEND3, MAX (KSTART3, pLK) ) )
30     
31           END FUNCTION BOUND_FUNIJK
32     
33       END MODULE BOUNDFUNIJK
34