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