function EllipticalCurves_PR_Wc extends Modelica.Icons.Function; input Real Nc; input Real theta; input Real ka_PR_0; input Real ka_PR_1; input Real ka_PR_2; input Real ka_PR_3; input Real ka_PR_4; input Real kb_PR_0; input Real kb_PR_1; input Real kb_PR_2; input Real kb_PR_3; input Real kb_PR_4; input Real zMin; input Real zMax; input Real NcMin; input Real NcMax; output Real WcCurve; output Real PRcurve; end EllipticalCurves_PR_Wc;