;PORTACALC ODL FILE.
; V5
;	Root: Spredsht,Index, all commons, UVT100, VARSCN
;  IN V3.5 UVT100, VARSCN SPLIT OUT AND PUT IN LEAVES...
;IN V5 USE FCS11M.ODL AS CONFIGURED FOR THIS. FROM F77 DIST'N.
;		Leaf 1: XQTCMD
;		Leaf 2: RECALC, CALC, and all subroutines of CALC
;		Leaf 3: DSPSHT
	.ROOT MAIN-*(RC,XQ,DS),RCUT,RTU,OTSALL
MAIN:	.FCTR OSPREDSHT-BLOCK-INDEX-OTSROT
; NOTE RECALC ETC. NEVER USE UVT100
RC:	.FCTR	RECALC-CALC-*(C4,C5,C7,C8)
C4: .FCTR CMND-*(C41,C42,C43)
C41: .FCTR AT
C42: .FCTR BASCNG
C43: .FCTR DECLR
C5: .FCTR POSTVL-*(C51,C52,C6)
C51: .FCTR CALUN-CONTYP-MULCON
C52: .FCTR CALBIN-*(C521,C522,C523,C524)
C521: .FCTR CONTYP-MULCON
C522: .FCTR MULADD
C523: .FCTR MULDIV
C524: .FCTR MULMUL
C6: .FCTR VAROUT-MOUT
C7: .FCTR INPOST-NEXTEL
C8: .FCTR LIST
;SPLIT VARSCN AND UVT100 IN OXQTCMD SINCE THEY ARE USED AT DIFFERENT TIMES.
XQ:	.FCTR	OXQTCMD
DS:	.FCTR	DSPSHT
;LIB:	.FCTR LB:[1,1]SYSLIB/LB:$SHORT
	.NAME RCUTL
RCUT:	.FCTR RCUTL-*(X3,X4,X5,X6,X7)
X3: .FCTR FLIP
X4: .FCTR SLEND
X5: .FCTR STRCMP
X6: .FCTR ZERO-ZNEG
X7: .FCTR ERRCX
	.NAME RC2
RTU:	.FCTR RC2-*(GETNNB,ERRMSG,VARSCN,UVT100)
@FCS11M.ODL
	.END