C++ 信号：使用Openmpi时出现分段故障（11）
我使用的是CFD代码，它基于Opnempi。当我只使用一个内核来运行它时，就没有问题了。但当我使用更多的内核来运行它时，会出现如下错误：C++ 信号：使用Openmpi时出现分段故障（11）,c++,c,linux,segmentation-fault,openmpi,C++,C,Linux,Segmentation Fault,Openmpi,我使用的是CFD代码，它基于Opnempi。当我只使用一个内核来运行它时，就没有问题了。但当我使用更多的内核来运行它时，会出现如下错误： #include <stdio.h> #include <stdlib.h> #include <math.h> #include <unistd.h> #include <string.h> #include <signal.h> #include "param.h" #include
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <unistd.h>
#include <string.h>
#include <signal.h>
#include "param.h"
#include "block.h"
#include "q.h"
#include "map.h"
#include "comms.h"
#include "util.h"
#include "dat.h"
#include "timing.h"
#include "sgm.h"
#include "error.h"
#include "init.h"
#include "mom.h"
#include "inst.h"
#include "pcg.h"
#include "bicgstab.h"
#include "ibm.h"
#include "hist.h"
#include "pcg_ext.h"
#include "dibm.h"
/* using BLAS library for better performance */
#ifdef BLAS
#include <essl.h>
#endif
/* local prototypes */
void cmdopts(int *, char ***);
void mybasename(char *, char *);
void glob_output(void);
void glob_tstep(void);
void getstep(char *fname, double *Prtime, int *Pitime);
void putstep(char *fname, double *Prtime, int *Pitime);
/* external prototypes */
void slice_probe(void);
void print_solution(char* , int);
void print_vert(char*, int);
void print_wave(char*, int);
void print_moments(char*, int);
extern void InitializeIBPoint();
/*void glob_snapshot(char*);*/
extern void dibm_interploate_shear_velocity(void);
/* global, used by mgp.c, pcg.c and map.c */
/* global, used by mgp.c, pcg.c and map.c */
int mypid = -1; /* my process id number */
int npid = 1; /* total process number */
int halt_flg = 0; /* halt t-steps, 1=stop, 0=cont */
double wck_t_start, wck_t_end; /* wall clock timing */
double cpu_t_start, cpu_t_end; /* cpu clock timing */
int time_limit = 999999999; /* wall clock limit (seconds) */
double Y_pro_mu=0; //Mu in Y-code;
double Y_pro_Laimuda=0;//Laimuda in Y-code
//char Y_y3dfile[256]; //*.y3d filename in Y-code
double Y_adheforcefactor=1.0;//force factor applied to ib points on Y solid, used in Yw.c-F2y()
double Y_shear_force_factor =1.0;
double Y_shear_vel = 0.0;
int Y_init_entity_num; //cell number at initilization of Y
//#Additional Misc by XuDong
int stat_y_save_dn; // 1000 #y solid saving interval
int stat_plane_save_dn;// 1000 #plane saving interval
int stat_glob_fluid_save_dn;// 10000000 #global fluid saving interval
int stat_restart_save_dn; // 1000 #Restart file saving interval
int stat_gtk_draw_dn; // 1 #gtkdraw interval when GTK defined
int stat_gtk_save_dn; // 100 #gtkdraw picture saving interval when GTK defined
int stat_y_typic_save_dn;
double case_parameter_1;//undefined reserved case parameter
double case_parameter_2;
double case_parameter_3;
double case_parameter_4;
/* main: driver routine */
int main(int argc, char **argv)
{
int bid, ibid;
/* switches */
int add_seed_flg = 0, probe_flg = 0, putxd_2x_flg = 0, reset_stats_flg = 0;
/* Start up any other nodes. The cmd line options relating to the
* parallel interface are parsed and pruned here. */
mypid = com_start(&argc, &argv, 1);
npid = com_nnodes();
wck_t_start = WCKseconds();
cpu_t_start = CPUseconds();
/* Parse the remaining options [first node only] */
if (mypid == 0)
cmdopts(&argc, &argv);
/* Buffering mode for stdout; needed on T3D */
fflush(stdout);
setvbuf(stdout, (char *) 0, _IOLBF, 0); /* line buffering */
/* Read configuration data on ONE node */
if (mypid == 0)
{
/* get the map data and mesh points */
map_getfn(fnames.map, fnames.msh);
map_print(BID_NULL);
if (map_checkt() || map_checku())
exit(2);
/* debugging */
/* map_putfn("temp.map"); */
/* msh_putfn("temp.msh"); */
/* read the local data file and build lookup table */
dat_read(fnames.dat);
dat_print();
/* Modify parameters using info from *.dat file */
dat_getdouble(&viscm, "viscm");
dat_getdouble(&fbody_x, "fbody_x");
dat_getdouble(&fbody_y, "fbody_y");
dat_getdouble(&fbody_z, "fbody_z");
dat_getint(&time_limit, "time_limit");
//#Additional Misc by XuDong
dat_getdouble(&crk_beta,"crk_beta");// #=0--explicit, ==1 fully implicit ==1/2 crank-nicolson
dat_getdouble(&ibm_relax,"ibm_relax");// #=0.5---normal for direct forcing
dat_getint(&stat_y_save_dn,"stat_y_save_dn");// 1000 #y solid saving interval
dat_getint(&stat_plane_save_dn,"stat_plane_save_dn");// 1000 #plane saving interval
dat_getint(&stat_glob_fluid_save_dn,"stat_glob_fluid_save_dn");// 10000000 #global fluid saving interval
dat_getint(&stat_restart_save_dn,"stat_restart_save_dn");// 1000 #Restart file saving interval
dat_getint(&stat_gtk_draw_dn,"stat_gtk_draw_dn");// 1 #gtkdraw interval when GTK defined
dat_getint(&stat_gtk_save_dn,"stat_gtk_save_dn");// 100 #gtkdraw picture saving interval when GTK defined
dat_getint(&stat_y_typic_save_dn,"stat_y_typic_save_dn");// 100 #gtkdraw picture saving interval when GTK defined
dat_getdouble(&Y_adheforcefactor,"Y_adheforcefactor");// 1 #gtkdraw interval when GTK defined
dat_getdouble(&Y_shear_force_factor,"Y_shear_force_factor");// 100 #gtkdraw picture saving interval when GTK defined
dat_getdouble(&Y_shear_vel,"Y_shear_vel");// 100 #gtkdraw picture saving interval when GTK defined
dat_getint(&Y_init_entity_num,"Y_init_entity_num");// //cell number at initilization of Y
dat_getdouble(&case_parameter_1,"case_parameter_1"); //undefined reserved case parameter
dat_getdouble(&case_parameter_2,"case_parameter_2"); //undefined reserved case parameter
dat_getdouble(&case_parameter_3,"case_parameter_3"); //undefined reserved case parameter
dat_getdouble(&case_parameter_4,"case_parameter_4"); //undefined reserved case parameter
/* set current time step parameters */
dat_getint(&ntime, "ntime");
dat_getdouble(&dt, "dt");
if (!flg_init)
getstep(fnames.xdi, &rtime_current, &itime);
itime_first = itime;
itime_last = itime_first + ntime;
rtime_first = rtime_current;
rtime_last = rtime_current + dt * ntime;
/* print fluid parameters */
prparam();
}
/* Distibute to other nodes */
com_dist_param(); /* distribute file names */
com_dist_map(); /* distribute map */
com_dist_data(); /* distribute table */
long int base = disp[0];
for (i = 0; i < 8; i++) {
type[i] = MPI_CHAR;
blocklen[i] = MAXSTR;
disp[i] -= base;
/* changed %d into %ld below */
printf("disp[i] = %ld blocklen[i] = %d\n",
(long int)disp[i], blocklen[i]);
}
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <unistd.h>
#include <string.h>
#include <signal.h>
#include "param.h"
#include "block.h"
#include "q.h"
#include "map.h"
#include "comms.h"
#include "util.h"
#include "dat.h"
#include "timing.h"
#include "sgm.h"
#include "error.h"
#include "init.h"
#include "mom.h"
#include "inst.h"
#include "pcg.h"
#include "bicgstab.h"
#include "ibm.h"
#include "hist.h"
#include "pcg_ext.h"
#include "dibm.h"
/* using BLAS library for better performance */
#ifdef BLAS
#include <essl.h>
#endif
/* local prototypes */
void cmdopts(int *, char ***);
void mybasename(char *, char *);
void glob_output(void);
void glob_tstep(void);
void getstep(char *fname, double *Prtime, int *Pitime);
void putstep(char *fname, double *Prtime, int *Pitime);
/* external prototypes */
void slice_probe(void);
void print_solution(char* , int);
void print_vert(char*, int);
void print_wave(char*, int);
void print_moments(char*, int);
extern void InitializeIBPoint();
/*void glob_snapshot(char*);*/
extern void dibm_interploate_shear_velocity(void);
/* global, used by mgp.c, pcg.c and map.c */
/* global, used by mgp.c, pcg.c and map.c */
int mypid = -1; /* my process id number */
int npid = 1; /* total process number */
int halt_flg = 0; /* halt t-steps, 1=stop, 0=cont */
double wck_t_start, wck_t_end; /* wall clock timing */
double cpu_t_start, cpu_t_end; /* cpu clock timing */
int time_limit = 999999999; /* wall clock limit (seconds) */
double Y_pro_mu=0; //Mu in Y-code;
double Y_pro_Laimuda=0;//Laimuda in Y-code
//char Y_y3dfile[256]; //*.y3d filename in Y-code
double Y_adheforcefactor=1.0;//force factor applied to ib points on Y solid, used in Yw.c-F2y()
double Y_shear_force_factor =1.0;
double Y_shear_vel = 0.0;
int Y_init_entity_num; //cell number at initilization of Y
//#Additional Misc by XuDong
int stat_y_save_dn; // 1000 #y solid saving interval
int stat_plane_save_dn;// 1000 #plane saving interval
int stat_glob_fluid_save_dn;// 10000000 #global fluid saving interval
int stat_restart_save_dn; // 1000 #Restart file saving interval
int stat_gtk_draw_dn; // 1 #gtkdraw interval when GTK defined
int stat_gtk_save_dn; // 100 #gtkdraw picture saving interval when GTK defined
int stat_y_typic_save_dn;
double case_parameter_1;//undefined reserved case parameter
double case_parameter_2;
double case_parameter_3;
double case_parameter_4;
/* main: driver routine */
int main(int argc, char **argv)
{
int bid, ibid;
/* switches */
int add_seed_flg = 0, probe_flg = 0, putxd_2x_flg = 0, reset_stats_flg = 0;
/* Start up any other nodes. The cmd line options relating to the
* parallel interface are parsed and pruned here. */
mypid = com_start(&argc, &argv, 1);
npid = com_nnodes();
wck_t_start = WCKseconds();
cpu_t_start = CPUseconds();
/* Parse the remaining options [first node only] */
if (mypid == 0)
cmdopts(&argc, &argv);
/* Buffering mode for stdout; needed on T3D */
fflush(stdout);
setvbuf(stdout, (char *) 0, _IOLBF, 0); /* line buffering */
/* Read configuration data on ONE node */
if (mypid == 0)
{
/* get the map data and mesh points */
map_getfn(fnames.map, fnames.msh);
map_print(BID_NULL);
if (map_checkt() || map_checku())
exit(2);
/* debugging */
/* map_putfn("temp.map"); */
/* msh_putfn("temp.msh"); */
/* read the local data file and build lookup table */
dat_read(fnames.dat);
dat_print();
/* Modify parameters using info from *.dat file */
dat_getdouble(&viscm, "viscm");
dat_getdouble(&fbody_x, "fbody_x");
dat_getdouble(&fbody_y, "fbody_y");
dat_getdouble(&fbody_z, "fbody_z");
dat_getint(&time_limit, "time_limit");
//#Additional Misc by XuDong
dat_getdouble(&crk_beta,"crk_beta");// #=0--explicit, ==1 fully implicit ==1/2 crank-nicolson
dat_getdouble(&ibm_relax,"ibm_relax");// #=0.5---normal for direct forcing
dat_getint(&stat_y_save_dn,"stat_y_save_dn");// 1000 #y solid saving interval
dat_getint(&stat_plane_save_dn,"stat_plane_save_dn");// 1000 #plane saving interval
dat_getint(&stat_glob_fluid_save_dn,"stat_glob_fluid_save_dn");// 10000000 #global fluid saving interval
dat_getint(&stat_restart_save_dn,"stat_restart_save_dn");// 1000 #Restart file saving interval
dat_getint(&stat_gtk_draw_dn,"stat_gtk_draw_dn");// 1 #gtkdraw interval when GTK defined
dat_getint(&stat_gtk_save_dn,"stat_gtk_save_dn");// 100 #gtkdraw picture saving interval when GTK defined
dat_getint(&stat_y_typic_save_dn,"stat_y_typic_save_dn");// 100 #gtkdraw picture saving interval when GTK defined
dat_getdouble(&Y_adheforcefactor,"Y_adheforcefactor");// 1 #gtkdraw interval when GTK defined
dat_getdouble(&Y_shear_force_factor,"Y_shear_force_factor");// 100 #gtkdraw picture saving interval when GTK defined
dat_getdouble(&Y_shear_vel,"Y_shear_vel");// 100 #gtkdraw picture saving interval when GTK defined
dat_getint(&Y_init_entity_num,"Y_init_entity_num");// //cell number at initilization of Y
dat_getdouble(&case_parameter_1,"case_parameter_1"); //undefined reserved case parameter
dat_getdouble(&case_parameter_2,"case_parameter_2"); //undefined reserved case parameter
dat_getdouble(&case_parameter_3,"case_parameter_3"); //undefined reserved case parameter
dat_getdouble(&case_parameter_4,"case_parameter_4"); //undefined reserved case parameter
/* set current time step parameters */
dat_getint(&ntime, "ntime");
dat_getdouble(&dt, "dt");
if (!flg_init)
getstep(fnames.xdi, &rtime_current, &itime);
itime_first = itime;
itime_last = itime_first + ntime;
rtime_first = rtime_current;
rtime_last = rtime_current + dt * ntime;
/* print fluid parameters */
prparam();
}
/* Distibute to other nodes */
com_dist_param(); /* distribute file names */
com_dist_map(); /* distribute map */
com_dist_data(); /* distribute table */
long int base = disp[0];
for (i = 0; i < 8; i++) {
type[i] = MPI_CHAR;
blocklen[i] = MAXSTR;
disp[i] -= base;
/* changed %d into %ld below */
printf("disp[i] = %ld blocklen[i] = %d\n",
(long int)disp[i], blocklen[i]);
}
typedef struct
{
char xdi[MAXSTR]; /* xd in */
char xdo[MAXSTR]; /* xd out */
char dat[MAXSTR]; /* data */
char map[MAXSTR]; /* domain map */
char msh[MAXSTR]; /* mesh points */
char y3d[MAXSTR]; /* Y3D input */
char log[MAXSTR]; /* logging */
char mom[MAXSTR]; /* stats moments */
}
Fnames;
MPI_Datatype
make_fnames_type(void)
{
MPI_Datatype fnames_type;
MPI_Datatype type[8];
int blocklen[8];
MPI_Aint disp[8];
int base, i;
/* define it */
MPI_Address(&fnames.xdi, disp);
MPI_Address(&fnames.xdo, disp + 1);
MPI_Address(&fnames.dat, disp + 2);
MPI_Address(&fnames.map, disp + 3);
MPI_Address(&fnames.msh, disp + 4);
MPI_Address(&fnames.y3d, disp + 5);
MPI_Address(&fnames.log, disp + 6);
MPI_Address(&fnames.mom, disp + 7);
base = disp[0];
for (i = 0; i < 8; i++) {
type[i] = MPI_CHAR;
blocklen[i] = MAXSTR;
disp[i] -= base;
/*
printf("disp[i] = %d blocklen[i] = %d\n", disp[i], blocklen[i]);
*/
}
/* create it */
MPI_Type_struct(8, blocklen, disp, type, &fnames_type);
MPI_Type_commit(&fnames_type);
return (fnames_type);
}
MPI\u数据类型
make_fnames_类型（无效）
{
MPI_数据类型fnames_类型；
MPI_数据类型[8]；
int blocklen[8]；
MPI_Aint disp[8]；
int-base，i；
/*定义它*/
MPI_地址（&fnames.xdi，disp）；
MPI_地址（&fnames.xdo，disp+1）；
MPI_地址（&fnames.dat，disp+2）；
MPI_地址（&fnames.map，disp+3）；
MPI_地址（&fnames.msh，disp+4）；
MPI_地址（&fnames.y3d，disp+5）；
MPI_地址（&fnames.log，disp+6）；
MPI_地址（&fnames.mom，disp+7）；
base=disp[0]；
对于（i=0；i<8；i++）{
类型[i]=MPI_CHAR；
blocklen[i]=MAXSTR；
disp[i]=基；
/*
printf（“disp[i]=%d blocklen[i]=%d\n”，disp[i]，blocklen[i]）；
*/
}
/*创造它*/
MPI类型结构（8，blocklen，disp，Type和fnames类型）；
MPI类型提交（&F名称类型）；
返回（fnames_类型）；
}
有人能帮我吗？非常感谢 假设与大多数MPI用户一样，您正在64位计算机上运行代码： MPI__AInt必须能够包含指针，因此大小为64位。在函数
make\u fnames\u type（）intbasebase=disp[0]可能是一种缩小的转换，并且在任何情况下都不可移植。您应该检查所涉及的值的大小
<> > StangeNote：C++中，与C不同，不需要预先声明所有函数变量。您可以根据需要声明变量。例如，在定义int变量的值之前，没有理由声明int变量base
10行源代码。因此您可以使用intbase=disp[0]全部集中在一个地方，这样缩小的灾难就更容易被发现。更好的是，您可以编写：autobase=disp[0]则不会发生变窄
一种可能是这样更改循环：
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <unistd.h>
#include <string.h>
#include <signal.h>
#include "param.h"
#include "block.h"
#include "q.h"
#include "map.h"
#include "comms.h"
#include "util.h"
#include "dat.h"
#include "timing.h"
#include "sgm.h"
#include "error.h"
#include "init.h"
#include "mom.h"
#include "inst.h"
#include "pcg.h"
#include "bicgstab.h"
#include "ibm.h"
#include "hist.h"
#include "pcg_ext.h"
#include "dibm.h"
/* using BLAS library for better performance */
#ifdef BLAS
#include <essl.h>
#endif
/* local prototypes */
void cmdopts(int *, char ***);
void mybasename(char *, char *);
void glob_output(void);
void glob_tstep(void);
void getstep(char *fname, double *Prtime, int *Pitime);
void putstep(char *fname, double *Prtime, int *Pitime);
/* external prototypes */
void slice_probe(void);
void print_solution(char* , int);
void print_vert(char*, int);
void print_wave(char*, int);
void print_moments(char*, int);
extern void InitializeIBPoint();
/*void glob_snapshot(char*);*/
extern void dibm_interploate_shear_velocity(void);
/* global, used by mgp.c, pcg.c and map.c */
/* global, used by mgp.c, pcg.c and map.c */
int mypid = -1; /* my process id number */
int npid = 1; /* total process number */
int halt_flg = 0; /* halt t-steps, 1=stop, 0=cont */
double wck_t_start, wck_t_end; /* wall clock timing */
double cpu_t_start, cpu_t_end; /* cpu clock timing */
int time_limit = 999999999; /* wall clock limit (seconds) */
double Y_pro_mu=0; //Mu in Y-code;
double Y_pro_Laimuda=0;//Laimuda in Y-code
//char Y_y3dfile[256]; //*.y3d filename in Y-code
double Y_adheforcefactor=1.0;//force factor applied to ib points on Y solid, used in Yw.c-F2y()
double Y_shear_force_factor =1.0;
double Y_shear_vel = 0.0;
int Y_init_entity_num; //cell number at initilization of Y
//#Additional Misc by XuDong
int stat_y_save_dn; // 1000 #y solid saving interval
int stat_plane_save_dn;// 1000 #plane saving interval
int stat_glob_fluid_save_dn;// 10000000 #global fluid saving interval
int stat_restart_save_dn; // 1000 #Restart file saving interval
int stat_gtk_draw_dn; // 1 #gtkdraw interval when GTK defined
int stat_gtk_save_dn; // 100 #gtkdraw picture saving interval when GTK defined
int stat_y_typic_save_dn;
double case_parameter_1;//undefined reserved case parameter
double case_parameter_2;
double case_parameter_3;
double case_parameter_4;
/* main: driver routine */
int main(int argc, char **argv)
{
int bid, ibid;
/* switches */
int add_seed_flg = 0, probe_flg = 0, putxd_2x_flg = 0, reset_stats_flg = 0;
/* Start up any other nodes. The cmd line options relating to the
* parallel interface are parsed and pruned here. */
mypid = com_start(&argc, &argv, 1);
npid = com_nnodes();
wck_t_start = WCKseconds();
cpu_t_start = CPUseconds();
/* Parse the remaining options [first node only] */
if (mypid == 0)
cmdopts(&argc, &argv);
/* Buffering mode for stdout; needed on T3D */
fflush(stdout);
setvbuf(stdout, (char *) 0, _IOLBF, 0); /* line buffering */
/* Read configuration data on ONE node */
if (mypid == 0)
{
/* get the map data and mesh points */
map_getfn(fnames.map, fnames.msh);
map_print(BID_NULL);
if (map_checkt() || map_checku())
exit(2);
/* debugging */
/* map_putfn("temp.map"); */
/* msh_putfn("temp.msh"); */
/* read the local data file and build lookup table */
dat_read(fnames.dat);
dat_print();
/* Modify parameters using info from *.dat file */
dat_getdouble(&viscm, "viscm");
dat_getdouble(&fbody_x, "fbody_x");
dat_getdouble(&fbody_y, "fbody_y");
dat_getdouble(&fbody_z, "fbody_z");
dat_getint(&time_limit, "time_limit");
//#Additional Misc by XuDong
dat_getdouble(&crk_beta,"crk_beta");// #=0--explicit, ==1 fully implicit ==1/2 crank-nicolson
dat_getdouble(&ibm_relax,"ibm_relax");// #=0.5---normal for direct forcing
dat_getint(&stat_y_save_dn,"stat_y_save_dn");// 1000 #y solid saving interval
dat_getint(&stat_plane_save_dn,"stat_plane_save_dn");// 1000 #plane saving interval
dat_getint(&stat_glob_fluid_save_dn,"stat_glob_fluid_save_dn");// 10000000 #global fluid saving interval
dat_getint(&stat_restart_save_dn,"stat_restart_save_dn");// 1000 #Restart file saving interval
dat_getint(&stat_gtk_draw_dn,"stat_gtk_draw_dn");// 1 #gtkdraw interval when GTK defined
dat_getint(&stat_gtk_save_dn,"stat_gtk_save_dn");// 100 #gtkdraw picture saving interval when GTK defined
dat_getint(&stat_y_typic_save_dn,"stat_y_typic_save_dn");// 100 #gtkdraw picture saving interval when GTK defined
dat_getdouble(&Y_adheforcefactor,"Y_adheforcefactor");// 1 #gtkdraw interval when GTK defined
dat_getdouble(&Y_shear_force_factor,"Y_shear_force_factor");// 100 #gtkdraw picture saving interval when GTK defined
dat_getdouble(&Y_shear_vel,"Y_shear_vel");// 100 #gtkdraw picture saving interval when GTK defined
dat_getint(&Y_init_entity_num,"Y_init_entity_num");// //cell number at initilization of Y
dat_getdouble(&case_parameter_1,"case_parameter_1"); //undefined reserved case parameter
dat_getdouble(&case_parameter_2,"case_parameter_2"); //undefined reserved case parameter
dat_getdouble(&case_parameter_3,"case_parameter_3"); //undefined reserved case parameter
dat_getdouble(&case_parameter_4,"case_parameter_4"); //undefined reserved case parameter
/* set current time step parameters */
dat_getint(&ntime, "ntime");
dat_getdouble(&dt, "dt");
if (!flg_init)
getstep(fnames.xdi, &rtime_current, &itime);
itime_first = itime;
itime_last = itime_first + ntime;
rtime_first = rtime_current;
rtime_last = rtime_current + dt * ntime;
/* print fluid parameters */
prparam();
}
/* Distibute to other nodes */
com_dist_param(); /* distribute file names */
com_dist_map(); /* distribute map */
com_dist_data(); /* distribute table */
long int base = disp[0];
for (i = 0; i < 8; i++) {
type[i] = MPI_CHAR;
blocklen[i] = MAXSTR;
disp[i] -= base;
/* changed %d into %ld below */
printf("disp[i] = %ld blocklen[i] = %d\n",
(long int)disp[i], blocklen[i]);
}
long int base=disp[0]；
对于（i=0；i<8；i++）{
类型[i]=MPI_CHAR；
blocklen[i]=MAXSTR；
disp[i]=基；
/*已将下面的%d更改为%ld*/
printf（“disp[i]=%ld blocklen[i]=%d\n”，
（long int）disp[i]，blocklen[i]）；
}
您还可以通过MPI\u type\u size（）
函数检查MPI自定义类型的内存大小是否符合预期
一般说明：C/C++中的所有MPI函数都返回一个整数错误代码。如果不检查这些错误代码，后果自负。很可能某些MPI函数在调用MPI_Bcast（）之前就返回了一个错误代码。当您有一个bug，并且代码太长而找不到它时，请备份代码并开始删除片段，直到只剩下bug为止。通常你不必移除所有东西，只需将噪音降低到你可以通过它发现错误的程度。谢谢！这是个好主意。我会的。非常感谢！但是如果我使用disp[I]=disp[0]
，仍然会发生分段错误。如果我仍然使用long int base
作为中间变量，它就可以工作了。@MeSure-很高兴它起到了作用。是的，你是对的，我的循环版本有一个逻辑错误，因为disp[0]立即被设置为零，所以剩余的偏移量保持不变。我在错误的时间写了那段代码：-）我会的