real(krealfp), parameter funcphys::psatb =con_psat*1.e-5

private

Referenced by fthex(), and stmaxg().