.TITLE <BATDEF - <BATDEF
.PAGE
.INDENT 50
<BATDEF
.SKIP 1
.CENTER
<BATDEF - <BATDEF
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: <BATDEF\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^THIS MODULE IS A BLOCK DATA SUBROUTINE CONTAINING 3 COMMON BLOCKS
EACH DEFINING A LOGICAL UNIT NUMBER FOR <BATCH INPUT, OUTPUT AND
JOBLOG.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM <FORTRAN - ^IS LINKED AT TASK BUILD TIME AS AN OBJECT
MODULE EXPLICITLY, I.E, ^^CETUS/LB=BATDEF\\ OR BY DECLARING
^^BATDEF EXTERNAL\\ IN YOUR <FORTRAN SOURCE.
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ 
.SKIP;.INDENT -9
^^JOBLOG---T\\HE NAMED COMMON BLOCK CONTAINING THE ^INTEGER VARIABLE FOR 
THE ^^JOBLOG LUN\\.  ^DEFAULT IS 7.
.SKIP;.INDENT -9
^^BATIN----T\\HE COMMON BLOCK CONTAINING THE <LUN FOR <BATCH INPUT
I.E., YOU READ FROM THIS <LUN)
.SKIP;.INDENT -9
^^BATOUT---T\\HE NAMED COMMON BLOCK CONTAINING THE <LUN FOR <BATCH OUTPUT
(I.E., YOU WRITE YOUR OUTPUT HERE.)
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ NONE
.SKIP 1
.INDENT -10
^^EXAMPLE:\\
.INDENT -9
 ^^COMMON/JOBLOG/JL\\

.INDENT -9
^^COMMON/BATIN/CARDS\\

.INDENT -9
^^COMMON/BATOUT/PRNTER\\
.SKIP 1
.INDENT -10
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ LONG AGO
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <FORTRAN
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ <BATDEF
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS.OLB
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ NONE
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^JOHN ^JAMES OR ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10