function icp=intcp2(s,j)
% function icp=intcp2(s,j)
% s specifies the state: 'v', 'l', or 's'
% j specifies the compound
global cpv cpl cps
cp=eval(['cp',s,'(j,:)']);
ncp=length(cp);
cp=cp(ncp:-1:1);
icp=cp./(ncp:-1:1);
