Return to BLOCKDATA1.f CVS log

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

Annotation of researchv10no/cmd/pfort/BLOCKDATA1.f, revision 1.1

1.1     ! root        1:       BLOCK DATA
        !             2:       INTEGER EX(4,4), PT, PB, AO(4,4), RO(3,3)
        !             3:       COMMON /EXPRS/ PT, PB, AO, RO, EX
        !             4:       DATA AO(1,1), AO(1,2), AO(2,1) /3*0/, AO(1,3), AO(1,4), AO(3,1),
        !             5:      *    AO(3,2), AO(4,1), AO(4,3) /6*-1/, AO(2,2) /1/, AO(3,3) /2/,
        !             6:      *    AO(4,4), AO(2,4), AO(4,2) /3*3/, AO(3,4), AO(2,3) /2*-1/
        !             7:       DATA RO(1,1), RO(1,2), RO(2,1), RO(2,2), RO(3,3) /5*4/, RO(1,3),
        !             8:      *    RO(2,3), RO(3,1), RO(3,2) /4*-1/
        !             9:       DATA EX(1,1) /0/, EX(1,2) /0/, EX(1,3) /0/, EX(1,4) /-1/, EX(2,1)
        !            10:      *    /0/, EX(2,2) /1/, EX(2,3) /1/, EX(2,4) /-1/, EX(3,1) /-1/,
        !            11:      *    EX(3,2) /-1/, EX(3,3) /2/, EX(3,4) /-1/, EX(4,1) /-1/,
        !            12:      *    EX(4,2) /-1/, EX(4,3) /3/, EX(4,4) /-1/
        !            13:       END

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