RosettaCodeData/Task/Function-definition/Fortran/function-definition-5.f

module elemFunc
contains
    elemental function multiply(x, y)
        real, intent(in) :: x, y
        real :: multiply
        multiply = x * y
    end function multiply
end module elemFunc
A-M baby 2013-04-10 21:29:02 -07:00			`module elemFunc`
			`contains`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`elemental function multiply(x, y)`
A-M baby 2013-04-10 21:29:02 -07:00			`real, intent(in) :: x, y`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`real :: multiply`
			`multiply = x * y`
A-M baby 2013-04-10 21:29:02 -07:00			`end function multiply`
			`end module elemFunc`