Trailing-Edge
-
PDP-10 Archives
-
decus_20tap4_198111
-
decus/20-0101/dafuns.for
There are 2 other files named dafuns.for in the archive. Click here to see a list.
00100 DOUBLE PRECISION FUNCTION DARSIN(ZBAK) CF150010
00200 DOUBLE PRECISION ZBAK CF150011
00300 Z=ZBAK CF150012
00305 C
00310 C THE FOLLOWING LINE APPEARS TO BE INCORRECT AND HAS BEEN
00320 C REPLACED WITH THE LINE WHICH FOLLOWS IT. HDT, WESLEYAN UNIV.
00400 C DARSIN=ASIN(X) CF150013
00450 DARSIN=ASIN(Z)
00500 RETURN CF150014
00600 END CF150015
00700 DOUBLE PRECISION FUNCTION DARCOS(ZBAK) CF1600 1
00800 DOUBLE PRECISION ZBAK CF160010
00900 Z=ZBAK CF160011
00920 C
00940 C THE FOLLOWING LINE APPEARS TO BE INCORRECT AND HAS BEEN
00960 C REPLACED WITH THE LINE WHICH FOLLOWS IT. HDT, WESLEYAN UNIV.
01000 C DARCOS=ACOS(X) CF160012
01050 DARCOS=ACOS(Z)
01100 RETURN CF160013
01200 END CF160014