C
C------------------------------------------------------------TIP_FORM---
C
C SUBRUTINA TIP_FORM
C
C GENERA LOS DATOS CORRESPONDIENTES AL TIPO DE FORMULACION
C
SUBROUTINE TIP_FORM(TF,TIP)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C TF : Tipo de formulacion
RECORD /S_tipform/ TF
C TIP : Codigo del tipo
INTEGER TIP
C
CCCCCCCCCCCCCCC
C RUTINA
CCCCCCCCCCCCCCC
C
SELECT CASE (TIP)
C
CASE (11)
TF.TIP=11
TF.TXT='Solucion directa.'
CASE (12)
TF.TIP=12
TF.TXT='Alg. incremental.'
CASE (13)
TF.TIP=13
TF.TXT='Alg. incremental con actualizacion.'
CASE (14)
TF.TIP=14
TF.TXT='Alg. iterativo.'
C
CASE (21)
TF.TIP=21
TF.TXT='Solucion directa y temperatura.'
CASE (22)
TF.TIP=22
TF.TXT='Alg. incremental y temperatura.'
CASE (23)
TF.TIP=23
TF.TXT='Alg. incremental con actualizacion y temperatura.'
CASE (24)
TF.TIP=24
TF.TXT='Alg. iterativo y temperatura.'
C
CASE DEFAULT
WRITE(F_W,02201) TIP
WRITE (*,02201) TIP
STOP
END SELECT
C
C FORMATOS DE ESCRITURA.
C
02201 FORMAT(/,2x,'ERROR 02201 - TIP_FORM - Tipo de formulacion (',
@ i2,') erronea.')
C
C FIN DE LA RUTINA.
C
RETURN
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
