C Rutina 011
C---------------------------------------------------------TIPO_NODO1---
C
C SUBRUTINA TIPO_NODO1
C
C DEFINE LOS TIPOS DE NOD IMPLEMENTADOS
C PARA EL PROBLEMA ELASTICO BIDIMENSIONAL AXISIMETRICO
C
SUBROUTINE TIPO_NODO1(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 axisimetrico
C
NDTP(1).TIP =1
NDTP(1).TXT ='Nodo 2D axisimetrico'
NDTP(1).DIM =2
NDTP(1).DTXT(1) ='R'
NDTP(1).DTXT(2) ='Z'
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) ='ur'
NDTP(1).VTXT(10)='uz'
NDTP(1).VTXT(11)='uo'
NDTP(1).NINC = 6
NDTP(1).ITXT(1) ='ur'
NDTP(1).ITXT(2) ='uz'
NDTP(1).ITXT(3) ='t1a'
NDTP(1).ITXT(4) ='t2a'
NDTP(1).ITXT(5) ='t1d'
NDTP(1).ITXT(6) ='t2d'
zzC
zzC Nodo 2D axisimetrico de contacto
zzC
zz NDTP(2).TIP =2
zz NDTP(2).TXT ='Nodo 2D axisimetrico de contacto'
zz NDTP(2).DIM =2
zz NDTP(2).DTXT(1) ='R'
zz NDTP(2).DTXT(2) ='Z'
zz NDTP(2).NVAR = 12
zz NDTP(2).VTXT(1) ='u1a'
zz NDTP(2).VTXT(2) ='u2a'
zz NDTP(2).VTXT(3) ='u1d'
zz NDTP(2).VTXT(4) ='u2d'
zz NDTP(2).VTXT(5) ='t1a'
zz NDTP(2).VTXT(6) ='t2a'
zz NDTP(2).VTXT(7) ='t1d'
zz NDTP(2).VTXT(8) ='t2d'
zz NDTP(2).VTXT(9) ='ur'
zz NDTP(2).VTXT(10)='uz'
zz NDTP(2).VTXT(11)='dn'
zz NDTP(2).VTXT(12)='dt'
zz NDTP(2).NINC = 8
zz NDTP(2).ITXT(1) ='ur'
zz NDTP(2).ITXT(2) ='uz'
zz NDTP(2).ITXT(3) ='t1a'
zz NDTP(2).ITXT(4) ='t2a'
zz NDTP(2).ITXT(5) ='t1d'
zz NDTP(2).ITXT(6) ='t2d'
zz NDTP(2).ITXT(7) ='dn'
zz NDTP(2).ITXT(8) ='dt'
C
C Nodo 2D axisimetrico de contacto
C
NDTP(2).TIP =2
NDTP(2).TXT ='Nodo 2D axisimetrico de contacto'
NDTP(2).DIM =2
NDTP(2).DTXT(1) ='R'
NDTP(2).DTXT(2) ='Z'
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) ='ur'
NDTP(2).VTXT(10)='uz'
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) ='ur'
NDTP(2).ITXT(2) ='uz'
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'
C
C FIN DE LA RUTINA
C
RETURN
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
