|
64 | 64 | $fortran->{unweighted} = { |
65 | 65 | c_type => "int *", |
66 | 66 | c_name => "mpi_fortran_unweighted", |
67 | | - f_type => "integer", |
| 67 | + f_type => "integer, dimension(2)", |
68 | 68 | f_name => "MPI_UNWEIGHTED", |
69 | 69 | }; |
70 | 70 | $fortran->{weights_empty} = { |
71 | 71 | c_type => "int *", |
72 | 72 | c_name => "mpi_fortran_weights_empty", |
73 | | - f_type => "integer", |
| 73 | + f_type => "integer, dimension(2)", |
74 | 74 | f_name => "MPI_WEIGHTS_EMPTY", |
75 | 75 | }; |
76 | 76 |
|
77 | 77 | $fortran->{argv_null} = { |
78 | 78 | c_type => "char *", |
79 | 79 | c_name => "mpi_fortran_argv_null", |
80 | | - f_type => "character, dimension(1)", |
| 80 | + f_type => "character, dimension(8)", |
81 | 81 | f_name => "MPI_ARGV_NULL", |
82 | 82 | }; |
83 | 83 | $fortran->{argvs_null} = { |
84 | 84 | c_type => "char *", |
85 | 85 | c_name => "mpi_fortran_argvs_null", |
86 | | - f_type => "character, dimension(1, 1)", |
| 86 | + f_type => "character, dimension(1, 8)", |
87 | 87 | f_name => "MPI_ARGVS_NULL", |
88 | 88 | }; |
89 | 89 |
|
90 | 90 | $fortran->{errcodes_ignore} = { |
91 | 91 | c_type => "int *", |
92 | 92 | c_name => "mpi_fortran_errcodes_ignore", |
93 | | - f_type => "integer, dimension(1)", |
| 93 | + f_type => "integer, dimension(2)", |
94 | 94 | f_name => "MPI_ERRCODES_IGNORE", |
95 | 95 | }; |
96 | 96 | $fortran->{status_ignore} = { |
|
0 commit comments