[ create a new paste ] login | about

Link: http://codepad.org/wmbePIPb    [ raw code | fork ]

Tcl, pasted on Feb 21:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
-->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


Create a new paste based on this one


Comments: