C
C----------------------------------------------------------TIP_PROBL_TERM---
C
C SUBRUTINA TIP_PROBL_TERM
C
C GENERA LOS DATOS CORRESPONDIENTES AL TIPO DE PROBLEMA
C PROBBLEMA TERMOELASTICO 2-D
C
SUBROUTINE TIP_PROBL_TERM(PRB,TP)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PRB : Variables globales del problema
RECORD /S_problema/ PRB
C TP : Codigo del tipo
INTEGER TP
C
CCCCCCCCCCCCCCC
C RUTINA
CCCCCCCCCCCCCCC
C
SELECT CASE (TP)
C
C Potencial 2D
C
CASE(61)
PRB.TP.TIP=61
PRB.TP.TXT='Termoelastico 2-D.'
PRB.TP.DIM=2
PRB.TP.DTXT(1)='X'
PRB.TP.DTXT(2)='Y'
CASE DEFAULT
WRITE(F_W,02101) TP
WRITE(*, 02101) TP
STOP
END SELECT
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
02101 FORMAT(/,2x,'ERROR 02101 - TIP_PROBL_TERM - Tipo de problema ',i2
@ ,' no implementado')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
