ungrib/src/ngl/g2/mova2i.c

   1 /*$$$  SUBPROGRAM DOCUMENTATION BLOCK
   2 C                .      .    .                                       .
   3 C SUBPROGRAM:    mov_a2i      Moves a bit string from a char*1 to int
   4 C   PRGMMR: Gilbert          ORG: W/NP11     DATE: 02-08-15
   5 C
   6 C ABSTRACT: This Function copies a bit string from a Character*1 variable
   7 C   to an integer variable.  It is intended to replace the Fortran Intrinsic
   8 C   Function ICHAR, which only supports 0 <= ICHAR(a) <= 127 on the
   9 C   IBM SP.  If "a" is greater than 127 in the collating sequence,
  10 C   ICHAR(a) does not return the expected bit value.
  11 C   This function can be used for all values 0 <= ICHAR(a) <= 255.
  12 C
  13 C PROGRAM HISTORY LOG:
  14 C   98-12-15  Gilbert
  15 C
  16 C USAGE:     I = mov_a2i(a)
  17 C
  18 C   INPUT ARGUMENT :
  19 C
  20 C          a - Character*1 variable that holds the bitstring to extract
  21 C
  22 C   RETURN ARGUMENT :
  23 C
  24 C          mov_a2i - Integer value of the bitstring in character a
  25 C
  26 C REMARKS:
  27 C
  28 C      None
  29 C
  30 C ATTRIBUTES:
  31 C   LANGUAGE: C
  32 C   MACHINE:  IBM SP
  33
  34 C
  35 C$$$i*/
  36
  37 #if defined _UNDERSCORE
  38    int mov_a2i_(unsigned char *a)
  39 #elif defined _DOUBLEUNDERSCORE
  40    int mov_a2i__(unsigned char *a)
  41 #else
  42    int mov_a2i(unsigned char *a)
  43 #endif
  44
  45 {
  46     return (int)(*a);
  47 }