ENDIF
call mpi_bcast(jend,1,mpi_integer,0,CG_COMM,ierr)
ENDIF
call mpi_bcast(jend,1,mpi_integer,0,CG_COMM,ierr)
include 'COMMON.CONTACTS'
dimension ind(9),xout(maxvar),eout(mxch*(mxch+1)/2+1)
cjlee
include 'COMMON.CONTACTS'
dimension ind(9),xout(maxvar),eout(mxch*(mxch+1)/2+1)
cjlee