MFIX  2016-1
usr1.f
Go to the documentation of this file.
1 !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
2 ! C
3 ! Module name: USR1 C
4 ! Purpose: This routine is called from the time loop 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 or checking errors in quantities C
8 ! that vary with time. This routine is not called from an C
9 ! IJK loop, hence all indices are undefined. C 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 usr1
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 usr1
usr1
subroutine usr1
Definition: usr1.f:29
usr
Definition: usr_mod.f:1