|
|
1.1 root 1: block data
2: logical a1
3: character *8 f
4: common /beta/b(3,3) /gam/c(4)
5: common /alpha/ a1,f,e,d
6: data b/1.1,2.5,3.8,3*4.96,2*0.52,1.1/,
7: & c/1.2e0,3*4.0/
8: data a1/.true./, e/-5.6/
9: data f/'xyz'/
10: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.