allmpi.c

fortran并行计算包

    MPI_Error_string(i, cbuf, &i);
    MPI_Error_class(i, &i);
    MPI_Wtime();
    MPI_Wtick();
    MPI_Init(&argc, &argv);
    MPI_Finalize();
    MPI_Initialized(&i);
    MPI_Abort(comm, i);
    MPI_Pcontrol(0);
    MPI_DUP_FN( comm, i, vbuf, vbuf, vbuf, &i );
    MPI_Close_port(cbuf);
    MPI_Comm_accept(cbuf, info, i, comm, &comm);
    MPI_Comm_connect(cbuf, info, i, comm, &comm);
    MPI_Comm_disconnect(&comm);
    MPI_Comm_get_parent(&comm);
    MPI_Comm_join(i, &comm);
    MPI_Comm_spawn(cbuf, &cmd, i, info, i, comm, &comm, &i);
    MPI_Comm_spawn_multiple(i, &cmd, argvp, &i, &info, i, comm, &comm, &i); 
    MPI_Lookup_name(cbuf, info, cbuf);
    MPI_Open_port(info, cbuf);
    MPI_Publish_name(cbuf, info, cbuf);
    MPI_Unpublish_name(cbuf, info, cbuf);
    MPI_Accumulate(vbuf, i, dtype, i, aint, i, dtype,  op, win);
    MPI_Get(vbuf, i, dtype, i, aint, i, dtype, win);
    MPI_Put(vbuf, i, dtype, i, aint, i, dtype, win);
    MPI_Win_complete(win);
    MPI_Win_create(vbuf, aint, i, info, comm, &win);
    MPI_Win_fence(i, win);
    MPI_Win_free(&win);
    MPI_Win_get_group(win, &group);
    MPI_Win_lock(i, i, i, win);
    MPI_Win_post(group, i, win);
    MPI_Win_start(group, i, win);
    MPI_Win_test(win, &i);
    MPI_Win_unlock(i, win);
    MPI_Win_wait(win);
    MPI_Alltoallw(vbuf, &i, &i, &dtype, vbuf, &i, &i, &dtype, comm);
    MPI_Exscan(vbuf, vbuf, i, dtype, op, comm) ;
    MPI_Add_error_class(&i);
    MPI_Add_error_code(i, &i);
    MPI_Add_error_string(i, cbuf);
    MPI_Comm_call_errhandler(comm, i);
    MPI_Comm_create_keyval(&comm_copy_attr_fn, &comm_delete_attr_fn, &i, vbuf);
    MPI_Comm_delete_attr(comm, i);
    MPI_Comm_free_keyval(&i);
    MPI_Comm_get_attr(comm, i, vbuf, &i);
    MPI_Comm_get_name(comm, cbuf, &i);
    MPI_Comm_set_attr(comm, i, vbuf);
    MPI_Comm_set_name(comm, cbuf);
#ifdef HAVE_MPI_IO
    MPI_File_call_errhandler(file, i);
#endif
    MPI_Grequest_complete(request);
    MPI_Grequest_start(&query_fn, &free_fn, &cancel_fn, vbuf, &request);
    MPI_Init_thread(&argc, &argv, i, &i);
    MPI_Is_thread_main(&i);
    MPI_Query_thread(&i);
    MPI_Status_set_cancelled(&status, i);
    MPI_Status_set_elements(&status, dtype, i);
    MPI_Type_create_keyval(&tcopy_attr_fn, &tdelete_attr_fn, &i, vbuf);
    MPI_Type_delete_attr(dtype, i);
    MPI_Type_dup(dtype, &dtype);
    MPI_Type_free_keyval(&i);
    MPI_Type_get_attr(dtype, i, vbuf, &i);
    MPI_Type_get_contents(dtype, i, i, i, &i, &aint, &dtype);
    MPI_Type_get_envelope(dtype, &i, &i, &i, &i);
    MPI_Type_get_name(dtype, cbuf, &i);
    MPI_Type_set_attr(dtype, i, vbuf);
    MPI_Type_set_name(dtype, type_name);
    MPI_Win_call_errhandler(win, i);
    MPI_Win_create_keyval(&win_copy_attr_fn, win_delete_attr_fn, &i, vbuf);
    MPI_Win_delete_attr(win, i);
    MPI_Win_free_keyval(&i);
    MPI_Win_get_attr(win, i, vbuf, &i);
    MPI_Win_get_name(win, cbuf, &i);
    MPI_Win_set_attr(win, i, vbuf);
    MPI_Win_set_name(win, cbuf);
    MPI_Alloc_mem(aint, info, vbuf);
    MPI_Comm_create_errhandler(&comm_errhan, &errhan);
    MPI_Comm_get_errhandler(comm, &errhan);
    MPI_Comm_set_errhandler(comm, errhan);
#ifdef HAVE_MPI_IO
    MPI_File_create_errhandler(&file_errhan, &errhan);
    MPI_File_get_errhandler(file, &errhan);
    MPI_File_set_errhandler(file, errhan);
#endif
    MPI_Finalized(&i);
    MPI_Free_mem(vbuf);
    MPI_Get_address(vbuf, &aint);
    MPI_Info_create(&info);
    MPI_Info_delete(info, cbuf);
    MPI_Info_dup(info, &info);
    MPI_Info_free(&info);
    MPI_Info_get(info, cbuf, i, cbuf, &i);
    MPI_Info_get_nkeys(info, &i);
    MPI_Info_get_nthkey(info, i, cbuf);
    MPI_Info_get_valuelen(info, cbuf, &i, &i);
    MPI_Info_set(info, cbuf, cbuf);
    MPI_Pack_external(cbuf, vbuf, i, dtype, vbuf, aint, &aint); 
    MPI_Pack_external_size(cbuf, i, dtype, &aint); 
    MPI_Request_get_status(request, &i, &status);
#ifdef HAVE_FORTRAN_BINDING
    MPI_Status_c2f(&status, &fint);
    MPI_Status_f2c(&fint, &status);
#endif
    MPI_Type_create_darray(i, i, i, &i, &i, &i, &i, i, dtype, &dtype);
    MPI_Type_create_subarray(i, &i, &i, &i, i, dtype, &dtype);
    MPI_Type_create_hindexed(i, &i, &aint, dtype, &dtype);
    MPI_Type_create_hvector(i, i, aint, dtype, &dtype);
    MPI_Type_create_indexed_block(i, i, &i, dtype, &dtype);
    MPI_Type_create_resized(dtype, aint, aint, &dtype);
    MPI_Type_create_struct(i, &i, &aint, &dtype, &dtype);
    MPI_Type_get_extent(dtype, &aint, &aint);
    MPI_Type_get_true_extent(dtype, &aint, &aint);
    MPI_Unpack_external(cbuf, vbuf, aint, &aint, vbuf, i, dtype); 
    MPI_Win_create_errhandler(&win_errhan, &errhan);
    MPI_Win_get_errhandler(win, &errhan);
    MPI_Win_set_errhandler(win, errhan);
#ifdef HAVE_MPI_IO
    MPI_File_open(comm, filename, amode, info, &file);
    MPI_File_close(&file);
    MPI_File_delete(filename, info);
    MPI_File_set_size(file, size);
    MPI_File_preallocate(file, size);
    MPI_File_get_size(file, &size);
    MPI_File_get_group(file, &group);
    MPI_File_get_amode(file, &amode);
    MPI_File_set_info(file, info);
    MPI_File_get_info(file, &info);
    MPI_File_set_view(file, offset, dtype, dtype, cbuf, info);
    MPI_File_get_view(file, &offset, &dtype, &dtype, cbuf);
    MPI_File_read_at(file, offset, vbuf, i, dtype, &status);
    MPI_File_read_at_all(file, offset, vbuf, i, dtype, &status);
    MPI_File_write_at(file, offset, vbuf, i, dtype, &status);
    MPI_File_write_at_all(file, offset, vbuf, i, dtype, &status);
    MPI_File_iread_at(file, offset, vbuf, i, dtype, &iorequest);
    MPI_File_iwrite_at(file, offset, vbuf, i, dtype, &iorequest);
    MPI_File_read(file, vbuf, i, dtype, &status); 
    MPI_File_read_all(file, vbuf, i, dtype, &status);
    MPI_File_write(file, vbuf, i, dtype, &status);
    MPI_File_write_all(file, vbuf, i, dtype, &status);
    MPI_File_iread(file, vbuf, i, dtype, &iorequest);
    MPI_File_iwrite(file, vbuf, i, dtype, &iorequest);
    MPI_File_seek(file, offset, i);
    MPI_File_get_position(file, &offset);
    MPI_File_get_byte_offset(file, offset, &offset);
    MPI_File_read_shared(file, vbuf, i, dtype, &status);
    MPI_File_write_shared(file, vbuf, i, dtype, &status);
    MPI_File_iread_shared(file, vbuf, i, dtype, &iorequest);
    MPI_File_iwrite_shared(file, vbuf, i, dtype, &iorequest);
    MPI_File_read_ordered(file, vbuf, i, dtype, &status);
    MPI_File_write_ordered(file, vbuf, i, dtype, &status);
    MPI_File_seek_shared(file, offset, i);
    MPI_File_get_position_shared(file, &offset);
    MPI_File_read_at_all_begin(file, offset, vbuf, i, dtype);
    MPI_File_read_at_all_end(file, vbuf, &status);
    MPI_File_write_at_all_begin(file, offset, vbuf, i, dtype);
    MPI_File_write_at_all_end(file, vbuf, &status);
    MPI_File_read_all_begin(file, vbuf, i, dtype);
    MPI_File_read_all_end(file, vbuf, &status);
    MPI_File_write_all_begin(file, vbuf, i, dtype);
    MPI_File_write_all_end(file, vbuf, &status);
    MPI_File_read_ordered_begin(file, vbuf, i, dtype);
    MPI_File_read_ordered_end(file, vbuf, &status);
    MPI_File_write_ordered_begin(file, vbuf, i, dtype);
    MPI_File_write_ordered_end(file, vbuf, &status);
    MPI_File_get_type_extent(file, dtype, &aint);
    MPI_File_set_atomicity(file, i);
    MPI_File_get_atomicity(file, &i);
    MPI_File_sync(file);
    MPI_File_set_errhandler(file, errhan);
    MPI_File_get_errhandler(file, &errhan);
    MPI_Type_create_subarray(i, &i, &i, &i, i, dtype, &dtype);
    MPI_Type_create_darray(i, i, i, &i, &i, &i, &i, i, dtype, &dtype);
    MPI_File_f2c(fint);
    MPI_File_c2f(file);
#endif
}

int main(int argc, char *argv[])
{
    MPI_Init(&argc, &argv);

    /* make it possible to call testAll so the compiler doesn't optimize out the code? */
    if (argc > 1 && strcmp(argv[1], "flooglebottom") == 0)
	testAll();

    MPI_Finalize();
    return 0;
}