MFIX  2016-1
usr0.f
Go to the documentation of this file.
1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
2 ! C
3 ! Module name: USR0 C
4 ! Purpose: This routine is called before the time loop starts and is C
5 ! user-definable. The user may insert code in this routine C
6 ! or call appropriate user defined subroutines. This C
7 ! can be used for setting constants and checking errors in C
8 ! data. This routine is not called from an IJK loop, hence C
9 ! all indices are undefined. C
10 ! C
11 ! Author: Date: dd-mmm-yy C
12 ! Reviewer: Date: dd-mmm-yy C
13 ! C
14 ! Revision Number: C
15 ! Purpose: C
16 ! Author: Date: dd-mmm-yy C
17 ! Reviewer: Date: dd-mmm-yy C
18 ! C
19 ! Literature/Document References: C
20 ! C
21 ! Variables referenced: C
22 ! Variables modified: C
23 ! C
24 ! Local variables: C
25 ! C
26 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
27 !
28  SUBROUTINE usr0
29 !...Translated by Pacific-Sierra Research VAST-90 2.06G5 12:17:31 12/09/98
30 !...Switches: -xf
31  Use usr
32  IMPLICIT NONE
33 !-----------------------------------------------
34 !
35 ! Include files defining common blocks here
36 !
37 !
38 ! Define local variables here
39 !
40 !
41 ! Include files defining statement functions here
42 !
43 !
44 ! Insert user-defined code here
45 !
46  RETURN
47  END SUBROUTINE usr0
usr
Definition: usr_mod.f:1
usr0
subroutine usr0
Definition: usr0.f:29