C
C---------------------------------------------------------TIPO_NODO2--
C
C SUBRUTINA TIPO_NODO2
C
C DEFINE LOS TIPOS DE NOD IMPLEMENTADOS
C PARA EL PROBLEMA ELASTICO BIDIMENSIONAL
C
SUBROUTINE TIPO_NODO2(NDTP,N)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C NDTP : Tipos de nodo
RECORD /S_tipnod/ NDTP(N_MAX_TPND)
C N : Numero de tipos de nodo
INTEGER N
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C TIPOS DE NODO
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C Numero de tipos de nodo
C
N=2
C
C Nodo 2D plano
C
NDTP(1).TIP =1
NDTP(1).TXT ='Nodo 2D plano'
NDTP(1).DIM =2
NDTP(1).DTXT(1) ='X'
NDTP(1).DTXT(2) ='Y'
NDTP(1).NVAR = 11
NDTP(1).VTXT(1) ='u1a'
NDTP(1).VTXT(2) ='u2a'
NDTP(1).VTXT(3) ='u1d'
NDTP(1).VTXT(4) ='u2d'
NDTP(1).VTXT(5) ='t1a'
NDTP(1).VTXT(6) ='t2a'
NDTP(1).VTXT(7) ='t1d'
NDTP(1).VTXT(8) ='t2d'
NDTP(1).VTXT(9) ='ux'
NDTP(1).VTXT(10)='uy'
NDTP(1).VTXT(11)='uo'
NDTP(1).NINC = 6
NDTP(1).ITXT(1) ='ux'
NDTP(1).ITXT(2) ='uy'
NDTP(1).ITXT(3) ='t1a'
NDTP(1).ITXT(4) ='t2a'
NDTP(1).ITXT(5) ='t1d'
NDTP(1).ITXT(6) ='t2d'
zzzC
zzzC Nodo 2D plano de contacto
zzzC
zzz NDTP(2).TIP =2
zzz NDTP(2).TXT ='Nodo 2D plano de contacto'
zzz NDTP(2).DIM =2
zzz NDTP(2).DTXT(1) ='X'
zzz NDTP(2).DTXT(2) ='Y'
zzz NDTP(2).NVAR = 12
zzz NDTP(2).VTXT(1) ='u1a'
zzz NDTP(2).VTXT(2) ='u2a'
zzz NDTP(2).VTXT(3) ='u1d'
zzz NDTP(2).VTXT(4) ='u2d'
zzz NDTP(2).VTXT(5) ='t1a'
zzz NDTP(2).VTXT(6) ='t2a'
zzz NDTP(2).VTXT(7) ='t1d'
zzz NDTP(2).VTXT(8) ='t2d'
zzz NDTP(2).VTXT(9) ='ux'
zzz NDTP(2).VTXT(10)='uy'
zzz NDTP(2).VTXT(11)='dn'
zzz NDTP(2).VTXT(12)='dt'
zzz NDTP(2).NINC = 8
zzz NDTP(2).ITXT(1) ='ux'
zzz NDTP(2).ITXT(2) ='uy'
zzz NDTP(2).ITXT(3) ='t1a'
zzz NDTP(2).ITXT(4) ='t2a'
zzz NDTP(2).ITXT(5) ='t1d'
zzz NDTP(2).ITXT(6) ='t2d'
zzz NDTP(2).ITXT(7) ='dn'
zzz NDTP(2).ITXT(8) ='dt'
zzz
C
C Nodo 2D plano de contacto
C
NDTP(2).TIP =2
NDTP(2).TXT ='Nodo 2D plano de contacto'
NDTP(2).DIM =2
NDTP(2).DTXT(1) ='X'
NDTP(2).DTXT(2) ='Y'
NDTP(2).NVAR = 14
NDTP(2).VTXT(1) ='u1a'
NDTP(2).VTXT(2) ='u2a'
NDTP(2).VTXT(3) ='u1d'
NDTP(2).VTXT(4) ='u2d'
NDTP(2).VTXT(5) ='t1a'
NDTP(2).VTXT(6) ='t2a'
NDTP(2).VTXT(7) ='t1d'
NDTP(2).VTXT(8) ='t2d'
NDTP(2).VTXT(9) ='ux'
NDTP(2).VTXT(10)='uy'
NDTP(2).VTXT(11)='dna'
NDTP(2).VTXT(12)='dta'
NDTP(2).VTXT(13)='dnd'
NDTP(2).VTXT(14)='dtd'
NDTP(2).NINC = 10
NDTP(2).ITXT(1) ='ux'
NDTP(2).ITXT(2) ='uy'
NDTP(2).ITXT(3) ='t1a'
NDTP(2).ITXT(4) ='t2a'
NDTP(2).ITXT(5) ='t1d'
NDTP(2).ITXT(6) ='t2d'
NDTP(2).ITXT(7) ='dna'
NDTP(2).ITXT(8) ='dta'
NDTP(2).ITXT(9) ='dnd'
NDTP(2).ITXT(10)='dtd'
zzz
C
C FIN DE LA RUTINA
C
RETURN
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
