codekingpro/portable-devtools
114k
1module fortfuncs
2 implicit none
3contains
4 subroutine square(x,y)
5 integer, intent(in), value :: x
6 integer, intent(out) :: y
7 y = x*x
8 end subroutine square
9end module fortfuncs
10 1module fortfuncs
2 implicit none
3contains
4 subroutine square(x,y)
5 integer, intent(in), value :: x
6 integer, intent(out) :: y
7 y = x*x
8 end subroutine square
9end module fortfuncs
10