|
|
1.1 ! root 1: common (cstak) ds ; long real ds(500) ! 2: real ws(500) ! 3: real rs(1000) ; integer is(1000) ; complex cs(500) ; logical ls(1000) ! 4: equivalence ds(1),cs(1),ws(1),rs(1),is(1),ls(1)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.