質問: 何処の会社のbasicか教えて下さい。 何処の会社のbasicか教えて下さい。 下記のようなソースファイルです。 宜しくお願いします。 dimension ebk(20,20),eck(20,20),sh(20),sl(20),crm(20,20), 1clm(20,20),q(20),som(20),cdm(20,20),cum(20,20),bml(20,20), 2bmr(20,20),bmu(20,20),bmd(20,20),dvl(20,20),dvr(20,20),dvu(20,20), 3dvd(20,20),rvu(20,20),rvd(20,20),tml(20,20),tmr(20,20), 4tmd(20,20),tmu(20,20),rmd(20,20),rmu(20,20),bbml(20,20), 5bbmr(20,20),bbmd(20,20),bbmu(20,20),tql(20,20),tqr(20,20), 6tmq(20,20),qll(20,20),qlr(20,20),cmm(20,20),tmm(20,20) read(5,10) m,l read(5,10) n1,l1 n12=nl+2 n13=n1+1 l12=ll+2 l13=l1+1 10 format(2i5) do 15 i=1,n12 do 15 j=1,l12 ebk(i,j)=0.0 eck(i,j)=0.0 15 continue read(5,11)((ebk(i,j),j=2,l13),i=2,n12) read(5,11)((eck(i,j),j=2,l12),i=2,n13) 11 format(7f10.2) read(5,11)(sh(i),i=2,n13) read(5,11)(sl(i),i=2,l13) if(l-1)20,30,30 20 do 21 i=2,n12 do 21 j=1,l12 read(5,12)clm(i,j),crm(i,j),cmm(i,j),qll(i,j),qlr(i,j) 21 continue 12 format(5f10.2) do 40 i=2,n12 do 40 j=1,l12 clm(i,j)=-crm(i,j) 40 continue
回答: fortran66または、それ以前のfortranの水準3000/5000/7000と言われていた当時のもの、fortran77以降の規格に準拠した部分はこの範囲には無い。計算形goto分を使っていることから見てもか30年以上前に書かれたなり古いプログラムだと思います(構造形if分が導入されてからほとんど使ったことがない)。 このプログラムの記述自体は最初期のfortran iやiiでも理論上はコンパイル可能だと思うけど、多分、当時のコンピュータibm/360等でやってみるとコア(今で言うメモリ)不足でコンパイルが途中で止まると思う。コンパイルできたとしても、実行も同様に無理じゃないかな。 会社は不明だけど、このレベルのfortranを使えたのはホストとvaxくらい。vaxやcdcのプログラマには独特の癖があるので、このプログラムはホスト、当時で言うと、ibm、facom osiv msp/fsp、hitac vos1/3、nec acos4/6、東芝tosbac(東芝撤退後、acos6に吸収)、burroughs(現unisys)、univac(現unisys)あたりだと思います。