C
C-------------------------------------------------------------ACTUAL2_TERM---
C
C SUBRUTINA ACTUAL2_TERM
C
C CALCULAMOS LAS RESISTENCIAS PARA EL PROBLEMA TÉRMICO
C EN FUNCIÓN DE LAS TENSIONES NORMALES
C
SUBROUTINE ACTUAL2_TERM(NODS,PRBT,SOLS,MATT,CNTS,ELTS,NODT,
@ PINTT,ZCTOS,PRBS,FRES)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PRBT,PRBS : Variables globales del problema
RECORD /S_problema/ PRBT
RECORD /S_problema/ PRBS
C SOLS : Solidos del problema
RECORD /S_solido/ SOLS(N_MAX_SOL)
C MATT : Materiales
RECORD /S_material/ MATT(N_MAX_SOL)
C CNTS : Contornos del problema
RECORD /S_contorno/ CNTS(N_MAX_CNT)
C ELTS : Elementos del problema
RECORD /S_elemento/ ELTS(N_MAX_ELT)
C NODT,NODS: Nodos del problema
RECORD /S_nodo/ NODT(N_MAX_NOD)
RECORD /S_nodo/ NODS(N_MAX_NOD)
C PINTT : Puntos internos del problema
RECORD /S_pntint/ PINTT(N_MAX_PINT)
C ZCTOS: Zonas de contacto del problema
RECORD /S_zncto/ ZCTOS(N_MAX_ZCTO)
C FRES : Funcion de resistencia-tension
RECORD /S_fresTERM/ FRES
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C ELTPS : Tipos de elemento
RECORD /S_tipelt/ ELTPS(N_MAX_TPEL)
C
C NZCTO,CNTA,CNTB
INTEGER nzcto,cntA,cntB,czn
C
CCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCC
c
NZCTO=PRBS.NZCTO
ELTPS=PRBS.ELTP
C
C RECORREMOS LA ZONA DE CONTACTO (NZCTOS)
C
DO czn=1,NZCTO
C
SELECT CASE(ZCTOS(czn).TIP)
C
CASE(11)
C
CONTINUE
C
CASE(21)
C
C RECORREMOS EL CONTORNO 'A' DEL CONTACTO
C
cntA=ZCTOS(czn).CNT(1)
C
CALL ACT2_TERM(CNTS(cntA),ELTPS,ELTS,NODS,NODT,FRES)
C
C RECORREMOS EL CONTORNO 'B' DEL CONTACTO
C
cntB=ZCTOS(czn).CNT(2)
C
CALL ACT2_TERM(CNTS(cntB),ELTPS,ELTS,NODS,NODT,FRES)
C
C
CASE DEFAULT
WRITE(F_W,09222)
WRITE(*,09222)
STOP
END SELECT
C
END DO
C
RETURN
C
C FORMATOS DE ESCRITURA
C
09222 FORMAT(/,2x,'ERROR 09222 - ACTUAL2_TERM - ')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
