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