double precision dhpb,dhpb1,forcon,fordepth,xlscore,wboltzd,
& dhpb_peak,dhpb1_peak,forcon_peak,fordepth_peak,scal_peak,bfac
integer ihpb,jhpb,nhpb,idssb,jdssb,ibecarb,ibecarb_peak,npeak,
& ipeak,irestr_type,irestr_type_peak,ihpb_peak,jhpb_peak,nhpb_peak
logical restr_on_coord
double precision dhpb,dhpb1,forcon,fordepth,xlscore,wboltzd,
& dhpb_peak,dhpb1_peak,forcon_peak,fordepth_peak,scal_peak,bfac
integer ihpb,jhpb,nhpb,idssb,jdssb,ibecarb,ibecarb_peak,npeak,
& ipeak,irestr_type,irestr_type_peak,ihpb_peak,jhpb_peak,nhpb_peak
logical restr_on_coord