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     ! 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.