宣言文

以下の宣言文を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 回答日時： 2008/07/16 13:22

なんというか, 「最初から Fortran をやりなおせ」と言いたい....

配列の上下界は integer じゃないといかんのよ....

この回答へのお礼

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

お礼日時：2008/07/16 16:01

No.3 回答者： Tacosan 回答日時： 2008/07/14 19:25

暗黙の規則を再確認することを強くお勧めします.

なんで maxX とか maxY を real*8 で宣言するかなぁ....

この回答への補足

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

補足日時：2008/07/16 01:26

No.2 回答者： asuncion 回答日時： 2008/07/14 14:41

> INTRINSIC mod

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

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

No.1 回答者： Tacosan 回答日時： 2008/07/14 13:18

最も簡単なのは, 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]
と出てきます。

補足日時：2008/07/14 14:16