sw/os8/v3d/sources/fortran/dectapes/dectape1/alog10.ra

   1 /
   2 /
   3 /       A  L  O  G  1  0
   4 /       -  -  -  -  -  -
   5 /
   6 / VERSION 5A 4-27-77  PT
   7 /
   8 /SUBROUTINE     ALOG10(X)
   9         SECT    ALOG10
  10         JA      #ALOG
  11         TEXT    +ALOG10+
  12 LOGXR,  SETX    XRLOG
  13         SETB    BPLOG
  14 BPLOG,  FNOP
  15         0
  16         0
  17 XRLOG,  F 0.0
  18 LOG1,   F 0.0
  19 ALOG1C, 7777    /FUDGE CONSTANT
  20         3362
  21         6754
  22         ORG     10*3+BPLOG
  23         FNOP
  24         JA      LOGXR
  25         0
  26 LOGRTN, JA      .
  27         BASE    0
  28 #ALOG,  STARTD
  29         FLDA    10*3
  30         FSTA    LOGRTN
  31         FLDA    0
  32         SETX    XRLOG
  33         SETB    BPLOG
  34         BASE    BPLOG
  35         LDX     1,1
  36         FSTA    BPLOG
  37         FLDA%   BPLOG,1 /ADDR OF X
  38         FSTA    BPLOG
  39         STARTF
  40         FLDA%   BPLOG   /GET X
  41         FSTA    LOG1
  42         EXTERN  ALOG
  43         JSR     ALOG    /CALL ALOG
  44         JA      .+4
  45         JA      LOG1
  46         FMUL    ALOG1C  /CORRECT FOR THE LOG BASE E.
  47         JA      LOGRTN
  48 \f