sntbde.f File Reference

Store a master Table D entry into Fortran arrays. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	sntbde (LUNT, IFXYN, LINE, MXMTBD, MXELEM, NMTBD, IMFXYN, CMMNEM, CMDSC, CMSEQ, NMELEM, IEFXYN, CEELEM)
	This subroutine stores the first line of an entry that was previously read from an ASCII master Table D file into a set of merged Fortran arrays. More...

Detailed Description

Store a master Table D entry into Fortran arrays.

Definition in file sntbde.f.

Function/Subroutine Documentation

sntbde()

subroutine sntbde	(		LUNT,
			IFXYN,
		character*(*)	LINE,
			MXMTBD,
			MXELEM,
			NMTBD,
		integer, dimension(*)	IMFXYN,
		character, dimension(8,*)	CMMNEM,
		character*4, dimension(*)	CMDSC,
		character, dimension(120,*)	CMSEQ,
		integer, dimension(*)	NMELEM,
		integer, dimension(mxmtbd,mxelem)	IEFXYN,
		character*120, dimension(mxmtbd,mxelem)	CEELEM
	)

This subroutine stores the first line of an entry that was previously read from an ASCII master Table D file into a set of merged Fortran arrays.

It then reads and stores all remaining lines of that same entry into the same merged Fortran arrays.

Author

J. Ator

Date

2007-01-19

Parameters

[in]	LUNT	– integer: Fortran logical unit number for ASCII file containing Table D information
[in]	IFXYN	– integer: Bit-wise representation of FXY number
[in]	LINE	– character*(*): First line of Table D entry
[in]	MXMTBD	– integer: Dimensioned size (in integers) of merged output arrays; used by the subroutine to ensure that it doesn't overflow these arrays
[in]	MXELEM	– integer: Maximum number of elements to be stored per Table D sequence within merged output arrays; used by the subroutine to ensure that it doesn't overflow these arrays
[out]	NMTBD	– integer: Number of entries in merged output arrays
[out]	IMFXYN	– integer(*): Merged array containing bit-wise representations of FXY numbers
[out]	CMMNEM	– character*8(*): Merged array containing mnemonics
[out]	CMDSC	– character*4(*): Merged array containing descriptor codes
[out]	CMSEQ	– character*120(*): Merged array containing sequence names
[out]	NMELEM	– integer(*): Merged array containing number of elements stored for each sequence
[out]	IEFXYN	– integer(*,*): Merged array containing bit-wise representations of element FXY numbers
[out]	CEELEM	– character*120(*,*): Merged array containing element names

Program history log:

Date	Programmer	Comments
2007-01-19	J. Ator	Original author
2021-01-08	J. Ator	Modified mstabs array declarations for GNUv10 portability
2021-09-30	J. Ator	Replace jstchr with Fortran intrinsic adjustl

Definition at line 48 of file sntbde.f.

References adn30(), bort(), bort2(), ifxy(), igetfxy(), igetntbl(), nemock(), and parstr().

Referenced by rdmtbd().