C
C--------------------------------------------------------TIP_MAT_TEMP---
C
C SUBRUTINA TIP_MAT_TEMP
C
C GENERA DATOS DE LOS TIPOS DE MATERIALES IMPLEMENTADOS
C EN PROBLEMAS CON TEMPERAURA
C
SUBROUTINE TIP_MAT_TEMP(TP,TM)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C TP : Tipo de problema
INTEGER TP
C TM : Tipos de material implementados
RECORD /S_tipmat/ TM(N_MAX_TPMT)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C TIPOS DE MATERIAL
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C Material Isotropo
C
SELECT CASE (TP)
CASE (1,21,22,31,32)
TM(1).TIP=1
TM(1).TXT='Material isotropo.'
TM(1).NPRP=4
TM(1).PTXT(1)='Modulo de Elasticidad (E)'
TM(1).PTXT(2)='Coeficiente de Poisson (NU)'
TM(1).PTXT(3)='Longitud caracteristica (D)'
TM(1).PTXT(4)='Coeficiente de dilatacion térmica (ALFA)'
CASE DEFAULT
WRITE(F_W,02111) TP
WRITE(*, 02111) TP
STOP
END SELECT
C
C Material Ortotropo
C
SELECT CASE (TP)
CASE (1,21,22)
CONTINUE
CASE (31,32)
TM(2).TIP=2
TM(2).TXT='Material Ortotropo.'
TM(2).NPRP=10
TM(2).PTXT(1)='E11'
TM(2).PTXT(2)='E22'
TM(2).PTXT(3)='E33'
TM(2).PTXT(4)='NU12'
TM(2).PTXT(5)='NU13'
TM(2).PTXT(6)='NU23'
TM(2).PTXT(7)='G12'
TM(2).PTXT(8)='Angulo (TETA)'
TM(2).PTXT(9)='Longitud caracteristica (D)'
TM(1).PTXT(10)='Coeficiente de dilatacion térmica (ALFA)'
CASE DEFAULT
WRITE(F_W,02111) TP
WRITE(*, 02111) TP
STOP
END SELECT
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
02110 FORMAT(/,2x,'ERROR 02110 - TIP_MAT_TEMP - Error Programa (#'
@ ,i1,'#)')
02111 FORMAT(/,2x,'ERROR 02111 - TIP_MAT_TEMP ',/
@ ,' Tipo de problema (',i2,') no implementado.')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
