FreeEOS Code

Brought to you by: airwin

[9a5978]: / src / free_eos.c Maximize Restore History

23 lines (19 with data), 998 Bytes

#include <cfortran.h>
/*
 *       subroutine free_eos(ifoption, ifmodified,
 *      &  ifion, kif_in, eps, neps, match_variable, tl, fl,
 *      &  t, rho, rl, p, pl, cf, cp, qf, qp, sf, st, grada, rtp,
 *      &  rmue, fh2, fhe2, fhe3, xmu1, xmu3, eta,
 *      &  gamma1, gamma2, gamma3, h2rat, h2plusrat, lambda, gamma_e,
 *      &  degeneracy, pressure, density, energy, enthalpy, entropy,
 *      &  iteration_count)
 */

/* UGH 44 arguments so have to have modification of cfortran.h or simplification
 * of free_eos argument list.  I think the latter is the key.  I have
 * an opportunity with the next release not only to change the name, but
 * also the API.  For example, I could have nresults,results for t through
 * entropy where nresults = 27 + 3*6 = 45.  ==> 19 arguments left which
 * is well within the cfortran limitations.  For different nresults, we
 * could have different arrangements of values without changing the API.
 *
PROTOCCALLSFSUB2(SUB_NAME,sub_name,STRING,PINT) */

FreeEOS Code

Branches

Tags

[9a5978]: / src / free_eos.c Maximize Restore History

23 lines (19 with data), 998 Bytes