cosd Function

public elemental function cosd(angle_in_degrees)

Arguments

Type IntentOptional Attributes Name
class(*), intent(in) :: angle_in_degrees

Return Value real


Contents

Source Code

cosd

Source Code

elemental real function cosd(angle_in_degrees)

! ident_59="@(#) M_pixel cosd(3f) cos(3f) with degrees as input instead of radians"

class(*),intent(in) :: angle_in_degrees
real                :: angle_in_degrees_local
   angle_in_degrees_local=anyscalar_to_double(angle_in_degrees)
   cosd=cos(angle_in_degrees_local*degrees_to_radians)
end function cosd