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.
55 lines
1.7 KiB
55 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
|
|
|
|
C=======================================================================
|
|
SUBROUTINE DTCHK (PRTOK, OKAY)
|
|
C=======================================================================
|
|
|
|
C --*** DTCHK *** (DETOUR) Check that DETOUR is a valid program to run
|
|
C -- Written by Amy Gilkey - revised 10/23/87
|
|
C --
|
|
C --DTCHK checks that DETOUR is a valid program. This is true if
|
|
C --a mesh is defined (nodes, elements, connectivity, etc.).
|
|
C --
|
|
C --If the program is valid, a welcome message is printed.
|
|
C --
|
|
C --Parameters:
|
|
C -- PRTOK - IN - if true, print error messages and welcome messages,
|
|
C -- if false, check but do not print anything
|
|
C -- OKAY - OUT - true iff the program is valid
|
|
C --
|
|
C --Common Variables:
|
|
C -- Uses NDIM, NUMNP, NUMEL of /DBNUMS/
|
|
|
|
include 'dbnums.blk'
|
|
|
|
LOGICAL PRTOK
|
|
LOGICAL OKAY
|
|
|
|
C --Check header information from database
|
|
|
|
IF ((NUMNP .LE. 0) .OR. (NUMEL .LE. 0) .OR. (NDIM .LE. 0)) THEN
|
|
IF (PRTOK) CALL PRTERR ('CMDERR',
|
|
& 'No mesh is defined')
|
|
GOTO 100
|
|
END IF
|
|
IF ((NDIM .NE. 2) .AND. (NDIM .NE. 3)) THEN
|
|
IF (PRTOK) CALL PRTERR ('CMDERR',
|
|
& 'Only a 2D or 3D mesh may be plotted')
|
|
GOTO 100
|
|
END IF
|
|
|
|
C --Write greeting message
|
|
IF (PRTOK) WRITE (*, 10000)
|
|
|
|
OKAY = .TRUE.
|
|
RETURN
|
|
|
|
100 CONTINUE
|
|
OKAY = .FALSE.
|
|
RETURN
|
|
10000 FORMAT (' DETOUR - a deformed mesh and contour plot program')
|
|
END
|
|
|