10/06/08 02:05:16
配列の仮引数に、スカラーの実変数をsize=1の配列として渡すのって、
どうやればいいの？
下の例だと、rank mismatchでcompile通んないし、
reshape(s,1)もダメって言われた。
一回、別の配列に値をコピーするしかないのかな？
Program test
integer s
s = 1
call inc(1,s)
print *, s
Contains
Subroutine inc(n, a)
implicit none
integer, intent(in) :: n
integer, intent(inout) :: a(n)
integer i
do i = 1,n
a(i) = a(i) + 1
end do
End subroutine inc
End program test