|
|
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.