1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: bound_x(Array, IJKMAX2, IER) C 4 ! 5 ! Purpose: bound the values of x array C 6 ! C 7 ! Author: M. Syamlal Date: 15-SEP-98 C 8 ! Reviewer: Date: C 9 ! C 10 ! C 11 ! Literature/Document References: C 12 ! C 13 ! Variables referenced: C 14 ! Variables modified: C 15 ! C 16 ! Local variables: C 17 ! C 18 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 19 SUBROUTINE BOUND_X(ARRAY, IJKMAX2) 20 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 21 !...Switches: -xf 22 ! 23 ! Include param.inc file to specify parameter values 24 ! 25 !----------------------------------------------- 26 ! M o d u l e s 27 !----------------------------------------------- 28 USE param 29 USE param1 30 IMPLICIT NONE 31 !----------------------------------------------- 32 ! G l o b a l P a r a m e t e r s 33 !----------------------------------------------- 34 !----------------------------------------------- 35 ! D u m m y A r g u m e n t s 36 !----------------------------------------------- 37 ! 38 ! Maximum dimension 39 INTEGER IJKMAX2 40 ! 41 ! Array 42 DOUBLE PRECISION Array(DIMENSION_3) 43 !----------------------------------------------- 44 ! 45 IF (IJKMAX2 > 0) THEN 46 ARRAY(:) = MIN(ONE,MAX(ZERO,ARRAY(:))) 47 ENDIF 48 RETURN 49 END SUBROUTINE BOUND_X 50