function f = fluidPVT(Bopb, pb, co, Bwi, prw, cw, vwi, cvw, visopb, cvo, SW, KRO, KRW, PCOW, ifpcow, SWF, KROF, KRWF, PCOWF, rpt,Dosi, Dwsi, cs_data, csa_data, cb_data, cba_data)
f.Bw = @(p) Bw(p, Bwi, prw, cw);
f.Bo = @(p) Bo(p, Bopb, pb, co);
f.muw = @(p) muw(p, vwi, prw, cvw);
f.muo = @(p) muo(p, visopb, pb, cvo);
f.kro = @(sw) kro(sw, SW, KRO, SWF, KROF, rpt);
f.krw = @(sw) krw(sw, SW, KRW, SWF, KRWF, rpt);
f.pcow = @(sw) pcow(sw, SW, PCOW, SWF, PCOWF, rpt);
f.krow = @(sw) kro(sw, SWF, KROF);
f.krww = @(sw) krw(sw, SWF, KRWF);
f.pcoww = @(sw) pcow(sw, SWF, PCOWF);
f.cs_absorb = @(sw) cs_absorb_f(cs, cs_data, csa_data);
f.cb_absorb = @(sw) cb_absorb_f(cb, cb_data, cba_data);
f.ifpcow = ifpcow;
f.Dosi = Dosi;
f.Dwsi = Dwsi;