8 lines
192 B
Forth
8 lines
192 B
Forth
module elemFunc
|
|
contains
|
|
elemental function multiply(x, y)
|
|
real, intent(in) :: x, y
|
|
real :: multiply
|
|
multiply = x * y
|
|
end function multiply
|
|
end module elemFunc
|