C Rutina
C------------------------------------------------------MATERIAL_POT---
C
SUBROUTINE MATERIAL_POT(TP,MAT)
C
C ESTA RUTINA CALCULA LOS AUTOVALORES DE LA MATRIZ DE CONDUCTIVIDADES
C PARA LOS CASOS ANISOTROPO Y ANISOTROPO FGM Y LA CONSTANTE GAMMA PARA
C EL CASO ANISOTROPO FGM
C
IMPLICIT NONE
INCLUDE '_PARAM.FOR'
INCLUDE '_STRUCT.FOR'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS (ENTRADA)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C TP : tipo de problema:
INTEGER TP
C MAT : Material
RECORD /S_material/ MAT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCC
C
C Potencial 2D
C
SELECT CASE (MAT.TIP)
C
C ***********************
C MATERIAL ISOTROPO
C ***********************
C
CASE(1)
MAT.k=-MAT.PRP(1)
CONTINUE
C
C ***********************
C MATERIAL ANISOTROPO
C ***********************
C
CASE(2)
CALL CALCULAL(MAT)
MAT.k=-1.d0
C
C ***********************
C MATERIAL FGM
C ***********************
C
CASE(3,4)
CALL CALCULAL(MAT)
CALL CALCULAGAMMA(MAT)
MAT.k=1.d0
C
C
CASE DEFAULT
WRITE(F_W,09111) MAT.TIP,TP
WRITE( *,09111) MAT.TIP,TP
STOP
END SELECT
C
RETURN
C
C FORMATOS DE ESCRITURA
C
09111 FORMAT(/,2x,'ERROR 09111 - MATERIAL_POT - Tipo de material (',i2,
@ ') no implementado en el problema tipo',i2,'.')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
