23 lines
550 B
FortranFixed
23 lines
550 B
FortranFixed
|
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
|