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

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.