sw/os8/v3d/sources/fortran/dectapes/dectape2/tan.ra

   1 /
   2 /
   3 /       T  A  N
   4 /       -  -  -
   5 /
   6 /SUBROUTINE     TAN(X)
   7 /
   8 / VERSION 5A 4-27-77  PT
   9 /
  10         SECT    TAN
  11         JA      #TAN
  12         EXTERN  #ARGER
  13 TANER,  TRAP4   #ARGER
  14         TEXT    +TAN   +
  15 TANXR,  SETX    XRTAN
  16         SETB    BPTAN
  17 BPTAN,  FNOP
  18         0
  19         0
  20 XRTAN,  F 0.0
  21 TAN1,   F 0.0
  22 TAN2,   F 0.0
  23         ORG     10*3+BPTAN
  24         FNOP
  25         JA      TANXR
  26         0
  27 TANRTN, JA      .
  28         BASE    0
  29 #TAN,   STARTD
  30         FLDA    10*3
  31         FSTA    TANRTN
  32         FLDA    0
  33         SETX    XRTAN
  34         SETB    BPTAN
  35         BASE    BPTAN
  36         LDX     1,1
  37         FSTA    BPTAN
  38         FLDA%   BPTAN,1 /ADDR OF X
  39         FSTA    BPTAN
  40         STARTF
  41         FLDA%   BPTAN   /GET X
  42         JEQ     TANRTN  /IF 0 RTN NOW
  43         FSTA    TAN1    /SAVE FOR A SECOND
  44         EXTERN  COS
  45         JSR     COS     /TAKE COS(X)
  46         JA      .+4
  47         JA      TAN1
  48         JEQ     TANER   /COS=0. A NO-NO
  49         FSTA    TAN2    /SAV IT
  50         EXTERN  SIN
  51         JSR     SIN     /NOW TAKE SIN(X)
  52         JA      .+4
  53         JA      TAN1
  54         FDIV    TAN2    /DIV BY COS(X)
  55         JA      TANRTN
  56 \f