qpms/amos/xerror.f

23 lines
550 B
FortranFixed
Raw Normal View History

SUBROUTINE XERROR(MESS,NMESS,L1,L2)
C
C THIS IS A DUMMY XERROR ROUTINE TO PRINT ERROR MESSAGES WITH NMESS
C CHARACTERS. L1 AND L2 ARE DUMMY PARAMETERS TO MAKE THIS CALL
C COMPATIBLE WITH THE SLATEC XERROR ROUTINE. THIS IS A FORTRAN 77
C ROUTINE.
C
CHARACTER*(*) MESS
NN=NMESS/70
NR=NMESS-70*NN
IF(NR.NE.0) NN=NN+1
K=1
PRINT 900
900 FORMAT(/)
DO 10 I=1,NN
KMIN=MIN0(K+69,NMESS)
PRINT *, MESS(K:KMIN)
K=K+70
10 CONTINUE
PRINT 900
RETURN
END