wrfv2_fire/var/external/bufr/bort_exit.c

   1 /*$$$  SUBPROGRAM DOCUMENTATION BLOCK
   2 C
   3 C SUBPROGRAM:    BORT_EXIT
   4 C   PRGMMR: ATOR             ORG: NP12       DATE: 2003-11-04
   5 C
   6 C ABSTRACT: THIS SUBROUTINE WILL TERMINATE THE APPLICATION PROGRAM AND
   7 C   RETURN AN IMPLEMENTATION-DEFINED NON-ZERO STATUS CODE TO THE
   8 C   EXECUTING SHELL SCRIPT.
   9 C
  10 C PROGRAM HISTORY LOG:
  11 C 2003-11-04  J. ATOR    -- ORIGINAL AUTHOR
  12 C 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF
  13 C 2004-08-18  J. ATOR    -- USE bufrlib.h INCLUDE FILE
  14 C 2007-01-19  J. ATOR    -- FIX DECLARATION FOR ANSI-C
  15 C
  16 C USAGE:    CALL BORT_EXIT
  17 C
  18 C REMARKS:
  19 C    THIS ROUTINE CALLS:        None
  20 C    THIS ROUTINE IS CALLED BY: BORT     BORT2
  21 C                               Normally not called by application
  22 C                               programs but it could be.
  23 C
  24 C ATTRIBUTES:
  25 C   LANGUAGE: C
  26 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  27 C
  28 C$$$*/
  29
  30 #include "bufrlib.h"
  31
  32 void bort_exit( void )
  33 {
  34     exit( EXIT_FAILURE );
  35 }