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.
58 lines
1.7 KiB
58 lines
1.7 KiB
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
|
|
SUBROUTINE MYFIND (NAME1, DICT, DPOINT, LDICT, NNAMES,
|
|
* CHRCOL, LASTER, ROW)
|
|
|
|
IMPLICIT INTEGER (A-Z)
|
|
INCLUDE 'params.inc'
|
|
|
|
C***********************************************************************
|
|
|
|
C NAME1 Name to be found
|
|
CHARACTER*8 NAME1
|
|
C DICT Dictionary name table
|
|
C DPOINT Dictionary pointer table
|
|
C LDICT
|
|
CHARACTER*8 DICT(LDICT,CHRCOL)
|
|
DIMENSION DPOINT(LDICT,CHRCOL,3)
|
|
C NNAMES Number of names in the dictionary
|
|
DIMENSION NNAMES(2)
|
|
C CHRCOL Column number for character array names.
|
|
C LASTER Error return
|
|
C ROW Location of found name or place to insert new name
|
|
|
|
C***********************************************************************
|
|
|
|
CALL SRCHC (DICT, 1, NNAMES(1), NAME1, ERR, ROW)
|
|
IF (ERR .EQ. 1) THEN
|
|
IF (DPOINT(ROW,1,3) .NE. -1) THEN
|
|
|
|
C The found name is a name for a character array.
|
|
LASTER = SUCCESS
|
|
|
|
ELSE
|
|
|
|
C The names was found and is of numeric type.
|
|
LASTER = WRTYPE
|
|
END IF
|
|
|
|
ELSE IF (CHRCOL .EQ. 1) THEN
|
|
|
|
C ENTRY NOT FOUND.
|
|
|
|
LASTER = NONAME
|
|
|
|
ELSE
|
|
CALL SRCHC (DICT(1,2), 1, NNAMES(2), NAME1, ERR, ROW)
|
|
IF (ERR .EQ. 1) THEN
|
|
LASTER = SUCCESS
|
|
ELSE
|
|
LASTER = NONAME
|
|
END IF
|
|
END IF
|
|
|
|
RETURN
|
|
END
|
|
|