c_type_old_array 81 ompi/mpi/fortran/mpif-h/type_create_struct_f.c MPI_Datatype *c_type_old_array; c_type_old_array 85 ompi/mpi/fortran/mpif-h/type_create_struct_f.c c_type_old_array = (MPI_Datatype *) malloc(*count * sizeof(MPI_Datatype)); c_type_old_array 86 ompi/mpi/fortran/mpif-h/type_create_struct_f.c if (NULL == c_type_old_array) { c_type_old_array 94 ompi/mpi/fortran/mpif-h/type_create_struct_f.c c_type_old_array[i] = PMPI_Type_f2c(array_of_types[i]); c_type_old_array 101 ompi/mpi/fortran/mpif-h/type_create_struct_f.c array_of_displacements, c_type_old_array, &c_new); c_type_old_array 110 ompi/mpi/fortran/mpif-h/type_create_struct_f.c free(c_type_old_array); c_type_old_array 80 ompi/mpi/fortran/mpif-h/type_struct_f.c MPI_Datatype *c_type_old_array; c_type_old_array 85 ompi/mpi/fortran/mpif-h/type_struct_f.c c_type_old_array = (MPI_Datatype *) malloc(*count * (sizeof(MPI_Datatype) + c_type_old_array 87 ompi/mpi/fortran/mpif-h/type_struct_f.c if (NULL == c_type_old_array) { c_type_old_array 93 ompi/mpi/fortran/mpif-h/type_struct_f.c c_disp_array = (MPI_Aint*) c_type_old_array + *count; c_type_old_array 97 ompi/mpi/fortran/mpif-h/type_struct_f.c c_type_old_array[i] = PMPI_Type_f2c(array_of_types[i]); c_type_old_array 105 ompi/mpi/fortran/mpif-h/type_struct_f.c c_type_old_array, &c_new); c_type_old_array 109 ompi/mpi/fortran/mpif-h/type_struct_f.c free(c_type_old_array);