DOUBLE PRECISION FUNCTION DTAN(X) DOUBLE PRECISION X C C THIS IS A HORRIBLE WAY TO TO TANGENT C DTAN = DSIN(X) / DCOS(X) RETURN END