void mpi_type_delete_attr_f(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr) { MPI_Datatype c_type = MPI_Type_f2c(*type); *ierr = OMPI_INT_2_FINT(MPI_Type_delete_attr(c_type, OMPI_FINT_2_INT(*type_keyval) )); }
JNIEXPORT void JNICALL Java_mpi_Datatype_deleteAttr( JNIEnv *env, jobject jthis, jlong type, jint keyval) { int rc = MPI_Type_delete_attr((MPI_Datatype)type, keyval); ompi_java_exceptionCheck(env, rc); }
int main( int argc, char *argv[] ) { int errs = 0; int key[3], attrval[3]; int i; MPI_Datatype type; MTest_Init( &argc, &argv ); { type = MPI_INT; /* Create key values */ for (i=0; i<3; i++) { MPI_Type_create_keyval( MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN, &key[i], (void *)0 ); attrval[i] = 1024 * i; } /* Insert attribute in several orders. Test after put with get, then delete, then confirm delete with get. */ MPI_Type_set_attr( type, key[2], &attrval[2] ); MPI_Type_set_attr( type, key[1], &attrval[1] ); MPI_Type_set_attr( type, key[0], &attrval[0] ); errs += checkAttrs( type, 3, key, attrval ); MPI_Type_delete_attr( type, key[0] ); MPI_Type_delete_attr( type, key[1] ); MPI_Type_delete_attr( type, key[2] ); errs += checkNoAttrs( type, 3, key ); MPI_Type_set_attr( type, key[1], &attrval[1] ); MPI_Type_set_attr( type, key[2], &attrval[2] ); MPI_Type_set_attr( type, key[0], &attrval[0] ); errs += checkAttrs( type, 3, key, attrval ); MPI_Type_delete_attr( type, key[2] ); MPI_Type_delete_attr( type, key[1] ); MPI_Type_delete_attr( type, key[0] ); errs += checkNoAttrs( type, 3, key ); MPI_Type_set_attr( type, key[0], &attrval[0] ); MPI_Type_set_attr( type, key[1], &attrval[1] ); MPI_Type_set_attr( type, key[2], &attrval[2] ); errs += checkAttrs( type, 3, key, attrval ); MPI_Type_delete_attr( type, key[1] ); MPI_Type_delete_attr( type, key[2] ); MPI_Type_delete_attr( type, key[0] ); errs += checkNoAttrs( type, 3, key ); for (i=0; i<3; i++) { MPI_Type_free_keyval( &key[i] ); } } MTest_Finalize( errs ); MPI_Finalize(); return 0; }