	SUBROUTINE ERRMSG( S)
	COMMON /ERRBLK/IERR
	INTEGER*4 IERR(5)
	CHARACTER  S*6
	TYPE 4, S,IERR(4),IERR(5)
4	FORMAT(' ERROR IN SUBROUTINE ',A,'  IERR(4),IERR(5)=',2I4)
	RETURN
	END
