!
	 INCLUDE 'mpif.h'
!
	 integer :: ierr
! 
! windows name for each variable
!
	 integer,SAVE :: win_pos
	 integer,SAVE :: win_vel
	 
	 integer,SAVE :: win_mass_cell
	 integer,SAVE :: win_pos_cell
	 integer,SAVE :: win_acc
	 integer,SAVE :: win_quad
	 integer,SAVE :: win_subp
	 integer,SAVE :: win_mark_bod_gr
	 integer,SAVE :: win_mark_gr_cell
	 integer,SAVE :: win_grouping
	 integer,SAVE :: win_pe_ex_pr
	 integer,SAVE :: win_nb_res_loc
!
	 integer,parameter :: int4=4
	 integer,parameter :: int8=8
	 integer,parameter :: real4=4
	 integer,parameter :: real8=8
!