C Rutina 031
C---------------------------------------------------------TRNSFMA_PC_POT---
C
C SUBRUTINA TRNSFMA_PC_POT
C
C TRANSFORMA LA GEOMETRIA DE LOS PUNTOS INTERNOS PARA LOS
C PROBLEMAS POTENCIAL ANISOTROPOY FGM. LA TRANSFORMACION
C ES LINEAL (MATRIZ L)
C
SUBROUTINE TRNSFMA_PC_POT(SOL,PC,DIM,MAT)
C
IMPLICIT NONE
INCLUDE '_param.for'
INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C NOD.VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C SOL : Solido
RECORD /S_solido/ SOL
C PC : Elementos del problema
RECORD /S_coloc/ PC(N_MAX_PC)
C DIM : Numero de coordenadas de los nodos
INTEGER DIM
C MAT : Material
RECORD /S_material/ MAT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C NOD.VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C I,J,P,CPINT : Contadores
INTEGER I,J,P,CPC
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCCCC
C RUTINA
CCCCCCCCCCCCCCCCC
C
DO p = 1 , SOL.NPC
cpc=SOL.PC(p)
DO i = 1 , DIM
DO j = 1 , DIM
PC(cpc).XYZt(i)=PC(cpc).XYZt(i)
@ + MAT.MAPOT.L(i,j)*PC(cpc).XYZ(j)
END DO
END DO
END DO
C
C FIN DE LA RUTINA
C
RETURN
C
C FORMATOS DE ESCRITURA
C
03200 FORMAT(/,2x,'ERROR 03200 - TRNSFMA_PC_POT - Error Programa (#'
@ ,i1,'#)')
03201 FORMAT(/,2x,'ERROR 03201 - TRNSFMA_PC_POT - Tipo de elemento '
@ ,i2,' no implementado.')
C
END
C
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
