tand – Foreng

public interface tand

Calculate $\tan(\theta)$ where $\theta$ is in degrees

real(real32) :: theta_r32 = 45
real(real64) :: theta_r64 = -45

print *, tand(theta_r32) ! = 1.000 
print *, tand(theta_r64) ! = -1.000

tand_r32 tand_r64

Single precision

Type	Intent	Optional	Attributes		Name
real(kind=real32),	intent(in)			::	theta	$\theta$ in degrees

Double precision

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	theta	$\theta$ in degrees