mysin Function

public pure elemental function mysin(r) result(answer)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: r

MYSIN(3f) is a trivial function for demonstration purposes.

Return Value real


Contents

Source Code

mysin

Source Code

elemental pure function mysin(r) result(answer)
!> MYSIN(3f) is a trivial function for demonstration purposes.
!  It calls the intrinsic SIN
real,intent(in) :: r
real            :: answer
   answer=sin(r)
end function mysin