double precision sig_comp,chi_comp,chip_comp,sc_cutoff common /contpar/ sig_comp(ntyp,ntyp),chi_comp(ntyp,ntyp), & chip_comp(ntyp,ntyp),sc_cutoff(ntyp,ntyp)