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.
68 lines
2.1 KiB
68 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 LNCHK (PRTOK, OKAY)
|
||
|
|
C=======================================================================
|
||
|
|
|
||
|
|
C --*** LNCHK *** (PATHLN) Check that PATHLINE is a valid program to run
|
||
|
|
C -- Written by Amy Gilkey - revised 05/25/88
|
||
|
|
C --
|
||
|
|
C --LNCHK checks that PATHLINE is a valid program. This is true if
|
||
|
|
C --a mesh is defined (nodes, elements, connectivity, etc.) and
|
||
|
|
C --there are history, global or nodal variables in the database.
|
||
|
|
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
|
||
|
|
IF ((NVARHI + NVARGL + NVARNP) .LE. 0) THEN
|
||
|
|
IF (PRTOK) CALL PRTERR ('CMDERR',
|
||
|
|
& 'No non-element variables are defined')
|
||
|
|
GOTO 100
|
||
|
|
END IF
|
||
|
|
IF ((NSTEPS .LE. 0) .OR.
|
||
|
|
& ((NSTEPW .LE. 0) .AND. (NVARHI .LE. 0))) THEN
|
||
|
|
IF (PRTOK) CALL PRTERR ('CMDERR',
|
||
|
|
& 'No time steps with variables are defined')
|
||
|
|
GOTO 100
|
||
|
|
END IF
|
||
|
|
|
||
|
|
C --Write greeting message
|
||
|
|
IF (PRTOK) WRITE (*, 10000)
|
||
|
|
|
||
|
|
OKAY = .TRUE.
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
100 CONTINUE
|
||
|
|
OKAY = .FALSE.
|
||
|
|
RETURN
|
||
|
|
10000 FORMAT (' PATHLINE - a mesh pathline program')
|
||
|
|
END
|