Return to ERROR1.f CVS log

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

researchv10 Norman

      SUBROUTINE ERROR1(MESS, LMESS)
C
      INTEGER MESS(20), LMESS
      INTEGER ZERO(1)
C
      DATA ZERO(1) /0/
C
      CALL ERROR2(MESS, LMESS, ZERO(1), ZERO(1), 1, 1)
C
      RETURN
C
      END

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