EXODUS/packages/seacas/libraries/mapvarlib/node.f

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=======================================================================
*DECK,NODE
      SUBROUTINE NODE (ITYPE,INODE,S,T,R)

C     ******************************************************************

C     SUBROUTINE TO SET THE NORMALIZED COORDINATES FOR A POINT
C     COINCIDENT WITH THE NODE OF AN ELEMENT

C     Called by SRCH2D & SRCH3D

C     ******************************************************************

      DIMENSION ST3(3), TT3(3), ST6(6), TT6(6)
      DIMENSION SQ4(4), TQ4(4), SQ8(8), TQ8(8), SQ9(9), TQ9(9)
      DIMENSION STT4(4), TTT4(4), RTT4(4)
      DIMENSION STT10(10), TTT10(10), RTT10(10)
      DIMENSION SP6(6), TP6(6), RP6(6)
      DIMENSION SP15(15), TP15(15), RP15(15)
      DIMENSION SB8(8), TB8(8), RB8(8)
      DIMENSION SB20(20), TB20(20), RB20(20)
      DIMENSION SB27(27), TB27(27), RB27(27)

      DATA (ST3(I),I=1,3)/1.,0.,0./
      DATA (TT3(I),I=1,3)/0.,1.,0./

      DATA (ST6(I),I=1,6)/1.,0.,0.,.5,0.,.5/
      DATA (TT6(I),I=1,6)/0.,1.,0.,.5,.5,0./

      DATA (SQ4(I),I=1,4)/-1.,1.,1.,-1./
      DATA (TQ4(I),I=1,4)/-1.,-1.,1.,1./

      DATA (SQ8(I),I=1,8)/-1.,1.,1.,-1.,0.,1.,0.,-1./
      DATA (TQ8(I),I=1,8)/-1.,-1.,1.,1.,-1.,0.,1.,0./

      DATA (SQ9(I),I=1,9)/-1.,1.,1.,-1.,0.,1.,0.,-1.,0./
      DATA (TQ9(I),I=1,9)/-1.,-1.,1.,1.,-1.,0.,1.,0.,0./

      DATA (STT4(I),I=1,4)/1.,0.,0.,0./
      DATA (TTT4(I),I=1,4)/0.,1.,0.,0./
      DATA (RTT4(I),I=1,4)/0.,0.,0.,1./

      DATA (STT10(I),I=1,10)/1.,0.,0.,0.,.25,0.,.25,.25,0.,0./
      DATA (TTT10(I),I=1,10)/0.,1.,0.,0.,.25,.25,0.,0.,.25,0./
      DATA (RTT10(I),I=1,10)/0.,0.,0.,1.,0.,0.,0.,.25,.25,.25/

      DATA (SP6(I),I=1,6)/1.,0.,0.,1.,0.,0./
      DATA (TP6(I),I=1,6)/0.,1.,0.,0.,1.,0./
      DATA (RP6(I),I=1,6)/-1.,-1.,-1.,1.,1.,1./

      DATA (SP15(I),I=1,15)/1.,0.,0.,1.,0.,0.,.5,0.,.5,1.,0.,
     1     0.,.5,0.,.5/
      DATA (TP15(I),I=1,15)/0.,1.,0.,0.,1.,0.,.5,.5,0.,0.,1.,
     1     0.,.5,.5,0./
      DATA (RP15(I),I=1,15)/-1.,-1.,-1.,1.,1.,1.,-1.,-1.,-1.,
     1     0.,0.,0.,1.,1.,1./

      DATA (SB8(I),I=1,8)/-1.,1.,1.,-1.,-1.,1.,1.,-1./
      DATA (TB8(I),I=1,8)/-1.,-1.,1.,1.,-1.,-1.,1.,1./
      DATA (RB8(I),I=1,8)/-1.,-1.,-1.,-1.,1.,1.,1.,1./

      DATA (SB20(I),I=1,20)/-1.,1.,1.,-1.,-1.,1.,1.,-1.,0.,1.,0.,
     1     -1.,-1.,1.,1.,-1.,0.,1.,0.,-1./
      DATA (TB20(I),I=1,20)/-1.,-1.,1.,1.,-1.,-1.,1.,1.,-1.,0.,1.,
     1     0.,-1.,-1.,1.,1.,-1.,0.,1.,0./
      DATA (RB20(I),I=1,20)/-1.,-1.,-1.,-1.,1.,1.,1.,1.,-1.,-1.,
     1     -1.,-1.,0.,0.,0.,0.,1.,1.,1.,1./

      DATA (SB27(I),I=1,27)/-1.,1.,1.,-1.,-1.,1.,1.,-1.,0.,1.,0.,
     1     -1.,-1.,1.,1.,-1.,0.,1.,0.,-1.,0.,1.,0.,-1.,0.,0.,0./
      DATA (TB27(I),I=1,27)/-1.,-1.,1.,1.,-1.,-1.,1.,1.,-1.,0.,1.,
     1     0.,-1.,-1.,1.,1.,-1.,0.,1.,0.,-1.,0.,1.,0.,0.,0.,0./
      DATA (RB27(I),I=1,27)/-1.,-1.,-1.,-1.,1.,1.,1.,1.,-1.,-1.,
     1     -1.,-1.,0.,0.,0.,0.,1.,1.,1.,1.,0.,0.,0.,0.,-1.,1.,0./

C     ******************************************************************

C     SELECT ELEMENT TYPE

      GO TO (10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120), ITYPE

C     3-NODE TRIANGLE

   10 CONTINUE
      S=ST3(INODE)
      T=TT3(INODE)
      R=0.
      RETURN

C     6-NODE TRIANGLE

   20 CONTINUE
      S=ST6(INODE)
      T=TT6(INODE)
      R=0.
      RETURN

C     4-NODE QUADRILATERAL

   30 CONTINUE
      S=SQ4(INODE)
      T=TQ4(INODE)
      R=0.
      RETURN

C     8-NODE QUADRILATERAL

   40 CONTINUE
      S=SQ8(INODE)
      T=TQ8(INODE)
      R=0.
      RETURN

C     9-NODE QUADRILATERAL

   50 CONTINUE
      S=SQ9(INODE)
      T=TQ9(INODE)
      R=0.
      RETURN

C     4-NODE TETRAHEDRON

   60 CONTINUE
      S=STT4(INODE)
      T=TTT4(INODE)
      R=RTT4(INODE)
      RETURN

C     10-NODE TETRAHEDRON

   70 CONTINUE
      S=STT10(INODE)
      T=TTT10(INODE)
      R=RTT10(INODE)
      RETURN

C     6-NODE PRISM

   80 CONTINUE
      S=SP6(INODE)
      T=TP6(INODE)
      R=RP6(INODE)
      RETURN

C     15-NODE PRISM

   90 CONTINUE
      S=SP15(INODE)
      T=TP15(INODE)
      R=RP15(INODE)
      RETURN

C     8-NODE HEX

  100 CONTINUE
      S=SB8(INODE)
      T=TB8(INODE)
      R=RB8(INODE)
      RETURN

C     20-NODE HEX

  110 CONTINUE
      S=SB20(INODE)
      T=TB20(INODE)
      R=RB20(INODE)
      RETURN

C     27-NODE HEX

  120 CONTINUE
      S=SB27(INODE)
      T=TB27(INODE)
      R=RB27(INODE)
      RETURN

      END