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 49