C
C-------------------------------------------------------------TIP_INT_TERM---
C
C SUBRUTINA TIP_INT_TERM
C
C GENERA LOS DATOS CORRESPONDIENTES AL TIPO DE INTEGRACION
C
SUBROUTINE TIP_INT_TERM(INTEGR,TIP)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C INTEGR : Tipo de integracion
RECORD /S_intgr/ INTEGR
C TIP : Codigo del tipo
INTEGER TIP
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C TIPOS DE INTEGRACION
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
SELECT CASE (TIP)
C
C INTEGRACION NUMERICA
C
CASE(1)
INTEGR.TIP=1
INTEGR.TXT='Integracion numerica.'
C
C INTEGRACION ANALITICA
C
CASE(2)
INTEGR.TIP=2
INTEGR.TXT='Integracion analitica.'
C
C INTEGRACION MIXTA
C
CASE(3)
INTEGR.TIP=3
INTEGR.TXT='Integracion mixta.'
CASE DEFAULT
WRITE(F_W,02301) TIP
WRITE (*,02301) TIP
STOP
END SELECT
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
02301 FORMAT(/,2x,'ERROR 02301 - TIP_INT_TERM - Tipo de integracion (',
@ i2,') errornea.')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
