SUBROUTINE TRIGFUN ( A, B, UUST )

Argument Definitions (+ indicates altered content)
REAL              +A(0:361),  +B(0:361),   UUST
Description
pre-sets arrays of trig values 
if uust=1, 91 values are set 
if uust=1/3, 271 values are set    -- WHAT??? This won't work!!!
Source file:trigfun.f
Intrinsic Functions Called
INTEGER            IFIX
GENERIC            COS,        SIN
Local Variables (+ indicates altered content)
REAL              +Z
Referenced Common Block Variables (+ indicates altered content)
GENERAL            REAL               Q1