Return to ERROR1.f CVS log

Up to [Research Unix] / researchv10no / cmd / pfort

Annotation of researchv10no/cmd/pfort/ERROR1.f, revision 1.1.1.1

1.1       root        1:       SUBROUTINE ERROR1(MESS, LMESS)
                      2: C
                      3:       INTEGER MESS(20), LMESS
                      4:       INTEGER ZERO(1)
                      5: C
                      6:       DATA ZERO(1) /0/
                      7: C
                      8:       CALL ERROR2(MESS, LMESS, ZERO(1), ZERO(1), 1, 1)
                      9: C
                     10:       RETURN
                     11: C
                     12:       END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.