source: trunk/fsource/powsubs/acosd.for @ 209

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

fortran fixes - new self contained libraries
had to change all INCLUDE copyright lines.

File size: 396 bytes
RevLine 
[200]1      REAL*4  FUNCTION  ACOSD(ARG)
2
3!PURPOSE:
4
[209]5      INCLUDE       'INCLDS/COPYRIGT.FOR' 
[200]6
7!CALLING ARGUMENTS:
8
9      REAL*4        ARG                 
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      ARG1 = MIN(1.0,MAX(-1.0,ARG))
24      ACOSD = ACOS(ARG1)/RPD
25      RETURN
26      END
Note: See TracBrowser for help on using the repository browser.