real(kind=4),dimension(:),allocatable :: DISNN !(maxconf)
LOGICAL,dimension(:),allocatable :: FLAG !(maxconf)
integer :: i,j,k,l,m,n,len,lev,idum,ii,ind,jj,icut,ncon,&
real(kind=4),dimension(:),allocatable :: DISNN !(maxconf)
LOGICAL,dimension(:),allocatable :: FLAG !(maxconf)
integer :: i,j,k,l,m,n,len,lev,idum,ii,ind,jj,icut,ncon,&