cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Declarations for the fortran spmd_ library (on top of MPI) c c General to be set in spmd_init routine: c spmd_world,spmd_myid,spmd_nprocs,spmd_status(5),spmd_real,spmd_int, c spmd_real8,spmd_cmplx8 c c Specific to be set in spmd_split routine: c spmd_mystart,spmd_mypart,spmd_myend c c Hans du Buf, May 2001 c Univ of Algarve c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc integer spmd_world,spmd_myid,spmd_nprocs,spmd_status(5), 1 spmd_real,spmd_int,spmd_real8,spmd_cmplx8 integer spmd_mystart,spmd_mypart,spmd_myend common /spmd_common/spmd_world,spmd_myid,spmd_nprocs,spmd_status, 1 spmd_real,spmd_int,spmd_real8,spmd_cmplx8, 2 spmd_mystart,spmd_mypart,spmd_myend c2345#789012345678901234567890123456789012345678901234567890123456789012