Return to BLOCKDATA1.f CVS log

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

researchv10 Norman

      BLOCK DATA
      INTEGER EX(4,4), PT, PB, AO(4,4), RO(3,3)
      COMMON /EXPRS/ PT, PB, AO, RO, EX
      DATA AO(1,1), AO(1,2), AO(2,1) /3*0/, AO(1,3), AO(1,4), AO(3,1),
     *    AO(3,2), AO(4,1), AO(4,3) /6*-1/, AO(2,2) /1/, AO(3,3) /2/,
     *    AO(4,4), AO(2,4), AO(4,2) /3*3/, AO(3,4), AO(2,3) /2*-1/
      DATA RO(1,1), RO(1,2), RO(2,1), RO(2,2), RO(3,3) /5*4/, RO(1,3),
     *    RO(2,3), RO(3,1), RO(3,2) /4*-1/
      DATA EX(1,1) /0/, EX(1,2) /0/, EX(1,3) /0/, EX(1,4) /-1/, EX(2,1)
     *    /0/, EX(2,2) /1/, EX(2,3) /1/, EX(2,4) /-1/, EX(3,1) /-1/,
     *    EX(3,2) /-1/, EX(3,3) /2/, EX(3,4) /-1/, EX(4,1) /-1/,
     *    EX(4,2) /-1/, EX(4,3) /3/, EX(4,4) /-1/
      END

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