commonを使った配列の宣言の方法

Question

質問内容

基本的なことをお聞きいたしますが，ご了承ください．
現在Fortran90を使ってcommonで配列を渡そうとしています．
しかし，最初の配列の宣言とcommonで2回宣言しているというエラーが表示されます．
どのように宣言すれば良いのでしょうか．
ネットで調べてもcommonの使用は非推奨であまり出てきませんでした．
わかる方いましたら，どうかよろしくお願いいたします．

該当のソースコード

implicit none
integer, parameter::nx=21
integer, parameter::ny=21
integer, parameter::nz=21
real*8 temp(0:nx,0:ny,0:nz)
common / coor1/ temp(0:nx,0:ny,0:nz)

エラーメッセージ

Error: Duplicate DIMENSION attribute specified at (1)

Answer 1

配列サイズは、型宣言文か、COMMON文か、どちらか一方で宣言します。

Comments

[tomonari]

ありがとうございます．
重ねてお聞きしたいのですが，以下のようなプログラムで型宣言しているのにも関わらず，エラーメッセージ(Error: Symbol 'ep' at (1) has no IMPLICIT type)が出てしまう理由についても教えていただけないでしょうか．

106 !----------------------------------------------------------------
107 subroutine init
108
109 implicit none
110 integer, parameter::nx=21
111 integer, parameter::ny=21
112 integer, parameter::nz=21
113 integer imax,jmax,kmax,nstep,nout,locl,loop,cout,i,j,k
114 double precision temp(0:nx,0:ny,0:nz),qmin(0:nx,0:ny),qmax(0:nx,0:ny),&
115 rho, ep, sig, cp, cond, alpha, dt, z1, x1, y1, rs, x, y, z, tmax, tinf,&
116 tm, eta, cfl, ss, phi, dx, dy, dz, dt, dd, rs, time, pp
117 common /aray1/ temp
118 ! & temp_c(0:nx,0:ny,0:nz)
119 common /aray2/ qmin,qmax
120 common /coor1/ tinf, rho, ep, sig, time,pp
121 common /coor2/ imax, jmax, kmax, nstep, nout
122 common /coor3/ dd, dt, dx, dy, dz, phi, ss, cfl, eta, tmax, tm
123 common /coor5/ x1, y1, z1, rs

[otn]

double precision文にエラーがあるからでしょうね。