くだすれFORTRAN（超初心者用）その3

くだすれFORTRAN（超� ..

481:デフォルトの名無しさん
08/08/22 14:36:14
module dummyproc
contains
subroutine callback(x)
real(8), dimension(0:) :: x
end subroutine

subroutine forward(cb,x)
interface
subroutine cb(x)
real(8), dimension(:) :: x
end subroutine
end interface
real(8), dimension(:) :: x

call cb(x)
end subroutine
end module

use dummyproc
real(8), dimension(5) :: x
x = (/1d0, 2d0, 3d0, 4d0, 5d0/)
call forward(callback, x)
end

次ページ

続きを表示

1を表示