! Groups the ALPHAs and the BETAs
do k=1,numch
do j=2,nres-1
- if(itype(j).ne.10) then
+ if(itype(j,1).ne.10) then
indg=indg+1
ngroup(indg)=2
do i=1,ngroup(indg)
#endif
endif
do j=jstart,jend
- if (itype(j).eq.10) then
+ if (itype(j,1).eq.10) then
iang=2
else
iang=4
enddo
if (ishift.gt.0) then
do j=0,ishift-1
- if (itype(jend+j).eq.10) then
+ if (itype(jend+j,1).eq.10) then
iang=2
else
iang=4
enddo
else
do j=0,-ishift-1
- if (itype(jstart+j).eq.10) then
+ if (itype(jstart+j,1).eq.10) then
iang=2
else
iang=4
! enddo
! call intout
do j=jstart,jend
- if (itype(j).eq.10) then
+ if (itype(j,1).eq.10) then
iang=2
else
iang=4