Newer
Older
!
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
!