read (isccor,*,end=119,err=119) kk,v1sccor(k,l,i,j),&
v2sccor(k,l,i,j)
v0ijsccor=v0ijsccor+si*v1sccor(k,l,i,j)
read (isccor,*,end=119,err=119) kk,v1sccor(k,l,i,j),&
v2sccor(k,l,i,j)
v0ijsccor=v0ijsccor+si*v1sccor(k,l,i,j)
character(len=3) :: seq,res,res2
character(len=5) :: atom
character(len=80) :: card
character(len=3) :: seq,res,res2
character(len=5) :: atom
character(len=80) :: card
integer :: kkk,lll,icha,kupa,molecule,counter,seqalingbegin !rescode,
integer :: isugar,molecprev,firstion
character*1 :: sugar
integer :: kkk,lll,icha,kupa,molecule,counter,seqalingbegin !rescode,
integer :: isugar,molecprev,firstion
character*1 :: sugar
! integer rescode
integer, dimension (:), allocatable :: iterter
if(.not.allocated(iterter))allocate(iterter(nres))
! integer rescode
integer, dimension (:), allocatable :: iterter
if(.not.allocated(iterter))allocate(iterter(nres))