var/external/bufr/cmpia.c

   1 /*$$$  SUBPROGRAM DOCUMENTATION BLOCK
   2 C
   3 C SUBPROGRAM:   CMPIA
   4 C   PRGMMR: ATOR             ORG: NP12       DATE: 2009-03-23
   5 C
   6 C ABSTRACT:  THIS ROUTINE DEFINES A COMPARISON BETWEEN TWO INTEGERS
   7 C   FOR USE BY THE BINARY SEARCH FUNCTION BSEARCH.
   8 C
   9 C PROGRAM HISTORY LOG:
  10 C 2009-03-23  J. ATOR    -- ORIGINAL AUTHOR
  11 C
  12 C USAGE:    CALL CMPIA( PF1, PF2 )
  13 C   INPUT ARGUMENT LIST:
  14 C     PF1      - INTEGER: FIRST INTEGER TO BE COMPARED
  15 C     PF2      - INTEGER: SECOND INTEGER TO BE COMPARED
  16 C
  17 C   OUTPUT ARGUMENT LIST:
  18 C     CMPIA    - INTEGER: RESULT OF COMPARISON:
  19 C                      -1 = PF1 is less than PF2
  20 C                       0 = PF1 is equal to PF2
  21 C                       1 = PF1 is greater than PF2
  22 C
  23 C REMARKS:
  24 C    THIS ROUTINE CALLS:        None
  25 C    THIS ROUTINE IS CALLED BY: NUMMTB
  26 C                               Normally not called by any application
  27 C                               programs.
  28 C
  29 C ATTRIBUTES:
  30 C   LANGUAGE: C
  31 C   MACHINE:  PORTABLE TO ALL PLATFORMS
  32 C
  33 C$$$*/
  34
  35 #include "bufrlib.h"
  36
  37 int cmpia( const f77int *pf1, const f77int *pf2 )
  38 {
  39         if ( *pf1 == *pf2 ) return 0;
  40
  41         return ( *pf1 < *pf2 ? -1 : 1 );
  42 }