sw/os8/v3d/sources/fortran/all/tand.ra

   1 /
   2 /
   3 /       T  A  N  D
   4 /       -  -  -  -
   5 /
   6 /SUBROUTINE     TAND(X)
   7 /
   8 / VERSION 5A 4-27-77  PT
   9 /
  10         SECT    TAND
  11         JA      #TAND
  12         TEXT    +TAND  +
  13 TANDXR, SETX    XRTAND
  14         SETB    BPTAND
  15 BPTAND, FNOP
  16         0
  17         0
  18 XRTAND, F 0.0
  19 TAND91, 6
  20         3451
  21         3560
  22 TAND1,  F 0.0
  23         ORG     10*3+BPTAND
  24         FNOP
  25         JA      TANDXR
  26         0
  27 TNDRTN, JA      .
  28         BASE    0
  29 #TAND,  STARTD
  30         FLDA    10*3
  31         FSTA    TNDRTN
  32         FLDA    0
  33         SETX    XRTAND
  34         SETB    BPTAND
  35         BASE    BPTAND
  36         LDX     1,1
  37         FSTA    BPTAND
  38         FLDA%   BPTAND,1        /ADDR OF X
  39         FSTA    BPTAND
  40         STARTF
  41         FLDA%   BPTAND  /GT X IN DEGREES
  42         FDIV    TAND91  /CONVERT TO RADIANS
  43         FSTA    TAND1
  44         EXTERN  TAN
  45         JSR     TAN     /CALL THE TANGENT
  46         JA      TNDRTN
  47         JA      TAND1
  48 \f