do i=1,nres
itype(i)=rescode(i,sequence(i),iscode)
enddo
+ if (itype(2).eq.10.and.itype(1).eq.ntyp1) then
+ write (iout,*)
+ & "Glycine is the first full residue, initial dummy deleted"
+ do i=1,nres
+ itype(i)=itype(i+1)
+ enddo
+ nres=nres-1
+ endif
+ if (itype(nres-1).eq.10.and.itype(nres).eq.ntyp1) then
+ write (iout,*)
+ & "Glycine is the last full residue, terminal dummy deleted"
+ nres=nres-1
+ endif
print *,nres
print '(20i4)',(itype(i),i=1,nres)
do i=1,nres
itype(i)=rescode(i,sequence(i),iscode)
enddo
- if (itype(2).eq.10) then
+ if (itype(2).eq.10.and.itype(1).eq.ntyp1) then
write (iout,*)
& "Glycine is the first full residue, initial dummy deleted"
do i=1,nres
enddo
nres=nres-1
endif
- if (itype(nres).eq.10) then
+ if (itype(nres-1).eq.10.and.itype(nres).eq.ntyp1) then
write (iout,*)
& "Glycine is the last full residue, terminal dummy deleted"
nres=nres-1
do i=1,nres
itype(i)=rescode(i,sequence(i),iscode)
enddo
- if (itype(2).eq.10) then
+ if (itype(2).eq.10.and.itype(1).eq.ntyp1) then
write (iout,*)
& "Glycine is the first full residue, initial dummy deleted"
do i=1,nres
enddo
nres=nres-1
endif
- if (itype(nres).eq.10) then
+ if (itype(nres-1).eq.10.and.itype(nres).eq.ntyp1) then
write (iout,*)
& "Glycine is the last full residue, terminal dummy deleted"
nres=nres-1
esccor=0.0D0
do i=itau_start,itau_end
esccor_ii=0.0D0
+ if ((itype(i-2).eq.ntyp1).or.(itype(i-1).eq.ntyp1)) cycle
isccori=isccortyp(itype(i-2))
isccori1=isccortyp(itype(i-1))
phii=phi(i)
do i=1,nres
itype(i)=rescode(i,sequence(i),iscode)
enddo
- if (itype(2).eq.10) then
+ if (itype(2).eq.10.and.itype(1).eq.ntyp1) then
write (iout,*)
& "Glycine is the first full residue, initial dummy deleted"
do i=1,nres
enddo
nres=nres-1
endif
- if (itype(nres).eq.10) then
+ if (itype(nres-1).eq.10.and.itype(nres).eq.ntyp1) then
write (iout,*)
& "Glycine is the last full residue, terminal dummy deleted"
nres=nres-1