module w_comm_local !------------------------------------------------------------------------------- ! common /ccc/ real(kind=8),dimension(:,:),allocatable :: creff,cc !(3,nres*2) logical,dimension(:),allocatable :: iadded !(nres) integer,dimension(:,:),allocatable :: inumber !(2,nres) !------------------------------------------------------------------------------- end module w_comm_local