結果が常にゼロで出力される

Question

fortran90のプログラムです。結果が常にゼロで出力されてしまいます

コンパイラはgfortran、OSはubuntsuを使っています。
よろしくお願いいたします。

program test4

implicit none
integer::a,b,s,v


   interface
      subroutine SIGMA(v,a,b,s)
         implicit none
         integer            ::a,b !
         integer            ::v   !
         integer            ::s
      end subroutine
   end interface

a=1.0
b=5.0
call SIGMA(v,a,b,s)
write(*,*) 'ss=',s
stop
end program test4



subroutine func(x,v)
      implicit none
      integer            ::v
      integer            ::x
         v=x*x*10
         return
  end subroutine func

subroutine SIGMA(v,a,b,s)
      implicit none
      integer           ::a ,b !
      integer           ::v
      integer           ::x
      integer           ::i ,s


      interface
        subroutine func(x,v)
        implicit none
        integer           ::v
        integer           ::x
        end subroutine
      end interface

      call  func(x,v)
            s=0
         do i= a,b
            x=i
            s=s+v
         end do
      return
 end subroutine SIGMA

Answer 1

ここの call func(x,v) がループの中にないので常に v==0 となってしまいますよね？

      call  func(x,v)
            s=0
         do i= a,b
            x=i
            s=s+v
         end do

Comments

[takashi.f]

できました！！本当にありがとうございました。
本当に困っていたんで、ありがとうございました。

[mather]

ちなみに、どの位置に `call func(x,v)` を入れましたか？
それ次第ではそもそも期待した結果とは異なる可能性があります。

[takashi.f]

ここにいれました。期待した結果を出力することができました。
do i= a,b
x=i
s=s+v
call func(x,v)
end do