integer :: ncont,i,j,i1,j1,nbeta,nstrand,ii1,jj1,ij,nhelix,&
iii1,jjj1
integer,dimension(2,12*nres) :: icont !(2,maxcont) (maxcont=12*maxres)
integer :: ncont,i,j,i1,j1,nbeta,nstrand,ii1,jj1,ij,nhelix,&
iii1,jjj1
integer,dimension(2,12*nres) :: icont !(2,maxcont) (maxcont=12*maxres)