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