C Rutina
C-----------------------------------------------CALCULAGAMMA---
C
SUBROUTINE CALCULAGAMMA(MAT)
C
C ESTA RUTINA CALCULA GAMMA=RAIZ(Kij*ALFAi*ALFAj)
C
IMPLICIT NONE
INCLUDE '_PARAM.FOR'
INCLUDE '_STRUCT.FOR'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES EXTERNAS (ENTRADA)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C MAT : Material
RECORD /S_material/ MAT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C RADCDO : Radicando
REAL*8 RADCDO
C
CCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCC
C RUTINA
CCCCCCCCCCCCCCCCCCCCCCCCCC
C
C Deteccion de error en el material:
C Combinacion incorrecta de K11,K12=K21,K22
C ALFA1 Y ALFA2
C
RADCDO=MAT.PRP(1)*MAT.PRP(4)*MAT.PRP(4)+
@ MAT.PRP(3)*MAT.PRP(5)*MAT.PRP(5)+
@ 2.d0*MAT.PRP(2)*MAT.PRP(4)*MAT.PRP(5)
IF (RADCDO.LT.0.d0) THEN
WRITE(F_W,09111)
WRITE(*,09111)
STOP
END IF
C
C Fin de detección de error
C
MAT.FGMPOT.GAMMA=DSQRT(RADCDO)
C
C FORMATOS DE ESCRITURA
C
09111 FORMAT(/,2x,'ERROR 09111 - CALCULAGAMMA - Combinación incorrecta '
@ 'de K11,K12=K21 y K22. ')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
