/***************************************************************************** * CVS File Information : * $RCSfile$ * Author: patmiller $ * Date: 2007/06/11 14:12:53 $ * Revision: 1.2 $ ****************************************************************************/ /****************************************************************************/ /* FILE ********************* PMPI_Int2handle.c ************************/ /****************************************************************************/ /* Author : Lisa Alano July 23 2002 */ /* Copyright (c) 2002 University of California Regents */ /****************************************************************************/ #include "mpi.h" /* STUB */ MPI_Handle_type PMPI_Int2handle( MPI_Fint f_handle, MPI_Handle_enum handle_kind ) { fprintf(stderr,"%s:%d: NOT IMPLEMENTED\n",__FILE__,__LINE__); return MPI_Abort((MPI_Comm)0, MPI_UNDEFINED); }