1!$Id:$
2      function tand(x)
3
4!      * * F E A P * * A Finite Element Analysis Program
5
6!....  Copyright (c) 1984-2017: Regents of the University of California
7!                               All rights reserved
8      implicit none
9
10      real*8 tand, x
11
12      tand = tan(atan(1.d0)*x/45.d0)
13
14      end
15