1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC 2 ! C 3 ! Module name: WRITE_USR1 (L) C 4 ! Purpose: Write user-defined output C 5 ! C 6 ! Author: Date: dd-mmm-yy C 7 ! Reviewer: Date: dd-mmm-yy C 8 ! C 9 ! Revision Number: C 10 ! Purpose: C 11 ! Author: Date: dd-mmm-yy C 12 ! Reviewer: Date: dd-mmm-yy C 13 ! C 14 ! Literature/Document References: C 15 ! C 16 ! Variables referenced: C 17 ! Variables modified: C 18 ! C 19 ! Local variables: C 20 ! C 21 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 22 ! 23 SUBROUTINE WRITE_USR1(L) 24 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98 25 !...Switches: -xf 26 IMPLICIT NONE 27 !----------------------------------------------- 28 ! D u m m y A r g u m e n t s 29 !----------------------------------------------- 30 INTEGER L 31 !----------------------------------------------- 32 ! 33 ! Local variables 34 ! 35 RETURN 36 END SUBROUTINE WRITE_USR1 37