amos/xerror.f

   1       SUBROUTINE XERROR(MESS,NMESS,L1,L2)
   2 C
   3 C     THIS IS A DUMMY XERROR ROUTINE TO PRINT ERROR MESSAGES WITH NMESS
   4 C     CHARACTERS. L1 AND L2 ARE DUMMY PARAMETERS TO MAKE THIS CALL
   5 C     COMPATIBLE WITH THE SLATEC XERROR ROUTINE. THIS IS A FORTRAN 77
   6 C     ROUTINE.
   7 C
   8       CHARACTER*(*) MESS
   9       NN=NMESS/70
  10       NR=NMESS-70*NN
  11       IF(NR.NE.0) NN=NN+1
  12       K=1
  13       PRINT 900
  14   900 FORMAT(/)
  15       DO 10 I=1,NN
  16         KMIN=MIN0(K+69,NMESS)
  17         PRINT *, MESS(K:KMIN)
  18         K=K+70
  19    10 CONTINUE
  20       PRINT 900
  21       RETURN
  22       END