File: N:\mfix\model\usr_write_out0.f

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