Who knows how to calculate inverse trigonometric cosine of complex number in fortran?

There is not complex arccos intrinsic in Fortran, but you can get by using the ACOS and the EPX (which is the antilog or alog) of the real and imaginary parts, as indicated in the page provided as link.