FortranとC#の引数の引き渡し

質問

古いFORTRANのソースコードに以下のような記述がありました。サブプログラムへの引数の引き渡し方がＣ#とは大きく異なるようです。2次元の配列を1次元で引き渡したり、その逆程度あれば理解できるのですが、配列の特定の要素を2次元配列で受け取るようなやり方は配列の要素がどのように対応するのか全く理解できません。
どなたか、こうした引数の引き渡しについて、配列の要素レベルで、どのようなやりとりになるのかお教え願います。

Main側
integer mx , my , mz , lwrk , lww 整数の定義
real 　x(mx) , z(mx*my) , wrk(lwrk)　　　実数の配列の定義

mz=mx*my
call sub1( x , mx , z , mz , wrk(lww) , lwrk)　サブプログラムsub1の呼び出し

stop
end

Subroutine側
subroutine sub1( x , mx , z , mz , wrk , lwrk) 　　　サブプログラムsub1
integer mx , mz , lwrk メイン側と一致
real x(mx) , z(mz) , wrk(lwrk) メイン側と一致

call subsub1( x , mx , z , mz , kx1 , kx2 , wrk(lsx) , wrk(lax)) サブプログラムsubsub1の呼び出し

疑問１　mainでは引数がwrk(lww)ですが、サブプログラムではwrkが対応する引数になり、ここから参照するsubsub1ではwrk(lsx)を引数としています。C#であればwrk(lww)とwrk(lsx)は配列でないため、何が行われているか理解できません。

return
end

subroutine subsub1( x , mx , z , mz , kx1 , kx2 , spx , ax)　サブプログラムsubsub1
integer mx , mz , kx1 , kx2
real x(mx) , z(mz) , spx(mx,kx1) , ax(nx,kx2)

疑問2　sub1の引数wrk(lsx) , wrk(lax)が2次元の配列spx(mx,kx1) , ax(nx,kx2)に対応するようになっています。配列の引数lsxとlaxはどのような意味をもち、sub1のwrkの配列要素はどのように書き換えられるのでしょうか
do 200 it=1,mx
do 100 i=1,kx1
spx(it,i) = float(i*100)+float(it)
100 continue
200 continue

Reurn
End

回答No.2

f272 · ベストアンサー

ちょっと間違ってた。
wrk(lsx)=101.
wrk(lsx+1)=102.
wrk(lsx+2)=103.
...
wrk(lsx+mx-1)=100.+float(mx)
wrk(lsx+mx)=201.
...
wrk(lsx+mx*2-1)=200.+float(mx)
...
wrk(lsx+mx*kx1-1)=float(kx1*100)+float(mx)
だな。

補足

ポインター渡しと考え、配列の対応関係も示して頂き大変分かり易く説明して頂きどうも有り難うございました。
改めてですが、ＦＯＲＴＲＡＮとＣ＃の配列の並び順についてお教え願います。
FORTRANで定義した配列ｗｒｋ（ｎｘ，ｎｙ）はｗｒｋ（１，１），ｗｒｋ（２，１）．．．．．ｗｒｋ（ｎｘ，１），ｗｒｋ（１，２），．．．ｗｒｋ（ｎｘ，２）．．．．．ｗｒｋ（ｎｘ，ｎｙ）の順で左側要素から順に増加して存在するが、Ｃ＃で定義した配列ｗｒｋ［ｎｘ，ｎｙ］はｗｒｋ［０，０］，ｗｒｋ［０，１］．．．．．ｗｒｋ［０，ｎｙ－１］，ｗｒｋ［１，０］，．．．ｗｒｋ［１，ｎｙ－１］．．．．．ｗｒｋ［ｎｘ－１，ｎｙ－１］の順で右側要素から順に増加して並んでいると考えてよろしいのでしょうか。

回答No.3

f272

補足に対する答えは，「その通りです」

お礼

FORTRANとＣの差としての配列のポインター渡しならびに配列の具体的なイメージを簡潔にご教授頂き誠に有り難うございました。

回答No.1

f272

1.
fortranはすべてポインタ渡しだと思えばよい。
Mainでの
call sub1( x , mx , z , mz , wrk(lww) , lwrk)
のところで，すべての引数はそのアドレスが渡されます。
mx，mz，lwrkは簡単だろう。
x，zはその先頭アドレスが渡されます。
wrk(lww)はwrk(lww)のアドレスが渡されます。先頭アドレスからみるとlww-1だけ進んだところですね。

2.
> 配列の引数lsxとlaxはどのような意味をもち

すでに説明した。

> sub1のwrkの配列要素はどのように書き換えられるのでしょうか

wrk(lsx)=101.
wrk(lsx+1)=102.
wrk(lsx+2)=103.
...
wrk(lsx+mx)=100.+float(mx)
wrk(lsx+mx+1)=201.
...
wrk(lsx+mx*2)=200.+float(mx)
...
wrk(lsx+mx*kx1-1)=float(kx1*100)+float(mx)