【最大10000ポイント】当たる!!質問投稿キャンペーン!

何処の会社の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

このQ&Aに関連する最新のQ&A

A 回答 (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)あたりだと思います。
    • good
    • 0
この回答へのお礼

有難う御座います。構造計算の本のプログラムですが作者の説明ではBASICでNECのPC98と書いてましたのですが、当方ではN88BASIC、QUICKBASIC、VISUALBASICしか知りませんので困っていました。本当に助かりました、感謝致します。

お礼日時:2010/04/03 08:27

#2さんのおっしゃるとおりですね。



 20年位前にFORTRAN77使ったきりなのでほとんど忘れてますが。

参考URL:http://ja.wikipedia.org/wiki/FORTRAN
    • good
    • 0
この回答へのお礼

回答ありがとうございます。

お礼日時:2010/04/03 08:28

>DO 15 I=1,N12



こんなループ、BASICでは見たことないです。
Fortranではないですか?
    • good
    • 0
この回答へのお礼

回答ありがとうございました。

お礼日時:2010/04/03 08:29

ざっと見、基本的な命令しかないのでどのBASICでも動作すると思いますが?


(逆に言うと、特定できる専用命令が無い)
    • good
    • 0
この回答へのお礼

回答ありがとうございます。

お礼日時:2010/04/03 08:29

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング