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.
50 lines
1.4 KiB
50 lines
1.4 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
|
||
|
|
|
||
|
|
SUBROUTINE UNISNP (MSNAP, SNAPDX, NSNAP, INDEX, XMIN, XMAX, STEP)
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C SUBROUTINE UNISNP = GENERATES UNIFORM SNAP GRID
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
C VARIABLES USED:
|
||
|
|
C MSNAP = DIMENSION OV SNAP ARRAYS
|
||
|
|
C SNAPDX = THE SNAP GRID VALUES ARRAY (X AND Y)
|
||
|
|
C NSNAP = THE NUMBER OF SNAP GRID VALUES IN X AND Y
|
||
|
|
C INDEX = 1 FOR X VALUES, 2 FOR Y VALUES
|
||
|
|
|
||
|
|
C***********************************************************************
|
||
|
|
|
||
|
|
DIMENSION SNAPDX (2, MSNAP), NSNAP (2)
|
||
|
|
|
||
|
|
LOGICAL ERR
|
||
|
|
|
||
|
|
CHARACTER*1 AXIS (2)
|
||
|
|
|
||
|
|
DATA AXIS /'X', 'Y'/
|
||
|
|
|
||
|
|
C DEFINE THE GRID
|
||
|
|
|
||
|
|
IF (STEP.EQ.0.)RETURN
|
||
|
|
ILOOP = INT(((XMAX - XMIN) / STEP) + 2)
|
||
|
|
XGRID = XMIN
|
||
|
|
DO 100 I = 1, ILOOP
|
||
|
|
CALL ADDSNP (MSNAP, SNAPDX, NSNAP, INDEX, XGRID, ERR)
|
||
|
|
IF (ERR)THEN
|
||
|
|
WRITE (*, 10000)AXIS (INDEX), XGRID - STEP
|
||
|
|
RETURN
|
||
|
|
ENDIF
|
||
|
|
XGRID = XGRID + STEP
|
||
|
|
IF (XGRID.GE. (STEP + XMAX))RETURN
|
||
|
|
100 CONTINUE
|
||
|
|
|
||
|
|
RETURN
|
||
|
|
|
||
|
|
10000 FORMAT (' THE LAST SUCCESSFUL ', A1, ' GRID INPUT WAS: ', G14.7)
|
||
|
|
|
||
|
|
END
|