SUBROUTINE INTLC
      CALL WS_ERROR(101,'W')
      CALL WS_ERROR(102,'F')
C
      RETURN
      END