rdmtbb.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	rdmtbb (LUNSTB, LUNLTB, MXMTBB, IMT, IMTV, IOGCE, ILTV, NMTBB, IMFXYN, CMSCL, CMSREF, CMBW, CMUNIT, CMMNEM, CMDSC, CMELEM)
	THIS SUBROUTINE READS MASTER TABLE B INFORMATION FROM TWO SEPARATE (I.E. More...

Detailed Description

Author

ATOR

Date

2007-01-19

Definition in file rdmtbb.f.

Function/Subroutine Documentation

subroutine rdmtbb	(		LUNSTB,
			LUNLTB,
			MXMTBB,
			IMT,
			IMTV,
			IOGCE,
			ILTV,
			NMTBB,
		integer, dimension(*)	IMFXYN,
		character, dimension(4,*)	CMSCL,
		character, dimension(12,*)	CMSREF,
		character, dimension(4,*)	CMBW,
		character, dimension(14,*)	CMUNIT,
		character, dimension(8,*)	CMMNEM,
		character*4, dimension(*)	CMDSC,
		character, dimension(120,*)	CMELEM
	)

THIS SUBROUTINE READS MASTER TABLE B INFORMATION FROM TWO SEPARATE (I.E.

ONE STANDARD AND ONE LOCAL) ASCII FILES AND THEN MERGES IT INTO A UNIFIED SET OF MASTER TABLE B ARRAYS FOR OUTPUT. EACH OF THE TWO INPUT FILES MUST ALREADY BE INDIVIDUALLY SORTED IN ASCENDING ORDER WITH RESPECT TO THE FXY NUMBERS.

PROGRAM HISTORY LOG: 2007-01-19 J. ATOR – ORIGINAL AUTHOR 2021-01-08 J. ATOR – MODIFIED MSTABS ARRAY DECLARATIONS FOR GNUv10 PORTABILITY

USAGE: CALL RDMTBB ( LUNSTB, LUNLTB, MXMTBB, IMT, IMTV, IOGCE, ILTV, NMTBB, IMFXYN, CMSCL, CMSREF, CMBW, CMUNIT, CMMNEM, CMDSC, CMELEM ) INPUT ARGUMENT LIST: LUNSTB - INTEGER: FORTRAN LOGICAL UNIT NUMBER OF ASCII FILE CONTAINING STANDARD TABLE B INFORMATION LUNLTB - INTEGER: FORTRAN LOGICAL UNIT NUMBER OF ASCII FILE CONTAINING LOCAL TABLE B INFORMATION MXMTBB - INTEGER: MAXIMUM NUMBER OF ENTRIES TO BE STORED IN MERGED MASTER TABLE B ARRAYS; THIS SHOULD BE THE SAME NUMBER AS WAS USED TO DIMENSION THE OUTPUT ARRAYS IN THE CALLING PROGRAM, AND IT IS USED BY THIS SUBROUTINE TO ENSURE THAT IT DOESN'T OVERFLOW THESE ARRAYS

OUTPUT ARGUMENT LIST: IMT - INTEGER: MASTER TABLE, READ FROM EACH ASCII FILE (NOTE: THESE VALUES MUST BE THE SAME IN EACH FILE!) IMTV - INTEGER: VERSION NUMBER OF MASTER TABLE, READ FROM STANDARD ASCII FILE IOGCE - INTEGER: ORIGINATING CENTER, READ FROM LOCAL ASCII FILE ILTV - INTEGER: VERSION NUMBER OF LOCAL TABLE, READ FROM LOCAL ASCII FILE NMTBB - INTEGER: NUMBER OF ENTRIES IN MERGED MASTER TABLE B ARRAYS IMFXYN(*)- INTEGER: MERGED ARRAY CONTAINING BIT-WISE REPRESENTATIONS OF FXY NUMBERS CMSCL(*) - CHARACTER*4: MERGED ARRAY CONTAINING SCALE FACTORS CMSREF(*)- CHARACTER*12: MERGED ARRAY CONTAINING REFERENCE VALUES CMBW(*) - CHARACTER*4: MERGED ARRAY CONTAINING BIT WIDTHS CMUNIT(*)- CHARACTER*14: MERGED ARRAY CONTAINING UNITS CMMNEM(*)- CHARACTER*8: MERGED ARRAY CONTAINING MNEMONICS CMDSC(*) - CHARACTER*4: MERGED ARRAY CONTAINING DESCRIPTOR CODES CMELEM(*)- CHARACTER*120: MERGED ARRAY CONTAINING ELEMENT NAMES

REMARKS: THIS ROUTINE CALLS: ADN30 BORT GETNTBE GETTBH SNTBBE WRDLEN THIS ROUTINE IS CALLED BY: IREADMT Not normally called by any application programs but it could be.

Definition at line 56 of file rdmtbb.f.

References adn30(), bort(), getntbe(), gettbh(), sntbbe(), and wrdlen().

Referenced by ireadmt().