'HEAD'  REGISTER FOR CONDITIONAL
C     EDIT DATE   10DEC78  20:16
C     SOURCE FILE REGLEVAJH.FS
C     AUTHOR      A. J. HOWARD
C     CLUSTER     20
      'OUTFILE'   REGLEVAJH.FR
      SUBROUTINE  REGLEV (FUNC)
      INTEGER     FUNC
      EXTERNAL    OLREG, OLCRM
N     EXTERNAL    OLRDM
      'INCLUDE'   LOGOSAJH.IN,
      'INCLUDE'   CPAREAJH.IN,
      CONTINUE   //CALL OVLOD (OLREG)
      CALL REGDMP (8)
      CONTINUE   //CALL OVLOD (OLCRM)
N     CONTINUE   //CALL OVLOD (OLRDM)
      GO TO (100, 200, 300, 400, 500), FUNC
100   CALL STKREG (NESTX, 2)
      RETURN
200   CALL EXRGLV (TNESTX, 2)
      GO TO 310
300   CALL MRGREG (NESTX, 2)
310   CONTINUE   //CALL OVLOD (OLREG)
      CALL REGDMP (9)
      RETURN
400   CALL STKREG (CLX, 1)
      RETURN
500   CALL MRGREG (I, 1)
      RETURN
      END