C Rutina 060
C-------------------------------------------------------------TENS_TERM---
C
C SUBRUTINA TENS_TERM
C
C CALCULO DE LAS TENSIONES TERMICAS
C
SUBROUTINE TENS_TERM(PRB,PRBS,SOLS,MATS,CNTS,ELTS,NODS,PCS,SAijS,
@ SFiS,NODT,PRBT,ALFA,MATT)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PRB,PRBS,PRBT : Variables globales del problema
RECORD /S_problema/ PRB
RECORD /S_problema/ PRBS
RECORD /S_problema/ PRBT
C SOLS : Solidos del problema
RECORD /S_solido/ SOLS(N_MAX_SOL)
C MATS,MATT : Materiales
RECORD /S_material/ MATS(N_MAX_SOL)
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 NODS,NODT: Nodos del problema
RECORD /S_nodo/ NODS(N_MAX_NOD)
RECORD /S_nodo/ NODT(N_MAX_NOD)
C PCS : Elementos del problema
RECORD /S_coloc/ PCS(N_MAX_PC)
C SAIJS(,) : Matriz del sistema.
REAL*8 SAijS(N_MAX_INC,N_MAX_INC)
C SFiS() : Termino independiente.
REAL*8 SFiS(N_MAX_INC)
C ALFA : Coeficientes de dilatacion termica
RECORD /S_alfaTERM/ ALFA
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C i,j,m,n,p,r : Contadores
INTEGER i,j,m,n,q,r
C CSOL,CCNT,CELTP,CELT,CPC,CEC : Contadores
INTEGER CSOL,CCNT,CELTP,CELT,CPC,CEC
C TP : Tipo de problema
INTEGER TP
C TI : Tipo de integracion
INTEGER TI
C NSOL : Numero de solidos
INTEGER NSOL
C ALF : Coeficiente de dilatación de csol
REAL*8 ALF
C
xCCC
x INTEGER II,JJ
xCCC
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
cec=PRBS.NAP
C
TP=PRBS.TP.TIP
TI=PRBS.TI.TIP
NSOL=PRBS.NSOL
DO i=1,NSOL
DO j=1,SOLS(i).NPC
cpc=SOLS(i).PC(j)
DO m=1,SOLS(i).NCNT
ccnt=SOLS(i).CNT(m)
DO n=1,CNTS(ccnt).NELT
celt=CNTS(ccnt).ELT(n)
celtp=ELTS(celt).TIP
DO q=1,PRBS.TP.DIM
DO r=1 , PRBS.ELTP(celtp).NVE
PCS(cpc).EIJT(celt).EijT(q,r)=0.d0
END DO
END DO
END DO
END DO
END DO
END DO
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C MONTAJE ECUACIONES SOLIDO
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C BUCLE QUE RECORRE LOS SOLIDOS
C
DO i = 1 , NSOL
csol=SOLS(i).NUM
ALF=ALFA.ALF(csol)
C
C BUCLE QUE RECORRE LOS PUNTOS DE COLOCACION DEL SOLIDO
C
DO j = 1 , SOLS(csol).NPC
cpc=SOLS(csol).PC(j)
C
CALL PC_BIE_TERM(PRB,PRBS,SOLS(csol),MATS(csol),CNTS,ELTS,
@ NODS,PCS(cpc),SFiS,cec,NODT,PRBT,ALF,MATT(csol))
C
C FIN BUCLE QUE RECORRE LOS PUNTOS DE COLOCACION DEL SOLIDO
C
END DO
C
C FIN BUCLE QUE RECORRE LOS SOLIDOS
C
END DO
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
