-->fmod.f90
real*8, dimension(6), intent(inout) :: indata1
real, dimension(7,8), intent(inout) :: indata2
-->test_f.f90
subroutine temp_f_2(indata1, indata2)
include 'fmod.f90'
integer i, j
do i=1,8
indata1(i) = 2.0
end do
do i=1,7
do j= 1,8
indata2(i,j) = 1.0
end do
end do
end subroutine