var/external/bufr/icvidx.c

   1 /*$$$  SUBPROGRAM DOCUMENTATION BLOCK
   2 C
   3 C SUBPROGRAM:   ICVIDX
   4 C   PRGMMR: ATOR             ORG: NP12       DATE: 2009-03-23
   5 C
   6 C ABSTRACT:  THIS ROUTINE COMPUTES A UNIQUE 1-DIMENSIONAL ARRAY
   7 C   INDEX FROM 2-DIMENSIONAL INDICES.  THIS ALLOWS A 2-DIMENSIONAL
   8 C   (ROW-BY-COLUMN) ARRAY TO BE STORED AND ACCESSED AS A
   9 C   1-DIMENSIONAL ARRAY.
  10 C
  11 C PROGRAM HISTORY LOG:
  12 C 2009-03-23  J. ATOR    -- ORIGINAL AUTHOR
  13 C
  14 C USAGE:    CALL ICVIDX( II, JJ, NUMJJ )
  15 C   INPUT ARGUMENT LIST:
  16 C     II       - INTEGER: FIRST (ROW) INDEX
  17 C     JJ       - INTEGER: SECOND (COLUMN) INDEX
  18 C     NUMJJ    - INTEGER: MAXIMUM NUMBER OF COLUMN INDICES
  19 C
  20 C   OUTPUT ARGUMENT LIST:
  21 C     ICVIDX   - INTEGER: 1-DIMENSIONAL INDEX
  22 C
  23 C REMARKS:
  24 C    THIS ROUTINE CALLS:        None
  25 C    THIS ROUTINE IS CALLED BY: READMT   STSEQ
  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 f77int icvidx( f77int *ii, f77int *jj, f77int *numjj )
  38 {
  39         return ( *numjj * (*ii) ) + *jj;
  40 }