1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: Zero_array(Array, IER) C 4 ! Purpose: Zero out an array C 5 ! C 6 ! Author: M. Syamlal Date: 14-AUG-96 C 7 ! Reviewer: Date: C 8 ! C 9 ! C 10 ! Literature/Document References: C 11 ! C 12 ! Variables referenced: C 13 ! Variables modified: C 14 ! C 15 ! Local variables: C 16 ! C 17 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 18 SUBROUTINE ZERO_ARRAY(ARRAY) 19 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 20 !...Switches: -xf 21 ! 22 !//11-02-99/Modified by Sreekanth to Zero-out the entire array passed in. 23 ! 24 ! Include param.inc file to specify parameter values 25 ! 26 !----------------------------------------------- 27 ! M o d u l e s 28 !----------------------------------------------- 29 USE param 30 USE param1 31 IMPLICIT NONE 32 !----------------------------------------------- 33 ! G l o b a l P a r a m e t e r s 34 !----------------------------------------------- 35 !----------------------------------------------- 36 ! D u m m y A r g u m e n t s 37 !----------------------------------------------- 38 ! 39 ! Array 40 !// 504 1120 Modified the inherent dimensioning to absolute 41 ! double precision, intent(inout), dimension(:) :: ARRAY 42 double precision, intent(inout), dimension(DIMENSION_3) :: ARRAY 43 ! 44 !----------------------------------------------- 45 ! 46 ARRAY(:) = ZERO 47 48 RETURN 49 END SUBROUTINE ZERO_ARRAY 50