source: trunk/fsource/powsubs/tand.for @ 200

Last change on this file since 200 was 200, checked in by vondreele, 12 years ago

first commit

File size: 421 bytes
RevLine 
[200]1      REAL*4 FUNCTION TAND(ARG)
2
3!PURPOSE: Calculate tangent from angle in deg.
4
5      INCLUDE       '../INCLDS/COPYRIGT.FOR' 
6
7!CALLING ARGUMENTS:
8
9      REAL*4        ARG                 !Tangent argument in degrees
10
11!INCLUDE STATEMENTS:
12
13!LOCAL VARIABLES:
14
15!FUNCTION DEFINITIONS:
16
17!DATA STATEMENTS:
18
19      DATA  RPD/0.017453292519943/
20
21!CODE:
22
23      TAND = TAN(ARG*RPD)
24      RETURN
25      END
Note: See TracBrowser for help on using the repository browser.