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.
72 lines
2.1 KiB
72 lines
2.1 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 DELCMD (INLINE, INTYP, CFIELD, *)
|
||
|
|
C=======================================================================
|
||
|
|
|
||
|
|
C --*** DELCMD *** (ALGEBRA) Perform DELETE command
|
||
|
|
C -- Written by Amy Gilkey - revised 11/23/87
|
||
|
|
C --
|
||
|
|
C --DELCMD processes the input DELETE command. It sets the ISTVAR
|
||
|
|
C --flag in the /VAR../ arrays for all deleted variables.
|
||
|
|
C --
|
||
|
|
C --Parameters:
|
||
|
|
C -- INLINE - IN/OUT - the parsed input lines for the log file
|
||
|
|
C -- INTYP - IN - the field types
|
||
|
|
C -- CFIELD - IN - the character fields
|
||
|
|
C -- * - return statement if command not executed
|
||
|
|
C --
|
||
|
|
C --Common Variables:
|
||
|
|
C -- Uses IXLHS, NAMVAR of /VAR../
|
||
|
|
C -- Sets ISTVAR of /VAR../
|
||
|
|
|
||
|
|
PARAMETER (ICURTM = 1, ILSTTM = 2, IONETM = 3)
|
||
|
|
include 'ag_namlen.blk'
|
||
|
|
include 'ag_var.blk'
|
||
|
|
C database type, num_of qa and info records
|
||
|
|
include 'ag_dbnumq.blk'
|
||
|
|
|
||
|
|
CHARACTER*(*) INLINE
|
||
|
|
INTEGER INTYP(*)
|
||
|
|
CHARACTER*(*) CFIELD(*)
|
||
|
|
|
||
|
|
LOGICAL FFEXST, MATSTR
|
||
|
|
CHARACTER*(maxnam) NAME
|
||
|
|
|
||
|
|
NUMLHS = MAXVAR - IXLHS + 1
|
||
|
|
|
||
|
|
IFLD = 1
|
||
|
|
100 CONTINUE
|
||
|
|
IF (FFEXST (IFLD, INTYP)) THEN
|
||
|
|
|
||
|
|
CALL FFCHAR (IFLD, INTYP, CFIELD, ' ', NAME)
|
||
|
|
|
||
|
|
IF (MATSTR (NAME, 'QAINFO', 6)) THEN
|
||
|
|
NQAREC = 0
|
||
|
|
NINFO = 0
|
||
|
|
ELSE IF (MATSTR (NAME, 'QA', 2)) THEN
|
||
|
|
NQAREC = 0
|
||
|
|
ELSE IF (MATSTR (NAME, 'INFORMATION', 11)) THEN
|
||
|
|
NINFO = 0
|
||
|
|
ELSE
|
||
|
|
IVAR = LOCSTR (NAME, NUMLHS, NAMVAR(IXLHS))
|
||
|
|
IF (IVAR .EQ. 0) THEN
|
||
|
|
CALL PRTERR ('CMDERR',
|
||
|
|
& '"' // NAME(:LENSTR(NAME)) // '" not defined, ignored')
|
||
|
|
GOTO 110
|
||
|
|
END IF
|
||
|
|
ISTVAR(ICURTM,IVAR+IXLHS-1) = -1
|
||
|
|
END IF
|
||
|
|
CALL FFADDC (NAME, INLINE)
|
||
|
|
|
||
|
|
110 CONTINUE
|
||
|
|
GOTO 100
|
||
|
|
END IF
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
END
|