C Rutina 080
C------------------------------------------------------ESC_ENT_TERM---
C
C SUBRUTINA ESC_ENT_TERM
C
C ESCRITURA DE LOS DATOS DE ENTRADA EN EL FICHERO DE SALIDA
C
SUBROUTINE ESC_ENT_TERM(PRB,ALFA,FRES)
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 ALFA : Coeficientes de dilatacion termica
RECORD /S_alfaTERM/ ALFA
C FRES : Funcion de resistencia-tension
RECORD /S_fresTERM/ FRES
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C CSOL,CCNT,CELT,PNOD,ANOD,CNOD,CPNT : Contadores
INTEGER CSOL
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C ESCRITURA FICHERO DE SALIDA
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
WRITE(F_S,*)
WRITE(F_S,*) ' Titulo: ',PRB.TITULO
C
WRITE(F_S,*)
WRITE(F_S,10) 'Tipo de problema : ',PRB.TP.TIP,' - ',
@ PRB.TP.TXT
WRITE(F_S,10) 'Tipo de formulacion : ',PRB.TF.TIP,' - ',
@ PRB.TF.TXT
WRITE(F_S,10) 'Tipo de integracion : ',PRB.TI.TIP,' - ',
@ PRB.TI.TXT
C
WRITE(F_S,10) 'Numero de solidos....: ',PRB.NSOL
C
WRITE(F_S,*)
C
C WRITE(F_S,*) ' ************************'
C WRITE(F_S,10) ' CONDICION NODO LIBRE '
C WRITE(F_S,*) ' ************************'
C WRITE(F_S,18) ' Nodo libre : ',LIBRE.NUM,LIBRE.VBC(1),
C @ LIBRE.VBC(2)
C
WRITE(F_S,*)
WRITE(F_S,*) ' *******************************'
WRITE(F_S,10) ' FUNCION RESISTENCIA-TENSION '
WRITE(F_S,*) ' *******************************'
WRITE(F_S,16) ' R=(KR/S^LR) : ','KR=',FRES.KR,
@ 'LR=',FRES.LR
C
WRITE(F_S,*)
C
WRITE(F_S,*) ' *********************************'
WRITE(F_S,10) ' COEFICIENTES DE DILAT.TERMICA '
WRITE(F_S,*) ' *********************************'
C
C Bucle que recorre los solidos
C
WRITE(F_S,*)
WRITE(F_S,*) ' Sólido',' Coeficiente de dilatacion'
WRITE(F_S,*)
DO csol = 1 ,PRB.NSOL
WRITE(F_S,14) csol,ALFA.ALF(csol)
END DO
C Fin bucle que recorre los solidos
C
C Escribimos el NPG para el termoelástico
C
WRITE(F_S,10) ' Número de puntos de Gauss-tens.térm',
@ PRB.TI.NPG
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA
C
10 FORMAT(2x,a,i2,a,a)
12 FORMAT(4x,a,': ',e22.16)
14 FORMAT(4x,i4,2x,e22.16)
16 FORMAT(2x,a,a,e22.16,a,e22.16)
18 FORMAT(2x,a,i2,e22.16,e22.16)
19 FORMAT('ERROR ESC_ENT_POT:CDC',i2)
C
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
