endif
C write (iout,*) "Czy tu dochodze"
potE(iii+1,iparm)=energia(0)
- do k=1,22
+ do k=1,max_ene
enetb(k,iii+1,iparm)=energia(k)
enddo
#ifdef DEBUG
call int_from_cart1(.false.)
do j=nnt+1,nct
if (itype(j-1).ne.ntyp1 .and. itype(j).ne.ntyp1 .and.
- & (vbld(j).lt.2.0d0 .or. vbld(j).gt.5.0d0)) then
+ & (vbld(j).lt.2.0d0 .or. vbld(j).gt.6.0d0)) then
if (iprint.gt.0)
& write (iout,*) "Bad CA-CA bond length",j," ",vbld(j),
& " for conformation",ii
do j=nnt,nct
itj=itype(j)
if (itype(j).ne.10 .and.itype(j).ne.ntyp1 .and.
- & (vbld(nres+j)-dsc(iabs(itj))).gt.2.0d0) then
+ & (vbld(nres+j)-dsc(iabs(itj))).gt.5.0d0) then
if (iprint.gt.0)
& write (iout,*) "Bad CA-SC bond length",j," ",vbld(nres+j),
& " for conformation",ii