codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
-->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
Private
[
?
]
Run code
Submit