fortran 実行結果がうまく表示されない

質問

グローバルモジュールを用いてプログラムを書いたのですが実行結果が表示されません、プログラム中に問題があるのでしょうか？教えて下さい。
module params
implicit none
integer :: n = 2
end module params

module sample
implicit none
contains
subroutine swapvec3(x,y)
use params
real(8), intent(inout) :: x(n), y(n)
real(8) tmp(n)
tmp(1:n) = x(1:n)
x(1:n) = y(1:n)
y(1:n) = tmp(1:n)
end subroutine swapvec3
end module sample

program main
use sample
implicit none
real(8), allocatable :: a(:), b(:), tmp(:)
integer n
allocate(a(n),b(n),tmp(n))
call swapvec3(a,b)
call random_seed
call random_number(a)
call random_number(b)
call random_number(tmp)
write(*,*) ' a = ', a(1:n)
write(*,*) ' b = ', b(1:n)
write(*,*) ' tmp = ', tmp(1:n)
end program main

実行結果
　a =
b =
tmp =

回答No.1

f272 · ベストアンサー

もしかしてやりたいことは
program main
use params
use sample
implicit none
real(8), allocatable :: a(:), b(:), tmp(:)
!integer n
allocate(a(n),b(n),tmp(n))
以下省略
ということ？

お礼

そうです。program mainにuse paramsを書いてなかったから実行結果に表示されなかったんですね。もう一度プログラムをよく見てみたら理解できました。ありがとうございました。