CDECK  ID>, P_FATAM.
      SUBROUTINE P_FATAM (MSG)

      CHARACTER    MSG*(*)

      CALL PERRORF ('Perror has')
      CALL P_FATAL (MSG)
      END
