       .TITLE DLOG	 COMPUTE NATURAL LOGARITHM FOR DOUBLE ARGUMENT
/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP., MAYNARD, MASS.
/EDIT 2   10-22-70
       .GLOBL DLOG,.AO,.AS,.DA,.DE
       .TITLE DLOG	 COMPUTE NATURAL LOGARITHM FOR DOUBLE ARGUMENT
       .GLOBL DLOG,.AO,.AS,.DA,.DE
/	    CALLING SEQUENCE
/      JMS*   (DLOG)	SUBR CALL
/      JMP    .+2		SUBR RETURN
/      CAL/XCTADDR		ADDR OF ARGUMENT (XCT IF INDIRECT)
/
DLOG   CAL    0	         /ENTRY-EXIT
       JMS*   .DA	         /GET ARGUMENT (.DA)
       JMP    DLOG02
DLOG01 CAL    0	         /ARGUMENT
DLOG02 JMS*   .AO	         /LOAD DOUBLE (.AO)
       .DSA   DLOG01+400000
       JMS*   .DE	         /COMPUTE LOG2(ARG) (.DE)
       JMS*   .AS	         /MULTIPLY DOUBLE (.AS)
	.DSA	DLOG07	/ *** DDS JAN69 ***
       JMP*   DLOG	         /EXIT
DLOG07	    0	         / LOGE(2) (1)  (0.6931471806)
	    261344         /         (2)
	    137700         /         (3)
       .END
