C Rutina 068
C-----------------------------------------------------------FUNC_FORM---
C
C SUBRUTINA FUNC_FORM
C
C CALCULO DE LAS FUNCIONES DE FORMA
C
SUBROUTINE FUNC_FORM(S,FF,TIP)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C S : Punto de colocacion
REAL*8 S
C FF() : Funciones de forma
REAL*8 FF(MAX_DIM)
C TIP : Tipo de elemento
INTEGER TIP
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C CALC. CONST. INTEGRACION
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
SELECT CASE (TIP)
C
C ELEMENTO LINEAL CONTINUO
C
CASE (1)
FF(1)=(1.d0-S)/2.d0
FF(2)=(1.d0+S)/2.d0
C
C OTROS ELEMENTOS
C
CASE DEFAULT
WRITE(F_W,03501) TIP
WRITE (*,03501) TIP
STOP
END SELECT
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA.
C
03500 FORMAT(/,2x,'ERROR 03500 - FUNC_FORM - Error Programa (#',
@ i1,'#)')
03501 FORMAT(/,2x,'ERROR 03501 - FUNC_FORM - Tipo de elemento (',i2,
@ ') no implementado.')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
