C                                           *--> FROM COMMON.SURG26
      COMMON/ERRV26/IERR,IPT,VALUE1,VALUE2
C