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.
66 lines
2.4 KiB
66 lines
2.4 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
|
|
|
|
C=======================================================================
|
|
SUBROUTINE WRNAME (NTXT, NDIM, NELBLK, NVARGL, NVARNP,
|
|
& NVAREL, NAMEGV, NAMENV, NAMEEV, ISEVOK, NAMLEN)
|
|
C=======================================================================
|
|
C --
|
|
C --*** WRNAME *** (TXTEXO) Write database names
|
|
C -- Written by Amy Gilkey - revised 02/08/88
|
|
C -- Modified for ExodusIIv2 format 10/16/95
|
|
C --
|
|
C --WRNAME writes the names of the coordinates, the element block types,
|
|
C --and the database variables. The element block variable truth table
|
|
C --is also written.
|
|
C --
|
|
C --Parameters:
|
|
C -- NTXT - IN - the text file
|
|
C -- NDIM - IN - the number of coordinates per node; written only if >= 0
|
|
C -- NELBLK - IN - the number of element blocks; written only if >= 0
|
|
C -- NVARGL - IN - the number of global variables
|
|
C -- NVARNP - IN - the number of nodal variables
|
|
C -- NVAREL - IN - the number of element variables
|
|
C -- NAMEGV - IN - the global variable names
|
|
C -- NAMENV - IN - the nodal variable names
|
|
C -- NAMEEV - IN - the element variable names
|
|
C -- ISEVOK - IN - the element block variable truth table;
|
|
C -- variable i of block j exists iff ISEVOK(j,i)
|
|
|
|
INTEGER NTXT, NDIM, NELBLK, NVARGL, NVARNP, NVAREL
|
|
CHARACTER*(namlen) NAMEGV(*)
|
|
CHARACTER*(namlen) NAMENV(*)
|
|
CHARACTER*(namlen) NAMEEV(*)
|
|
LOGICAL ISEVOK(NELBLK,*)
|
|
|
|
IF (NDIM .LT. 0) GOTO 110
|
|
|
|
C --Write variable names
|
|
|
|
WRITE (NTXT, '(A)') '! Variable names'
|
|
WRITE (NTXT, 10010) NVARGL, NVARNP, NVAREL,
|
|
& '! global, nodal, element variables'
|
|
|
|
WRITE (NTXT, 10000) (NAMEGV(I), I=1,NVARGL)
|
|
|
|
WRITE (NTXT, 10000) (NAMENV(I), I=1,NVARNP)
|
|
|
|
WRITE (NTXT, 10000) (NAMEEV(I), I=1,NVAREL)
|
|
|
|
C --Write the element block variable truth table
|
|
|
|
if (nvarel .gt. 0) then
|
|
WRITE (NTXT, '(A)') '! Element block variable truth table'
|
|
DO 100 IELB = 1, NELBLK
|
|
WRITE (NTXT, 10020) (ISEVOK(IELB,I), I=1,NVAREL)
|
|
100 CONTINUE
|
|
end if
|
|
110 CONTINUE
|
|
RETURN
|
|
10000 FORMAT (2 (A, 1X))
|
|
10010 FORMAT (3I10, 6X, A)
|
|
10020 FORMAT (40L2)
|
|
END
|
|
|