49 . nscl, nref, nbts, iret )
67 CALL
status( lunit, lun, il, im )
68 IF ( il .EQ. 0 )
RETURN
69 IF ( inode(lun) .NE. inv(1,lun) )
RETURN
74 CALL
fstag( lun, nemo, nnemo, 1, nidx, ierfst )
75 IF ( ierfst .NE. 0 )
RETURN
80 IF ( ( typ(node) .NE.
'NUM' ) .AND. ( typ(node) .NE.
'CHR' ) )
93 IF ( nnrv .GT. 0 )
THEN
100 CALL
strsuc( nemo, tagn, ltn )
101 IF ( ( ltn .LE. 0 ) .OR. ( ltn .GT. 8 ) )
RETURN
104 IF ( ( node .NE. inodnrv(jj) ) .AND.
105 . ( tagn(1:8) .EQ. tagnrv(jj) ) .AND.
106 . ( node .GE. isnrv(jj) ) .AND.
107 . ( node .LE. ienrv(jj) ) )
THEN
subroutine nemspecs(LUNIT, NEMO, NNEMO, NSCL, NREF, NBTS, IRET)
Given a Table B mnemonic defined within a data subset, this subroutine returns the scale factor...
This module contains array and variable declarations for use with any 2-03-YYY (change reference valu...
subroutine strsuc(STR1, STR2, LENS)
THIS SUBROUTINE REMOVES LEADING AND TRAILING BLANKS FROM A STRING.
This module contains array and variable declarations used to store the internal jump/link table...
subroutine status(LUNIT, LUN, IL, IM)
This subroutine checks whether a specified Fortran logical unit number is currently connected to the ...
subroutine fstag(LUN, UTAG, NUTAG, NIN, NOUT, IRET)
THIS SUBROUTINE FINDS THE (NUTAG)th OCCURRENCE OF MNEMONIC UTAG WITHIN THE CURRENT OVERALL SUBSET DEF...