何処の会社の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
No.4ベストアンサー
- 回答日時:
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)あたりだと思います。
有難う御座います。構造計算の本のプログラムですが作者の説明ではBASICでNECのPC98と書いてましたのですが、当方ではN88BASIC、QUICKBASIC、VISUALBASICしか知りませんので困っていました。本当に助かりました、感謝致します。
No.3
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アプリケーションのDLLファイル...
-
<unistd.h>をVisualStudioでつ...
-
Makefileでのコンパイル方法
-
共有ライブラリの内容確認について
-
.NET Frameworkの使用有無を知...
-
ビープ音が鳴りません・・・
-
C# exeファイルのダブルクリック
-
C言語で、配列を使ったsinカー...
-
latex cite, ref
-
gcc コンパイル killed
-
バージョンの違うライブラリを...
-
Cのコンパイルでコメントアウト...
-
64ビットのlinuxで32ビットメモ...
-
python エラー
-
エクセルのエラーメッセージ「4...
-
Makefile作成時の拡張子.oとは?
-
ソフトの開発言語を調べる方法
-
エクセルVBAではRound...
-
VB5の逆コンパイルについて
-
ビルド失敗 指定されたファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アプリケーションのDLLファイル...
-
<unistd.h>をVisualStudioでつ...
-
すべてのリビルド: 0 正常、 0 ...
-
lhafileをインストールしたい
-
C#で char型とstring型の比較で...
-
gcc コンパイル killed
-
[COBOL] ソースの復帰
-
c言語です コンパイルした時に...
-
実行後にコンパイルに失敗しま...
-
共有ライブラリの内容確認について
-
ビープ音が鳴りません・・・
-
gcc バージョン違いによるコン...
-
64ビットのlinuxで32ビットメモ...
-
NASMとMASMの違い
-
C言語で作ったらWindowsでもMac...
-
math.hに含まれる関数が使えない
-
MVSマシンで0C7でABENDしたので...
-
ccとgcc
-
「インクルードファイル 'pthre...
-
自作DLLの中身を暗号化
おすすめ情報