gonum.org/v1/gonum@v0.14.0/mathext/internal/amos/amoslib/xerror.f (about)

     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