>>624さま
レス本当にありがとうございます。試しに20番目の配列の大きさを小さめに
して実行してみたら、その部分はエラー無く動きました。
しかし、同じルーチンの他のいくつかの引数についても同様のエラーが
出たので、次々に配列を小さくしていったのですが、今度はそれらの
引数をwriteするところで、format/data mismatchが出てしまいました。

これらの次数とformatの指定を丹念に調節する以外になにか方法は
ありますでしょうか。古いルーチンに合うコンパイラが必要？
以下は、call文とサブルーチンの頭です。サブルーチンは、
インプットファイルからデータを読む働きをするものです。

CALL READT(TVA,RAR1,RAR2,ASA,INVECT,TVB,IDEG,NL,V,VL,JJS,TST,
& TSTS,THETA,FI,LMMAX,NPSI,ES,PHSS,PHSS2,L1,IPR,NEL)

SUBROUTINE READT(TVA,RAR1,RAR2,ASA,INVECT,TVB,IDEG,NL,V,VL,JJS,
& TST,TSTS,THETA,FI,LMMAX,NPSI,ES,PHSS,PHSS2,L1,IPR,NEL)
COMPLEX VL(NL,2)
DIMENSION ARA1(2),ARA2(2),RAR1(2),RAR2(2),ASA(10,3),ARB1(2)
DIMENSION ARB2(2),RBR1(2),RBR2(2)
DIMENSION CPARB1(2),CPARB2(2),PHSS2(NPSI,80)
DIMENSION V(NL,2),JJS(NL,IDEG),ES(NPSI),PHSS(NPSI,80)
DIMENSION IT1(5),THDB(5),AM1(5),FPER1(5),FPAR1(5),DR01(5)
DIMENSION DRPER1(5),DRPAR1(5)