disp('openophr.m')

Tcan=27;
A0_ophir=1.045;     %UNIT # 89111 CALIBRATION  07/96  ASGAMAGE & FASTEX
A1_ophir=-0.00181;  %UNIT # 89111 CALIBRATION  07/96  ASGAMAGE & FASTEX
k_ophir=0.0507;     %UNIT # 89111 CALIBRATION  07/96  ASGAMAGE & FASTEX
b_ophir=.7278;      %UNIT # 89111 CALIBRATION  07/96  ASGAMAGE & FASTEX
a_ophir=A0_ophir*(1+A1_ophir*Tcan);

rc=refabsorb./refclear;
abshum=((-log(rc/a_ophir))./k_ophir).^(1./b_ophir);
