C
C---------------------------------------------------------ALMAC_T_TERM---
C
C SUBRUTINA ALMAC_T_TERM
C
C ALMACENAR LA SOLUCION TERMICA
C
SUBROUTINE ALMAC_T_TERM(NSOL,SOLT,NODT,NODTU)
C
IMPLICIT NONE
C
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C VARIABLES EXTERNAS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C SOLT : Solidos del problema
RECORD /S_solido/ SOLT(N_MAX_SOL)
C NODT,NODTU : Nodos del problema
RECORD /S_nodo/ NODT(N_MAX_NOD)
RECORD /S_nodo/ NODTU(N_MAX_NOD)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C VARIABLES EXTERNAS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C NSOL : Indicadores
INTEGER NSOL
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C VARIABLES INTERNAS
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C CSOL,CNOD,NNOD,I,J : Indicadores
INTEGER CSOL,CNOD,NNOD,I,J
C
CCCCCCCCCCCCCCC
C
C RUTINA
C
CCCCCCCCCCCCCCC
C
i=1
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C ALMACENAMOS LA VARIABLE NODT EN NODTU
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C Paso térmico en el que estamos
C
WRITE(F_S,*)
WRITE(F_S,*) '-------------'
WRITE(F_S,*) 'PASO TÉRMICO'
WRITE(F_S,*) '-------------'
WRITE(F_S,*)
C
C
C Bucle que recorra todos los solidos
c
DO csol = 1, nsol
C
i=1
C
nnod=SOLT(csol).NNOD
DO WHILE(i.LE.nnod)
cnod=SOLT(csol).NOD(i)
NODTU(cnod).NUM=cnod
C
C Nodo actual
C
WRITE(F_S,*) 'Nodo:',cnod
C
DO j = 1, 3
NODTU(cnod).SOLU(j)=NODT(cnod).SOLU(j)
C
END DO
i=i+1
C
C FORMATO EN COLUMNA
C
C WRITE(F_S,*) 'T',NODT(cnod).SOLU(1)
C WRITE(F_S,*) 'qa',NODT(cnod).SOLU(2)
C WRITE(F_S,*) 'qd',NODT(cnod).SOLU(3)
C WRITE(F_S,*) 'RT1',NODT(cnod).RT(1).R
C WRITE(F_S,*) 'RT2',NODT(cnod).RT(2).R
C
C FORMATO POR FILAS
C
WRITE(F_S,10) NODT(cnod).SOLU(1),NODT(cnod).SOLU(2),
@ NODT(cnod).SOLU(3),NODT(cnod).RT(1).R,NODT(cnod).RT(2).R
C
END DO
C
END DO
C
C
10 FORMAT(1x,e22.12,1x,e22.12,1x,e22.12,1x,e22.12,1x,e22.12)
C
C FIN DE LA RUTINA LECTURA
C
RETURN
C
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
