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