C                                           *--> FROM COMMON.PPTIME
      COMMON /PPTIME/ ISTRUN,IENRUN,ILCRUN,IFPTR,IDSRUN,IDERUN,IDLRUN
C