形状引継ぎ配列（モジュール使用）

module cal_sum_mod

! Description:

!

! Author: am

!

! Host: aofd30

! Directory: /work2/am/teaching/21.Fortran/02.interface_mod

!

! Revision history:

!  2011-05-09 09:01

!    Initial Version

!  use

!  implicit none

contains

  subroutine cal_sum(a,s)

  ! Description:

  !

  ! Author: am

  !

  ! Host: aofd30

  ! Directory: /work2/am/teaching/21.Fortran/01.interface

  !

  ! Revision history:

  !  2011-05-09 08:42

  !    Initial Version

    real,intent(in) :: a(:)

    real,intent(out) :: s

    write(*,'(a)')'Subroutine: cal_sum'

    write(*,*)''

    n=size(a,1)

    print *,'n= ',n

    do i=1,n

      s=s+a(i)

    enddo !i

    write(*,'(a)')'Done subroutine cal_sum.'

    write(*,*)

  end subroutine cal_sum

end module cal_sum_mod

program test_cal_sum_mod

! Description:

!

! Author: am

!

! Host: aofd30

! Directory: /work2/am/teaching/21.Fortran/02.interface_mod

!

! Revision history:

!  2011-05-09 09:02

!    Initial Version

  use cal_sum_mod

!  implicit none

  integer,parameter :: n=10

  real a(n)

  write(*,'(a)')'Program test_cal_sum_mod starts.'

!  write(*,*)''

  do i=1,n

    a(i)=float(i)

  enddo !i

  call cal_sum(a,s)

  print *,'i, a(i)'

  do i=1,n

    print *,i,a(i)

  enddo !i

  print *

  print *,'sum= ',s

  print *

  write(*,'(a)')'Done program test_cal_sum_mod.'

  write(*,*)

end program test_cal_sum_mod