File: RELATIVE:/../../../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     !-----------------------------------------------
24     
25           BOUND_FUNIJK  = FUNIJK ( MIN( IEND3, MAX (ISTART3, pLI) ),&
26                                    MIN( JEND3, MAX (JSTART3, pLJ) ),&
27                                    MIN( KEND3, MAX (KSTART3, pLK) ) )
28     
29           END FUNCTION BOUND_FUNIJK
30     
31       END MODULE BOUNDFUNIJK
32