51 . nscl, nref, nbts, iret )
69 CALL
status( lunit, lun, il, im )
70 IF ( il .EQ. 0 )
RETURN
71 IF ( inode(lun) .NE. inv(1,lun) )
RETURN
76 CALL
fstag( lun, nemo, nnemo, 1, nidx, ierfst )
77 IF ( ierfst .NE. 0 )
RETURN
82 IF ( ( typ(node) .NE.
'NUM' ) .AND. ( typ(node) .NE.
'CHR' ) )
95 IF ( nnrv .GT. 0 )
THEN
102 CALL
strsuc( nemo, tagn, ltn )
103 IF ( ( ltn .LE. 0 ) .OR. ( ltn .GT. 8 ) )
RETURN
106 IF ( ( node .NE. inodnrv(jj) ) .AND.
107 . ( tagn(1:8) .EQ. tagnrv(jj) ) .AND.
108 . ( node .GE. isnrv(jj) ) .AND.
109 . ( 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 character 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...