mysqrt Function

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

Arguments

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

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

Return Value real


Contents

Source Code

mysqrt

Source Code

elemental pure function mysqrt(r) result(answer)
!> MYSQRT(3f) is a trivial function for demonstration purposes.
!  It calls the intrinsic SQRT
real,intent(in) :: r
real            :: answer
   answer=sqrt(r)
end function mysqrt