1!$Id:$
2 function cosd(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 cosd, x
11
12 cosd = cos(atan(1.d0)*x/45.d0)
13
14 end
15