This is an easy, short code (maximum 20 lines) which needs to be translated from Fortran to Matlab. The code was presented in a scientific paper that deals with thermodynamics/physics. However, I do not care about theory since it is my job, however, I just need a simple translation. Values will be provided to prove that the code is working. Please have a look at the attached paper (Appendix B ONLY, page 207). Ignore anything else and we can discuss any further clarifications later.