何処の会社の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.2
- 回答日時:
>DO 15 I=1,N12
こんなループ、BASICでは見たことないです。
Fortranではないですか?
No.3
- 回答日時:
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しか知りませんので困っていました。本当に助かりました、感謝致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- TOEFL・TOEIC・英語検定 熟語で、may がmight になるのはどういう時ですか? 3 2022/06/20 14:41
- 数学 単振り子とルンゲ・タック法 1 2022/07/15 00:05
- C言語・C++・C# 宣言する関数の形が決まっている状態で、 str1とstr2の文字列をこの順に引っ付けてstrに保存し 2 2022/05/30 18:21
- UNIX・Linux 次の要件を満たすにはどのように修正したらよろしいでしょうか 1 2022/11/24 20:57
- 数学 数学2B入門問題精講 第4章 三角関数 練習問題9 次の2直線l1,l2のなす角の大きさをそれぞれ求 1 2023/04/11 16:21
- タブレット AndroidタブレットのWIDEVINEについて 2 2023/07/25 19:38
- 物理学 問題の問2について質問なのですが、 明線条件、経路差Δ=2(L2-L1)=mλより 2(L2-L1) 5 2023/01/10 19:03
- 電気工事士 第一電気工事士技能試験について 1 2022/12/13 11:21
- C言語・C++・C# c言語の問題の説明、各所ごとに 5 2023/07/26 11:03
- その他(悩み相談・人生相談) リモコンスイッチの挟み込みの際にN1.N2.L1.L2の2種類のリモコンスイッチがあったのですが、L 1 2022/04/14 10:08
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
<unistd.h>をVisualStudioでつ...
-
math.hに含まれる関数が使えない
-
C言語をコンパイルするとコンピ...
-
実行後にコンパイルに失敗しま...
-
アプリケーションのDLLファイル...
-
<math.h>ヘッダを入力している...
-
lhafileをインストールしたい
-
MVSマシンで0C7でABENDしたので...
-
三角関数
-
c言語です コンパイルした時に...
-
VS2010環境で2点ほど質問
-
プログラム Arduino
-
WindowsAPIプログラムをgccでコ...
-
Verilog_HDLでのdefineとifdef
-
コンパイル失敗と表示されまし...
-
ビルダーとは何ですか?
-
[COBOL] ソースの復帰
-
Cのコンパイルでコメントアウト...
-
Makefileでのコンパイル方法
-
c言語でログイン処理はできます...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
<unistd.h>をVisualStudioでつ...
-
アプリケーションのDLLファイル...
-
共有ライブラリの内容確認について
-
シリアル通信の受信待ちについて
-
C#で char型とstring型の比較で...
-
64ビットのlinuxで32ビットメモ...
-
Verilog_HDLでのdefineとifdef
-
math.hに含まれる関数が使えない
-
自作DLLの中身を暗号化
-
C言語で作ったらWindowsでもMac...
-
実行後にコンパイルに失敗しま...
-
lhafileをインストールしたい
-
c言語です コンパイルした時に...
-
ビープ音が鳴りません・・・
-
すべてのリビルド: 0 正常、 0 ...
-
gcc バージョン違いによるコン...
-
Cのコンパイルでコメントアウト...
-
CLRアプリと通常のアプリとの違い
-
「インクルードファイル 'pthre...
-
MVSマシンで0C7でABENDしたので...
おすすめ情報