!***********************************************************************
!*                                                                     *
!* dummy procedures to substitute for the optimiser components         *
!*                                                                     *
!***********************************************************************
!*
%externalroutine Op4 Init(%integer Comad)
%end
!*
%externalroutine Op4 Init1(%integer Comad)
%end
!*
%externalroutine Reset Oplist
%end
!*
%externalintegerfn Op4 Subprog
   %result=0
%end
!*
%externalintegerfn Op4 Save
   %result=0
%end
!*
%externalintegerfn Op4 Ref(%string(63) S)
   %result=0
%end
!*
%externalroutine Op4 Argref(%string(63) s)
%end
!*
%externalroutine Optsource(%integer a,b,c,d,e,f)
%end
!*
%externalroutine Optctl(%integer Acom,Nexttr,Bits,Assgotos)
%end
!*
%endoffile