**** Sequence /errcom from PAM geanh321 ****
      COMMON/ERRCOM/ IER(100)
C