Lines Matching refs:err
5 #define CHKMPIERR(err) \ argument
7 if (err) MPI_Abort(MPI_COMM_WORLD, err); \
12 int err; in main() local
17 err = MPI_Init(&argc, &argv); in main()
18 CHKMPIERR(err); in main()
22 err = MPI_Comm_create_keyval(MPI_COMM_NULL_COPY_FN, MPI_COMM_NULL_DELETE_FN, &key1, NULL); in main()
23 CHKMPIERR(err); in main()
24 err = MPI_Comm_free_keyval(&key1); in main()
25 CHKMPIERR(err); in main()
26 err = MPI_Comm_dup(MPI_COMM_WORLD, &newcomm); in main()
27 CHKMPIERR(err); in main()
28 err = MPI_Comm_free(&newcomm); in main()
29 CHKMPIERR(err); in main()
33 err = MPI_Comm_create_keyval(MPI_COMM_NULL_COPY_FN, MPI_COMM_NULL_DELETE_FN, &key1, NULL); in main()
34 CHKMPIERR(err); in main()
35 err = MPI_Comm_create_keyval(MPI_COMM_NULL_COPY_FN, MPI_COMM_NULL_DELETE_FN, &key2, NULL); in main()
36 CHKMPIERR(err); in main()
37 err = MPI_Comm_dup(MPI_COMM_WORLD, &newcomm); in main()
38 CHKMPIERR(err); in main()
41 err = MPI_Comm_set_attr(MPI_COMM_WORLD, key1, &attr1); in main()
42 CHKMPIERR(err); in main()
43 err = MPI_Comm_set_attr(newcomm, key2, &attr2); in main()
44 CHKMPIERR(err); in main()
45 err = MPI_Comm_get_attr(newcomm, key1, &attr, &iflg); in main()
46 CHKMPIERR(err); in main()
48 err = MPI_Comm_get_attr(MPI_COMM_WORLD, key1, &attr, &iflg); in main()
49 CHKMPIERR(err); in main()
51 err = MPI_Comm_get_attr(newcomm, key2, &attr, &iflg); in main()
52 CHKMPIERR(err); in main()
55 err = MPI_Comm_delete_attr(MPI_COMM_WORLD, key1); in main()
56 CHKMPIERR(err); in main()
57 err = MPI_Comm_delete_attr(newcomm, key2); in main()
58 CHKMPIERR(err); in main()
59 err = MPI_Comm_free_keyval(&key1); in main()
60 CHKMPIERR(err); in main()
61 err = MPI_Comm_free_keyval(&key2); in main()
62 CHKMPIERR(err); in main()
63 err = MPI_Comm_free(&newcomm); in main()
64 CHKMPIERR(err); in main()
70 PetscCall(PetscFinalize(); if (err) return err); in main()
73 err = MPI_Finalize(); in main()
74 return err; in main()