endif
C write (iout,*) "Czy tu dochodze"
potE(iii+1,iparm)=energia(0)
endif
C write (iout,*) "Czy tu dochodze"
potE(iii+1,iparm)=energia(0)
if (iprint.gt.0)
& write (iout,*) "Bad CA-CA bond length",j," ",vbld(j),
& " for conformation",ii
if (iprint.gt.0)
& write (iout,*) "Bad CA-CA bond length",j," ",vbld(j),
& " for conformation",ii
if (iprint.gt.0)
& write (iout,*) "Bad CA-SC bond length",j," ",vbld(nres+j),
& " for conformation",ii
if (iprint.gt.0)
& write (iout,*) "Bad CA-SC bond length",j," ",vbld(nres+j),
& " for conformation",ii