1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: USR_WRITE_OUT0 C 4 ! Purpose: echo user-defined input 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: C 13 ! C 14 ! Variables modified: C 15 ! C 16 ! Local variables: C 17 ! C 18 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 19 ! 20 SUBROUTINE USR_WRITE_OUT0 21 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 22 !...Switches: -xf 23 IMPLICIT NONE 24 !----------------------------------------------- 25 ! 26 ! Use this subroutine to echo the user-defined input to the standard output 27 ! The write statements should have the format WRITE(UNIT_OUT,...)... 28 ! 29 ! 30 RETURN 31 END SUBROUTINE USR_WRITE_OUT0 32