Capillary Absorption

The macro is already built in, but Pam suggests the lines below as an easy way of inputting/understanding capillary absorption correction:

prm !packing_density  0.50 min 0.1 max 1.0 'typically 0.2 to 0.5
prm !capdia 0.5 'capillary diameter in mm
prm !linab = Get(mixture_MAC) Get(mixture_density_g_on_cm3);:148.89110`_0.00000 'in cm-1
prm muR = (capdia/20)*linab*packing_density;
Cylindrical_I_Correction(muR)