use w_comm_local
integer :: nfrg,nlev
-write(iout,*) "in alloc conpar arrays: nlevel=", nlevel," nfrag(1)=",nfrag(1)
+!write(iout,*) "in alloc conpar arrays: nlevel=", nlevel," nfrag(1)=",nfrag(1)
!------------------------
! commom.contacts
! common /contacts/