C
C-----------------------------------------ALMACENA_WTERM---
C
C SUBRUTINA ALMACENA_WTERM
C
C ALMACENAMIENTO DE LAS W EN LOS SOLIDOS CORRESPONDIENTES
C
SUBROUTINE ALM_WTERM(PRB,SOL,SXj)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C PRB : Variables globales del problema
RECORD /S_problema/ PRB
C SOL : Solidos del problema
RECORD /S_solido/ SOL(N_MAX_SOL)
C SXJ() : Vector de incógnitas.
REAL*8 SXj(N_MAX_INC)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C i : Contadores
INTEGER i
C NSOL : Número de solidos del problema
INTEGER NSOL
C CSOL : Solido actual
INTEGER CSOL
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
C
CCCCCCCCCCCCCCCCCCCC
C RUTINA
CCCCCCCCCCCCCCCCCCCC
C
NSOL=PRB.NSOL
C
DO i = 1 , NSOL
csol=SOL(i).NUM
IF((SOL(csol).APOPOT.APO).EQ.4)THEN
SOL(csol).APOPOT.W=SXJ(SOL(csol).APOPOT.NINC)
IF((SOL(csol).APOPOT.W).GT.1)THEN
WRITE(F_W,01000) csol,SOL(csol).APOPOT.W
WRITE(* ,01000) csol,SOL(csol).APOPOT.W
END IF
ENDIF
END DO
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
01000 FORMAT(/,2x,'ERROR 01000 - ALMACENA_WTERM - Error Programa ',
@ '. Apoyo termico incorrecto: La W del solido ',
@ i2,' vale ',e14.7,' .')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
