Google
 

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