1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: UNDEF_2_0 (Var, IER) C 4 ! Purpose: change undefined values to zero. Otherwise linear equationC 5 ! solver does not work C 6 ! C 7 ! Author: M. Syamlal Date: 18-JUL-96 C 8 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 9 ! 10 SUBROUTINE UNDEF_2_0(VARDUM) 11 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 12 !...Switches: -xf 13 ! 14 !----------------------------------------------- 15 ! M o d u l e s 16 !----------------------------------------------- 17 USE param 18 USE param1 19 USE geometry 20 USE compar 21 IMPLICIT NONE 22 !----------------------------------------------- 23 ! G l o b a l P a r a m e t e r s 24 !----------------------------------------------- 25 !----------------------------------------------- 26 ! D u m m y A r g u m e n t s 27 !----------------------------------------------- 28 DOUBLE PRECISION, DIMENSION(DIMENSION_3) :: VARDUM 29 30 !----------------------------------------------- 31 ! L o c a l P a r a m e t e r s 32 !----------------------------------------------- 33 !----------------------------------------------- 34 ! L o c a l V a r i a b l e s 35 !----------------------------------------------- 36 ! INTEGER :: IJK 37 !----------------------------------------------- 38 ! 39 ! Local variables 40 ! 41 ! 42 ! IJK = 1 43 ! IF (IJKEND3 > 0) THEN 44 ! WHERE (VAR(:IJKMAX2) == UNDEFINED) VAR(:IJKMAX2) = ZERO 45 ! WHERE (VARDUM(IJKSTART3:IJKEND3) == UNDEFINED) VARDUM(IJKSTART3:IJKEND3) = ZERO 46 WHERE (VARDUM(1:IJKEND3) == UNDEFINED) VARDUM(1:IJKEND3) = ZERO 47 ! IJK = IJKMAX2 + 1 48 ! ENDIF 49 RETURN 50 END SUBROUTINE UNDEF_2_0 51 52 !// Comments on the modifications for DMP version implementation 53 !//PG Changed local variable name from VAR to VARDUM, due to conflict in PG 54 !// 120 Replaced the index for initialization :IJKMAX2 --> VARDUM(1:IJKEND3) 55