ihpb(i)=0
jhpb(i)=0
enddo
+C Initialize correlation arrays
+ do i=-maxtor,maxtor
+ do k=1,2
+ b1(k,i)=0.0
+ b2(k,i)=0.0
+ b1tilde(k,i)=0.0
+c b2tilde(k,i)=0.0
+ do j=1,2
+ CC(j,k,i)=0.0
+ Ctilde(j,k,i)=0.0
+ DD(j,k,i)=0.0
+ Dtilde(j,k,i)=0.0
+ EE(j,k,i)=0.0
+ enddo
+ enddo
+ enddo
C
C Initialize timing.
C
C Initialize constants used to split the energy into long- and short-range
C components
C
- r_cut=2.0d0
- rlamb=0.3d0
+C r_cut=2.0d0
+C rlamb=0.3d0
#ifndef SPLITELE
nprint_ene=nprint_ene-1
#endif
ibond_start=2
ibond_end=nres-1
ibondp_start=nnt
- ibondp_end=nct-1
+C ibondp_end=nct-1
+ ibondp_end=nct
ivec_start=1
ivec_end=nres-1
iset_start=3