You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
52 lines
1.5 KiB
52 lines
1.5 KiB
2 years ago
|
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
||
|
|
C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
||
|
|
C NTESS, the U.S. Government retains certain rights in this software.
|
||
|
|
C
|
||
|
|
C See packages/seacas/LICENSE for details
|
||
|
|
|
||
|
|
C=======================================================================
|
||
|
|
SUBROUTINE ABRSTR (RETWRD, ABBR, STRTBL)
|
||
|
|
C=======================================================================
|
||
|
|
|
||
|
|
C --*** ABRSTR *** (STRLIB) Find abbreviation for string
|
||
|
|
C -- Written by Amy Gilkey - revised 02/14/86
|
||
|
|
C --
|
||
|
|
C --ABRSTR returns the non-abbreviated form of the given abbreviation
|
||
|
|
C --from the list of possible strings. The abbreviation must either
|
||
|
|
C --be a complete string or it must only match one string.
|
||
|
|
C --
|
||
|
|
C --Parameters:
|
||
|
|
C -- RETWRD - OUT - the string for the abbreviation; ' ' if none
|
||
|
|
C -- ABBR - IN - the abbreviation
|
||
|
|
C -- STRTBL - IN - the table of possible strings; ended by ' '
|
||
|
|
|
||
|
|
CHARACTER*(*) RETWRD
|
||
|
|
CHARACTER*(*) ABBR
|
||
|
|
CHARACTER*(*) STRTBL(*)
|
||
|
|
|
||
|
|
RETWRD = ' '
|
||
|
|
|
||
|
|
IF (ABBR .EQ. ' ') RETURN
|
||
|
|
|
||
|
|
L = INDEX (ABBR, ' ') - 1
|
||
|
|
IF (L .LT. 0) L = LEN(ABBR)
|
||
|
|
|
||
|
|
NFOUND = 0
|
||
|
|
I = 1
|
||
|
|
100 CONTINUE
|
||
|
|
IF (STRTBL(I) .NE. ' ') THEN
|
||
|
|
IF (ABBR .EQ. STRTBL(I)(1:L)) THEN
|
||
|
|
RETWRD = STRTBL(I)
|
||
|
|
IF (ABBR .EQ. STRTBL(I)) GOTO 110
|
||
|
|
NFOUND = NFOUND + 1
|
||
|
|
END IF
|
||
|
|
I = I + 1
|
||
|
|
GOTO 100
|
||
|
|
END IF
|
||
|
|
|
||
|
|
IF (NFOUND .GT. 1) RETWRD = ' '
|
||
|
|
|
||
|
|
110 CONTINUE
|
||
|
|
RETURN
|
||
|
|
END
|