cosd Interface

  1. math_trig.f90
  2. foreng_math_trig
  3. cosd

public interface cosd

Calculate where is in degrees

real(real32) :: theta_r32 = 90
real(real64) :: theta_r64 = 60

print *, cosd(theta_r32) ! = 0.000 
print *, cosd(theta_r64) ! = 0.500

Contents

Module Procedures


Module Procedures

public elemental function cosd_r32(theta) result(cosd)

Single precision

Arguments

Type IntentOptional AttributesName
real(kind=real32), intent(in) :: theta

in degrees

Return Value real(kind=real32)

public elemental function cosd_r64(theta) result(cosd)

Double precision

Arguments

Type IntentOptional AttributesName
real(kind=real64), intent(in) :: theta

in degrees

Return Value real(kind=real64)