.SD;.FL CAPITALIZE
.TITLE PRED - THE INVERSE OF THE SUCCESSOR FUNCTION.
.PAGE
.INDENT 50
PRED
.SKIP 1
.CENTER
PRED - THE INVERSE OF THE SUCCESSOR FUNCTION.
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: PRED\\
.SKIP 1
.INDENT -10
^^PURPOSE:\\ ^THE INVERSE OF THE SUCCESSOR FUNCTION.
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM <FORTRAN
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ <STRING -- ^BYTE ARRAY MODIFIED IN PLACE TO LOGICAL PREDECESSOR
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ NONE
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10
^^WRITTEN:\\ LONG AGO
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ <MACRO-11
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^PRED 
.SKIP 1
.INDENT -10
^^LIBRARY:\\ <DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ LONG AGO
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^JACK ^MARTINELLI OR ^MIKE ^HIGGINS
.SKIP 1
.INDENT -10