#include <misc.h> subroutine endrun 4 C----------------------------------------------------------------------- C C Abort the model for abnormal termination C C---------------------------Code history-------------------------------- C C Original version: L. Bath, Apr 1992 C Standardized: L. Bath, Jun 1992 C L. Buja, Feb 1996 C C----------------------------------------------------------------------- c c $Id: endrun.F,v 1.4 1998/03/04 23:56:05 jet Exp $ c $Author: jet $ c C----------------------------------------------------------------------- implicit none C----------------------------------------------------------------------- C #if ( defined SPMD ) integer info call MPI_FINALIZE(info) #endif call abort C end