E:/fs/asd/F3.f90:89: undefined reference to `cosd_'

                a=(xa*xb+ya*yb+za*zb)
                b=(sqrt(xa**2+ya**2+za**2))*(sqrt(xb**2+yb**2+zb**2))
                t=a/b
                s=cosd(104.52)
               F=(t*abs(t)+s**2)**2
                Fn=Fn+F
                sum=sum+1