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.
53 lines
2.7 KiB
53 lines
2.7 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 ---- NPTS = 41, NPOLY = 32
|
||
|
|
C ... XPTS and YPTS were generated automatically by FASTQ.
|
||
|
|
C Mesh used is unit circle with 16 nodes around circ.
|
||
|
|
|
||
|
|
PARAMETER (NPOLY=32)
|
||
|
|
PARAMETER (NPTS=41)
|
||
|
|
REAL XPTS(NPTS), YPTS(NPTS), SHADE(NPOLY)
|
||
|
|
INTEGER ICON(4,NPOLY)
|
||
|
|
|
||
|
|
DATA XPTS /
|
||
|
|
* -.7071068E+00, -.9238795E+00, -.1000000E+01, -.9238794E+00,
|
||
|
|
* -.7071068E+00, -.3826835E+00, -.4172325E-06, .3826832E+00,
|
||
|
|
* .7071068E+00, .9238795E+00, .1000000E+01, .9238794E+00,
|
||
|
|
* .7071066E+00, .3826832E+00, .0000000E+00, -.3826835E+00,
|
||
|
|
* -.4580456E+00, -.6420017E+00, -.7677372E+00, -.6423635E+00,
|
||
|
|
* -.4573488E+00, -.2316355E+00, -.1856238E-02, .2289896E+00,
|
||
|
|
* .4591993E+00, .6422218E+00, .7678414E+00, .6423162E+00,
|
||
|
|
* .4576604E+00, .2315941E+00, .1756638E-02, -.2288910E+00,
|
||
|
|
* -.2211816E+00, -.4195539E+00, -.2195027E+00, .5324632E-03,
|
||
|
|
* .2236461E+00, .4199288E+00, .2200716E+00, -.2397895E-03,
|
||
|
|
* .2304825E-03/
|
||
|
|
|
||
|
|
DATA YPTS/
|
||
|
|
* .7071067E+00, .3826832E+00, .2980232E-07, -.3826833E+00,
|
||
|
|
* -.7071066E+00, -.9238794E+00, -.9999999E+00, -.9238795E+00,
|
||
|
|
* -.7071067E+00, -.3826833E+00, .8940697E-07, .3826835E+00,
|
||
|
|
* .7071068E+00, .9238795E+00, .9999999E+00, .9238794E+00,
|
||
|
|
* .4589064E+00, .2318279E+00, .1758665E-02, -.2289944E+00,
|
||
|
|
* -.4591637E+00, -.6421393E+00, -.7679198E+00, -.6427026E+00,
|
||
|
|
* -.4575763E+00, -.2314575E+00, -.1560867E-02, .2293235E+00,
|
||
|
|
* .4591407E+00, .6423606E+00, .7679480E+00, .6428826E+00,
|
||
|
|
* .2216623E+00, .3087223E-03, -.2234447E+00, -.4201508E+00,
|
||
|
|
* -.2194686E+00, .7180870E-03, .2236216E+00, .4203172E+00,
|
||
|
|
* .1585010E-03/
|
||
|
|
|
||
|
|
DATA ICON/ 1, 2, 18, 17, 18, 2, 3, 19, 19, 3, 4, 20,
|
||
|
|
* 20, 4, 5, 21, 21, 5, 6, 22, 22, 6, 7, 23,
|
||
|
|
* 23, 7, 8, 24, 24, 8, 9, 25, 25, 9, 10, 26,
|
||
|
|
* 26, 10, 11, 27, 27, 11, 12, 28, 28, 12, 13, 29,
|
||
|
|
* 29, 13, 14, 30, 30, 14, 15, 31, 31, 15, 16, 32,
|
||
|
|
* 32, 16, 1, 17, 17, 18, 34, 33, 19, 20, 34, 18,
|
||
|
|
* 34, 20, 21, 35, 35, 21, 22, 36, 23, 24, 36, 22,
|
||
|
|
* 36, 24, 25, 37, 37, 25, 26, 38, 27, 28, 38, 26,
|
||
|
|
* 38, 28, 29, 39, 39, 29, 30, 40, 31, 32, 40, 30,
|
||
|
|
* 40, 32, 17, 33, 33, 34, 35, 41, 41, 35, 36, 37,
|
||
|
|
* 40, 33, 41, 39, 41, 37, 38, 39/
|