eta_c=aa/2.*dcos(xxk*(-xcenter+xi(i)))+aa**2*xxk/16.*dcosh(xxk*h0)/dsinh(xxk*h0)**3*(2.+dcosh(2.*xxk*h0))*dcos(2.*(xxk*(-xcenter+xi(i))))这段公式中的几个地方还请各位高手指教：
1.公式中的dcos、dcosh、dsin、dsinh是fortran中的什么样的函数，我在书里找了好久也没有出现，但是在我的程序中出现还多次，也没有单独编写这段程序，不知道什么函数！