1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: USR_INIT_NAMELIST C 4 ! Purpose: initialize user_defined NAMELIST variables C 5 ! C 6 ! Author: Date: C 7 ! Reviewer: Date: C 8 ! C 9 ! C 10 ! Literature/Document References: C 11 ! C 12 ! Variables referenced: None C 13 ! Variables modified: C 14 ! C 15 ! Local variables: C 16 ! C 17 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 18 ! 19 SUBROUTINE USR_INIT_NAMELIST 20 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 21 !...Switches: -xf 22 !----------------------------------------------- 23 ! M o d u l e s 24 !----------------------------------------------- 25 Use usr 26 IMPLICIT NONE 27 !----------------------------------------------- 28 ! L o c a l V a r i a b l e s 29 !----------------------------------------------- 30 !----------------------------------------------- 31 ! 32 RETURN 33 END SUBROUTINE USR_INIT_NAMELIST 34