宣言文

質問

以下の宣言文をimplicit noneで宣言したい場合、
どのようにしたらよいのか、教えて下さい。

implicit real*8 (a-h,o-z)
parameter(maxX=500,maxY=500)
parameter(xS=0.0d0,xE=1.0d0)
parameter(yS=0.0d0,yE=1.0d0)
parameter(numX=400,numY=400)
parameter(nstepT=5000)
parameter(nfile =200)
*
real*8 Tarr_M(0:maxX,0:maxY), Tarr_P(0:maxX,0:maxY)
real*8 Earr_M(0:maxX,0:maxY),EParr_M(0:maxX,0:maxY)
real*8 Parr_M(0:maxX,0:maxY), Parr_P(0:maxX,0:maxY)
real*8 Vect_P(0:maxX,0:maxY,1:3)

回答No.4

Tacosan · ベストアンサー

なんというか, 「最初から Fortran をやりなおせ」と言いたい....
配列の上下界は integer じゃないといかんのよ....

お礼

そうなんすか！？
テキストにそんなこと書いてなかったです。
ありがとうございます♪

回答No.3

Tacosan

暗黙の規則を再確認することを強くお勧めします.
なんで maxX とか maxY を real*8 で宣言するかなぁ....

補足

real*8はintegerを包括してると考えているので、こっちの方が融通きくのかなと思い、宣言してます。
厳格に、整数だから、integerで宣言しとくのがベターなんでしょうか？

回答No.2

asuncion

> INTRINSIC mod
>
> エラーで
> Error: The intrinsic data types of the arguments must be the same. [MOD]

mod関数を呼び出しているところのソースを見せてください。
Fortranであることを、できれば明記していただきたいところです。

回答No.1

Tacosan

最も簡単なのは, parameter 文の前にでも適切な型宣言を入れておくこと.

補足

現在、なんとかここまでいきました。
implicit none
real*8 pi,dx,dy,dt,Te,gamma,alpha,a_const,valK_const
real*8 e_bar,theta0,delta,j_num,val_tau,nwrite
real*8 nstepT,nfile,ix,iy
real*8 ic,istep
real*8 maxX,maxY,xS,xE,yS,yE,numX,numY,nstep
*
parameter (maxX=500,maxY=500)
parameter (xS=1.0d0,xE=1.0d0)
parameter (yS=0.0d0,yE=1.0d0)
parameter (numX=400,numY=400)
parameter (nstepT=5000)
parameter (nfile=200)
*
real*8 Tarr_M(0:maxX,0:maxY), Tarr_P(0:maxX,0:maxY)
real*8 Earr_M(0:maxX,0:maxY),EParr_M(0:maxX,0:maxY)
real*8 Parr_M(0:maxX,0:maxY), Parr_P(0:maxX,0:maxY)
real*8 Vect_P(0:maxX,0:maxY,1:3)
*
real*8 P_work(0:maxY),Q_work(0:maxY),Tarr_W(0:maxX,0:maxY)
*
character*15 ofile
LOGICAL*1 character*1 ihun,isen,iten,ione
INTRINSIC mod

エラーで
Error: The intrinsic data types of the arguments must be the same. [MOD]
と出てきます。