!*************************************************************************
! include in OPTCTL 
!*************************************************************************
!*
%OWNINTEGER COMAD,CHEAD0,CHEAD1,CHEAD2,CHEAD3
!*
%EXTERNALINTEGERFNSPEC COERCE CONST(%INTEGER A,OLDMODE,NEWMODE,
                                        ADICT,%INTEGERNAME DPTR)
%EXTERNALINTEGERFNSPEC CONST EVAL(%INTEGER RESL,OP,RESR,
       %RECORD(RESF)%NAME RES,%INTEGER ADICT,%INTEGERNAME DPTR)
%EXTERNALINTEGERFNSPEC SETCONREC(%RECORD(RESF) R)
%EXTERNALINTEGERFNSPEC CONIN(%INTEGER VAL)
!*
!***********************************************************************
! end include targ_constfns
!************************************************************************