NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
moda_tables.F File Reference

Declare arrays for internal storage of jump/link table. More...

Go to the source code of this file.

Data Types

module  moda_tables
 This module contains array and variable declarations used to store the internal jump/link table. More...
 

Detailed Description

Declare arrays for internal storage of jump/link table.

Definition in file moda_tables.F.


Data Type Documentation

module moda_tables

This module contains array and variable declarations used to store the internal jump/link table.

Data values within this module are stored by subroutines makestab(), tabsub() and tabent().

Author
J. Ator
Date
2014-12-10

Definition at line 13 of file moda_tables.F.

Data Fields
integer, dimension(maxjl) ibt Bit widths corresponding to tag and typ:
  • Bit width of corresponding tag entry, if corresponding typ entry is "CHR", "NUM", "DRB" or "DRP"
  • 0, otherwise
integer, dimension(maxjl) irf Reference values corresponding to tag and typ:
  • Reference value of corresponding tag entry, if corresponding typ entry is "NUM"
  • Number of regular (non-delayed) replications of Table D mnemonic referenced by corresponding jump entry, if corresponding typ entry is "REP"
  • 0, otherwise
integer, dimension(maxjl) isc Scale factors corresponding to tag and typ:
  • Scale factor of corresponding tag entry, if corresponding typ entry is "NUM"
  • Jump/link table entry for Table B or Table D mnemonic which is the last sequential child descriptor of the corresponding tag entry, if the corresponding typ entry is "SUB"
  • 0, otherwise
integer, dimension(maxjl, 2) iseq
integer, dimension(maxjl) itp Integer type values corresponding to typ:
  • 1, if corresponding typ entry is "DRS", "DRP" or "DRB"
  • 2, if corresponding typ entry is "NUM"
  • 3, if corresponding typ entry is "CHR"
  • 0, otherwise
integer, dimension(maxjl) jmpb Jump backward indices corresponding to tag and typ:
  • 0, if corresponding typ entry is "SUB"
  • Jump/link table entry denoting the replication of corresponding tag entry, if corresponding typ entry is "RPC", or if corresponding typ entry is "SEQ" and corresponding tag entry uses either short (1-bit) or regular (non-delayed) replication
  • Jump/link table entry for Table A or D mnemonic of which corresponding tag entry is a child descriptor, otherwise
integer, dimension(maxjl) jseq
integer, dimension(maxjl) jump Jump forward indices corresponding to tag and typ:
  • 0, if corresponding typ entry is "CHR" or "NUM"
  • Jump/link table entry for Table D mnemonic whose replication is denoted by corresponding tag entry, if corresponding typ entry is "DRB", "DRP" or "REP"
  • Jump/link table entry for Table B or D mnemonic which is the first sequential child descriptor of the corresponding tag entry, otherwise
integer, dimension(maxjl) knt
integer, dimension(maxjl) knti Initialized replication counts corresponding to typ and jump:
  • 0, if corresponding typ entry is "RPC", "RPS" or "DRB"
  • Number of regular (non-delayed) replications of Table D mnemonic referenced by corresponding jump entry, if corresponding typ entry is "REP"
  • 1, otherwise
integer, dimension(maxjl) link Link indices corresponding to tag, typ and jmpb:
  • 0, if corresponding typ entry is "SUB" or "RPC", or if corresponding typ entry is "SEQ" and corresponding tag entry uses either short (1-bit) or regular (non-delayed) replication, or if corresponding tag entry is the last sequential child descriptor of the Table A or D mnemonic referenced by corresponding jmpb entry
  • Jump/link table entry for Table B or D mnemonic which follows the corresponding tag entry as the next sequential child descriptor of the Table A or D mnemonic referenced by corresponding jmpb entry, otherwise
integer maxtab Maximum number of entries in the jump/link table; equivalent to MAXJL.
integer ntab Number of entries in the jump/link table.
character *10, dimension(maxjl) tag Mnemonics in the jump/link table.
character *3, dimension(maxjl) typ Type indicators corresponding to tag:
  • "SUB", if corresponding tag entry is a Table A mnemonic
  • "SEQ", if corresponding tag entry is a Table D mnemonic using either short (1-bit) delayed replication, regular (non-delayed) replication, or no replication at all
  • "RPC", if corresponding tag entry is a Table D mnemonic using either medium (8-bit) or long (16-bit) delayed replication
  • "RPS", if corresponding tag entry is a Table D mnemonic using medium (8-bit) delayed replication in a stack
  • "DRB", if corresponding tag entry denotes the short (1-bit) delayed replication of a Table D mnemonic
  • "DRP", if corresponding tag entry denotes the medium (8-bit) or long (16-bit) delayed replication of a Table D mnemonic
  • "DRS", if corresponding tag entry denotes the medium (8-bit) delayed replication of a Table D mnemonic in a stack
  • "REP", if corresponding tag entry denotes the regular (non-delayed) replication of a Table D mnemonic
  • "CHR", if corresponding tag entry is a Table B mnemonic with units of CCITT IA5
  • "NUM", if corresponding tag entry is a Table B mnemonic with any units other than CCITT IA5
real *8, dimension(maxjl) vali Initialized data values corresponding to typ:
  • Current placeholder value for "missing" data, if corresponding typ entry is "REP", "NUM" or "CHR"
  • 0, otherwise