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

1       MODULE BOUNDFUNIJK3
2     
3       CONTAINS
4     
5           INTEGER FUNCTION BOUND_FUNIJK3(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 function3
18           IMPLICIT NONE
19     !
20     !                      Dummy indices for I, J, K
21           INTEGER          pLI, pLJ, pLK
22     
23     !-----------------------------------------------
24     
25           BOUND_FUNIJK3  = FUNIJK3 ( MIN( IEND4, MAX (ISTART4, pLI) ),&
26                                    MIN( JEND4, MAX (JSTART4, pLJ) ),&
27                                    MIN( KEND4, MAX (KSTART4, pLK) ) )
28     
29           END FUNCTION BOUND_FUNIJK3
30     
31       END MODULE BOUNDFUNIJK3
32