if (mnum.eq.5) cycle
if (itype(j-1,mnum).ne.ntyp1 .and. itype(j,mnum).ne.ntyp1_molec(mnum) .and. &
(vbld(j).lt.2.0d0 .or. vbld(j).gt.5.0d0)) then
if (iprint.gt.0) &
write (iout,*) "Bad CA-CA bond length",j," ",vbld(j),&
if (mnum.eq.5) cycle
if (itype(j-1,mnum).ne.ntyp1 .and. itype(j,mnum).ne.ntyp1_molec(mnum) .and. &
(vbld(j).lt.2.0d0 .or. vbld(j).gt.5.0d0)) then
if (iprint.gt.0) &
write (iout,*) "Bad CA-CA bond length",j," ",vbld(j),&