モジュール副プログラムでつまづいた

 SOR法のプログラムを作ろうと思ったが、モジュール副プログラムでつまづいてしまった。以下は未完成のプログラム。program mainの中の !部を修正したらエラーは出なかった。 


module subprogs
implicit none
contains
subroutine set_dbc(phi,x,n1,n2)
integer x,n1,n2
integer i,j
real(8) phi(n1,n2),pi
do i=1,n1
do j=1,n2
phi(i,j) = 0.0d0
enddo
enddo
pi = 2.0d0 * acos(0.0d0)
write(*,*)pi


end subroutine set_dbc
end module subprogs


program main
use subprogs
implicit none
integer::x=1
integer::n1=10
integer::n2=10

real(8)::phi(10,10)                  !phi(n1,n2)とするとエラー
integer i,j
call set_dbc(phi,x,n1,n2)

end program main

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0

この記事へのコメント

この記事へのトラックバック