ad_wait_fake.c

fortran并行计算包

/* -*- Mode: C; c-basic-offset:4 ; -*- */
/* 
 *
 *   Copyright (C) 2004 University of Chicago. 
 *   See COPYRIGHT notice in top-level directory.
 */

#include "adio.h"

/* Generic implementation of ReadComplete/WriteComplete simply sets the
 * bytes field in the status structure and frees the request.
 *
 * Same function is used for both reads and writes.
 */
void ADIOI_FAKE_IOComplete(ADIO_Request *request, ADIO_Status *status,
			  int *error_code)
{
        *error_code = MPI_SUCCESS;
	return;
}