C
C-------------------------------------------------------------CONERG_T_TERM---
C
C SUBRUTINA CONVERG_T_TERM
C
C CONVERGENCIA DEL PROBLEMA TERMICO
C
SUBROUTINE CONVERG_T_TERM(NSOL,PRBT,SOLT,MATT,CNTT,ELTT,
@ NODT,PINTT,ZCTOT,NPGT,CONV,NODTU,FIN,PT)
C
IMPLICIT NONE
C
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C VARIABLES EXTERNAS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PRBT : Variables globales del problema
RECORD /S_problema/ PRBT
C SOLT : Solidos del problema
RECORD /S_solido/ SOLT(N_MAX_SOL)
C MAT : Materiales
RECORD /S_material/ MATT(N_MAX_SOL)
C CNTT : Contornos del problema
RECORD /S_contorno/ CNTT(N_MAX_CNT)
C ELTT : Elementos del problema
RECORD /S_elemento/ ELTT(N_MAX_ELT)
C NODT,NODTU : Nodos del problema
RECORD /S_nodo/ NODT(N_MAX_NOD)
RECORD /S_nodo/ NODTU(N_MAX_NOD)
C PINTT : Puntos internos del problema
RECORD /S_pntint/ PINTT(N_MAX_PINT)
C ZCTOT : Zonas de contacto del problema
RECORD /S_zncto/ ZCTOT(N_MAX_ZCTO)
C NPGT : Numero de puntos de Gauss
INTEGER NPGT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C VARIABLES EXTERNAS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C CONV,FIN,PT,NSOL : Indicadores
INTEGER CONV,FIN,PT,NSOL
C
C
CCCCCCCCCCCCCCC
C
C RUTINA
C
CCCCCCCCCCCCCCC
C
C ANALIZAMOS SI ES EL PRIMER PASO
C
SELECT CASE(PT)
C
CASE(0)
C
PT=1
C
CASE(1)
C
CALL CONV_T_TERM(NSOL,PRBT,SOLT,MATT,CNTT,ELTT,NODT,
@ PINTT,ZCTOT,NPGT,CONV,NODTU,FIN)
C
CASE DEFAULT
WRITE(F_W,01000)
WRITE(*,01000)
END SELECT
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
01000 FORMAT(/,2x,'ERROR 01000 - CONVERG_T_TERM - Error Programa ')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
