C Rutina 051
C--------------------------------------------------------------CALC_PC---
C     
C     SUBRUTINA CALC_PC
C     
C     CALCULO DE LOS PUNTOS DE COLOCACION CORRESPONDIENTES A UN SOLIDO
C	ELEMENTO LINEAL CONTINUO
C
      SUBROUTINE CALC_PC(cpc,PC,aelt,delt,ELT,NOD,TP,SOL,MAT,COD)
C
      IMPLICIT NONE
      INCLUDE '_param.for'
      INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C                            
C CPC : Contador puntos de colocacion
      INTEGER CPC
C PC : Puntos de colocacion
      RECORD /S_coloc/ PC(N_MAX_PC)
C AELT,DELT : elementos antes y despues del nodo
	INTEGER aelt,delt
C ELT : Elementos
      RECORD /S_elemento/ ELT(N_MAX_ELT)
C NOD : Nodos
      RECORD /S_nodo/ NOD(N_MAX_NOD)
C TP : Tipo de problema
      RECORD /S_tipprobl/ TP
C SOL : Solido
      RECORD /S_solido/ SOL
C MAT : Constantes del material
      RECORD /S_material/ MAT                                      
C COD : Cod=1 - Nodo normal.
C       Cod=2 - Nodo inicial (aelt=0). 
C       Cod=3 - Nodo final   (delt=0).
      INTEGER COD
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C A1,A2,A3 : Angulos auxiliares
      REAL*8 A2,A3
C n1,n2,n3 : Nodos extremos de los elementos
	INTEGER n1,n2,n3
C NrmA(),NrmD() : Normal antes y despues del nodo
      REAL*8 NrmA(2),NrmD(2)
C LA,LD : Longitud antes y despues del nodo
      REAL*8 LA,LD
C DT : Angulo interior entre los elementos
      REAL*8 DT
C PI : Pi
      REAL*8 PI    
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     
	IF(cpc.GT.N_MAX_PC)THEN
	  WRITE(F_W,07115) 
        WRITE (*,07115) 
        STOP
	END IF
C         
      PI=DACOS(-1.d0)
      A2=0
      A3=0
      DT=0
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     CALCULO DE LOS NODOS EXTREMOS, LAS NORMALES
C     Y EL ANGULO INTERIOR ENTRE LOS ELEMENTOS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     
	SELECT CASE(COD)
	  CASE (1)
	    n1=ELT(aelt).NI(1)
	    n2=ELT(aelt).NI(2)
	    IF(n2.NE.ELT(delt).NI(1))THEN 
            WRITE(F_W,07110) 1
            WRITE (*,07110) 1
            STOP
		END IF
          n3=ELT(delt).NI(2)
	  	CALL NOR_ELT(NrmA,ELT(aelt),NOD)
	  	CALL NOR_ELT(NrmD,ELT(delt),NOD)
          CALL ANGULO(A2,-NrmD(2),NrmD(1))
          CALL ANGULO(A3,NrmA(2),-NrmA(1))
	  CASE (2)
	    n2=ELT(delt).NI(1)
          n3=ELT(delt).NI(2)
	  	CALL NOR_ELT(NrmD,ELT(delt),NOD)
          CALL ANGULO(A2,-NrmD(2),NrmD(1))
          A3=PI/2.d0         
	  CASE (3)
	    n1=ELT(aelt).NI(1)
	    n2=ELT(aelt).NI(2)
	  	CALL NOR_ELT(NrmA,ELT(aelt),NOD)
          A2=3.d0*PI/2.d0
          CALL ANGULO(A3,NrmA(2),-NrmA(1))
	  CASE DEFAULT
          WRITE(F_W,07111) COD
          WRITE (*,07111) COD
          STOP
      END SELECT
C
      IF(A2.GT.A3) THEN
        A3=2.d0*PI+A3
      END IF
C      
      DT=(A3-A2)                  
C
C     Si cod=2 o 3 forzosamente NOD tiene que estar en R=0
C
      IF(COD.EQ.2) THEN
        IF(NOD(n2).XYZ(1).NE.0.d0) THEN
C         El nodo debe pertenecer al eje R=0
          WRITE(F_W,07110) 1
          WRITE (*,07110) 1
          STOP
        END IF
      END IF
      IF(COD.EQ.3) THEN
        IF(NOD(n2).XYZ(1).NE.0.d0) THEN
C         El nodo debe pertenecer al eje R=0
          WRITE(F_W,07110) 1
          WRITE (*,07110) 1
          STOP
        END IF
      END IF
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     CALCULO PUNTOS COLOCACION
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C     PUNTO DE COLOCACION EN EL NODO
C
	PC(cpc).TIP=1
C
      SELECT CASE (COD)
        CASE(1)
 		PC(cpc).LOC=-1.d0
          PC(cpc).ELT=ELT(delt).NUM
	  CASE(2)
		PC(cpc).LOC=-1.d0
          PC(cpc).ELT=ELT(delt).NUM
        CASE(3)
	    PC(cpc).LOC=1.d0
          PC(cpc).ELT=ELT(aelt).NUM
        CASE DEFAULT
          WRITE(F_W,07110) 16
          WRITE (*,07110) 16
          STOP
      END SELECT  
C
	SELECT CASE(COD)
	  CASE (1)
          SOL.NBIE=SOL.NBIE+2
C		Monta las dos componentes de la BIE
          PC(cpc).CMP=1 
	  CASE (2,3)
          SOL.NBIE=SOL.NBIE+1
C		Monta la componente 2 de la BIE
C	    Nota: la componente 1 es identicamente nula 
          PC(cpc).CMP=3
C
	  CASE DEFAULT
          WRITE(F_W,07111) COD
          WRITE (*,07111) COD
          STOP
      END SELECT
C
	PC(cpc).XYZ(1)=NOD(n2).XYZ(1)
	PC(cpc).XYZ(2)=NOD(n2).XYZ(2)
C
      PC(cpc).NUM=cpc
C
      CALL CIJ(PC(cpc),MAT,NrmA,NrmD,DT,TP.TIP,COD)
C
      SOL.NPC=SOL.NPC+1
      SOL.PC(SOL.NPC)=cpc
      cpc=cpc+1
C
C     PUNTO DE COLOCACION ADICIONAL (Segun cdc)
C     
	SELECT CASE(COD)
	  CASE (1)
		La=DSQRT((NOD(n2).XYZ(1)-NOD(n1).XYZ(1))**2.d0+
	@			 (NOD(n2).XYZ(2)-NOD(n1).XYZ(2))**2.d0)
		Ld=DSQRT((NOD(n3).XYZ(1)-NOD(n2).XYZ(1))**2.d0+
	@			 (NOD(n3).XYZ(2)-NOD(n2).XYZ(2))**2.d0)
	  CASE (2)
		La=0
		Ld=DSQRT((NOD(n3).XYZ(1)-NOD(n2).XYZ(1))**2.d0+
	@			 (NOD(n3).XYZ(2)-NOD(n2).XYZ(2))**2.d0)
	  CASE (3)
		La=DSQRT((NOD(n2).XYZ(1)-NOD(n1).XYZ(1))**2.d0+
	@			 (NOD(n2).XYZ(2)-NOD(n1).XYZ(2))**2.d0)
	    Ld=0
	  CASE DEFAULT
          WRITE(F_W,07111) COD
          WRITE (*,07111) COD
          STOP
      END SELECT
C
      SELECT CASE(NOD(n2).CBC(1))
C
        CASE(41,31,21,11,12,13,14,15,55,51)
C
C         No hace falta
C
          CONTINUE
C
        CASE(22)
C
		IF(NOD(n2).CBC(2).EQ.0)THEN
C
C           Componente tangencial antes del nodo (a 1/3)
C		  
            PC(cpc).LOC=1.d0/3.d0
            PC(cpc).TIP=2
            PC(cpc).XYZ(1)=(NOD(n1).XYZ(1)+2.d0*NOD(n2).XYZ(1))/3.d0
            PC(cpc).XYZ(2)=(NOD(n1).XYZ(2)+2.d0*NOD(n2).XYZ(2))/3.d0
            CALL CIJ(PC(cpc),MAT,NrmA,NrmA,PI,TP.TIP,COD)
            PC(cpc).NUM=cpc
            PC(cpc).ELT=ELT(aelt).NUM
            PC(cpc).CMP=3
            SOL.NPC=SOL.NPC+1
            SOL.PC(SOL.NPC)=cpc
            SOL.NBIE=SOL.NBIE+1
            cpc=cpc+1
C
C           Componente normal despues del nodo (a 1/3)
C		 
            PC(cpc).LOC=-1.d0/3.d0
            PC(cpc).TIP=2
            PC(cpc).XYZ(1)=(2.d0*NOD(n2).XYZ(1)+NOD(n3).XYZ(1))/3.d0
            PC(cpc).XYZ(2)=(2.d0*NOD(n2).XYZ(2)+NOD(n3).XYZ(2))/3.d0
            CALL CIJ(PC(cpc),MAT,NrmD,NrmD,PI,TP.TIP,COD)
            PC(cpc).NUM=cpc
            PC(cpc).ELT=ELT(delt).NUM
            PC(cpc).CMP=2
            SOL.NPC=SOL.NPC+1
            SOL.PC(SOL.NPC)=cpc
            SOL.NBIE=SOL.NBIE+1
            cpc=cpc+1 
C
		END IF
C
        CASE(23,24)
C
C         Componente tangencial antes del nodo (a 1/3)
C
          PC(cpc).LOC=1.d0/3.d0
          PC(cpc).TIP=2
          PC(cpc).XYZ(1)=(NOD(n1).XYZ(1)+2.d0*NOD(n2).XYZ(1))/3.d0
          PC(cpc).XYZ(2)=(NOD(n1).XYZ(2)+2.d0*NOD(n2).XYZ(2))/3.d0
          CALL CIJ(PC(cpc),MAT,NrmA,NrmA,PI,TP.TIP,COD)
          PC(cpc).NUM=cpc
          PC(cpc).ELT=ELT(aelt).NUM
          PC(cpc).CMP=3
          SOL.NPC=SOL.NPC+1
          SOL.PC(SOL.NPC)=cpc
          SOL.NBIE=SOL.NBIE+1
          cpc=cpc+1
C
        CASE(32,42)
C
C         Componente normal despues del nodo (a 1/3)
C
          PC(cpc).LOC=-1.d0/3.d0
          PC(cpc).TIP=2
          PC(cpc).XYZ(1)=(2.d0*NOD(n2).XYZ(1)+NOD(n3).XYZ(1))/3.d0
          PC(cpc).XYZ(2)=(2.d0*NOD(n2).XYZ(2)+NOD(n3).XYZ(2))/3.d0
          CALL CIJ(PC(cpc),MAT,NrmD,NrmD,PI,TP.TIP,COD)
          PC(cpc).NUM=cpc
          PC(cpc).ELT=ELT(delt).NUM
          PC(cpc).CMP=2
          SOL.NPC=SOL.NPC+1
          SOL.PC(SOL.NPC)=cpc
          SOL.NBIE=SOL.NBIE+1
          cpc=cpc+1
C
        CASE(33)
C         
          IF((DABS(DT-PI).LT.1E-15).AND.(NOD(n2).CBC(2).EQ.0)) THEN
C
		  IF(La.GT.Ld)THEN 
C
C             Componente normal antes del nodo (a 1/3)
C
			PC(cpc).LOC=1.d0/3.d0
			PC(cpc).XYZ(1)=(NOD(n1).XYZ(1)+2.d0*NOD(n2).XYZ(1))/3.d0
			PC(cpc).XYZ(2)=(NOD(n1).XYZ(2)+2.d0*NOD(n2).XYZ(2))/3.d0
			PC(cpc).ELT=ELT(aelt).NUM
			PC(cpc).CMP=2
		    CALL CIJ(PC(cpc),MAT,NrmA,NrmA,PI,TP.TIP,COD)
C		    
		  ELSE 
C
C             Componente normal despues del nodo (a 1/3)
C
			PC(cpc).LOC=-1.d0/3.d0
			PC(cpc).XYZ(1)=(NOD(n3).XYZ(1)+2.d0*NOD(n2).XYZ(1))/3.d0
			PC(cpc).XYZ(2)=(NOD(n3).XYZ(2)+2.d0*NOD(n2).XYZ(2))/3.d0
			PC(cpc).ELT=ELT(delt).NUM
			PC(cpc).CMP=2
		    CALL CIJ(PC(cpc),MAT,NrmD,NrmD,PI,TP.TIP,COD)
C		    
		  END IF
C
		  PC(cpc).TIP=2
		  PC(cpc).NUM=cpc
		  SOL.NPC=SOL.NPC+1
		  SOL.PC(SOL.NPC)=cpc
		  SOL.NBIE=SOL.NBIE+1
		  cpc=cpc+1
C
          END IF
C
        CASE(34)
C         
          IF(DABS(DT-(PI/2.d0)).LT.1E-15) THEN
C
		  IF(La.GT.Ld)THEN 
C
C             Componente normal antes del nodo (a 1/3)
C
			PC(cpc).LOC=1.d0/3.d0
			PC(cpc).XYZ(1)=(NOD(n1).XYZ(1)+2.d0*NOD(n2).XYZ(1))/3.d0
			PC(cpc).XYZ(2)=(NOD(n1).XYZ(2)+2.d0*NOD(n2).XYZ(2))/3.d0
			PC(cpc).ELT=ELT(aelt).NUM
			PC(cpc).CMP=2
			CALL CIJ(PC(cpc),MAT,NrmA,NrmA,PI,TP.TIP,COD)
C		    
		  ELSE 
C
C             Componente tangencial despues del nodo (a 1/3)
C
			PC(cpc).LOC=-1.d0/3.d0
			PC(cpc).XYZ(1)=(NOD(n3).XYZ(1)+2.d0*NOD(n2).XYZ(1))/3.d0
			PC(cpc).XYZ(2)=(NOD(n3).XYZ(2)+2.d0*NOD(n2).XYZ(2))/3.d0
			PC(cpc).ELT=ELT(delt).NUM
			PC(cpc).CMP=3
			CALL CIJ(PC(cpc),MAT,NrmD,NrmD,PI,TP.TIP,COD)
C		    
		  END IF
C
		  PC(cpc).TIP=2
		  PC(cpc).NUM=cpc
		  SOL.NPC=SOL.NPC+1
		  SOL.PC(SOL.NPC)=cpc
		  SOL.NBIE=SOL.NBIE+1
		  cpc=cpc+1
C
          END IF
C
        CASE(43)
C         
          IF(DABS(DT-(PI/2.d0)).LT.1E-15) THEN
C
		  IF(La.GT.Ld)THEN 
C
C             Componente tangencial antes del nodo (a 1/3)
C
			PC(cpc).LOC=1.d0/3.d0
			PC(cpc).XYZ(1)=(NOD(n1).XYZ(1)+2.d0*NOD(n2).XYZ(1))/3.d0
			PC(cpc).XYZ(2)=(NOD(n1).XYZ(2)+2.d0*NOD(n2).XYZ(2))/3.d0
			PC(cpc).ELT=ELT(aelt).NUM
			PC(cpc).CMP=3
			CALL CIJ(PC(cpc),MAT,NrmA,NrmA,PI,TP.TIP,COD)
C		    
		  ELSE 
C
C             Componente normal despues del nodo (a 1/3)
C
			PC(cpc).LOC=-1.d0/3.d0
			PC(cpc).XYZ(1)=(NOD(n3).XYZ(1)+2.d0*NOD(n2).XYZ(1))/3.d0
			PC(cpc).XYZ(2)=(NOD(n3).XYZ(2)+2.d0*NOD(n2).XYZ(2))/3.d0
			PC(cpc).ELT=ELT(delt).NUM
			PC(cpc).CMP=2
			CALL CIJ(PC(cpc),MAT,NrmD,NrmD,PI,TP.TIP,COD)
C		    
		  END IF
C
		  PC(cpc).TIP=2
		  PC(cpc).NUM=cpc
		  SOL.NPC=SOL.NPC+1
		  SOL.PC(SOL.NPC)=cpc
		  SOL.NBIE=SOL.NBIE+1
		  cpc=cpc+1
C
          END IF
C
        CASE(44)
C         
          IF((DABS(DT-PI).LT.1E-15).AND.(NOD(n2).CBC(2).EQ.0)) THEN
C
		  IF(La.GT.Ld)THEN 
C
C             Componente tangencial antes del nodo (a 1/3)
C
			PC(cpc).LOC=1.d0/3.d0
			PC(cpc).XYZ(1)=(NOD(n1).XYZ(1)+2.d0*NOD(n2).XYZ(1))/3.d0
			PC(cpc).XYZ(2)=(NOD(n1).XYZ(2)+2.d0*NOD(n2).XYZ(2))/3.d0
			PC(cpc).ELT=ELT(aelt).NUM
			PC(cpc).CMP=3
			CALL CIJ(PC(cpc),MAT,NrmA,NrmA,PI,TP.TIP,COD)
C		    
		  ELSE 
C
C             Componente tangencial despues del nodo (a 1/3)
C
			PC(cpc).LOC=-1.d0/3.d0
			PC(cpc).XYZ(1)=(NOD(n3).XYZ(1)+2.d0*NOD(n2).XYZ(1))/3.d0
			PC(cpc).XYZ(2)=(NOD(n3).XYZ(2)+2.d0*NOD(n2).XYZ(2))/3.d0
			PC(cpc).ELT=ELT(delt).NUM
			PC(cpc).CMP=3
			CALL CIJ(PC(cpc),MAT,NrmD,NrmD,PI,TP.TIP,COD)
C		    
		  END IF
C
		  PC(cpc).TIP=2
		  PC(cpc).NUM=cpc
		  SOL.NPC=SOL.NPC+1
		  SOL.PC(SOL.NPC)=cpc
		  SOL.NBIE=SOL.NBIE+1
		  cpc=cpc+1
C
          END IF
C
        CASE DEFAULT
          WRITE(F_W,07113) NOD(n2).CBC(1)
          WRITE (*,07113) NOD(n2).CBC(1)
          STOP
      END SELECT
C
C     FIN DE LA RUTINA 
C        
      RETURN
C
C     FORMATOS DE ESCRITURA
C
07110 FORMAT(/,2x,'ERROR 07110 - CALC_PC - Error Programa (#',
     @       i2,'#)') 
07111 FORMAT(/,2x,'ERROR 07111 - CALC_PC - Codigo erroneo (',i2,').')
07112 FORMAT(/,2x,'ERROR 07112 - CALC_PC - Nodo: ',i4,'. Codigo (',i2
     @         ,') incompatible con Cdc. (',i2,').')
07113 FORMAT(/,2x,'ERROR 07113 - CALC_PC - ',
     @         'Condicion de contorno (',i2,') no implementada.')
07114 FORMAT(/,2x,'ERROR 07114 - CALC_PC - Tipo de problema (',i2,
     @         ') no implementado.')
07115 FORMAT(/,2x,'ERROR 07115 - CALC_PC - Num. P.C. mayor de lo 
     *         permitido')
C
      END
C<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="es">
	<head>
            <title>e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.</title>

                <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<meta name="description" content="Buscador de proyectos ETSI" />
<meta name="author" content="Daniel Callejo"/>
<meta name="author" content="Federico L&oacute;pez"/>
<meta name="author" content="Juli&aacute;n P&eacute;rez"/>
<meta name="author" content="Jos&eacute; Mar&iacute;a Vidal Vidal"/>
<base href="/bibing/proyectos/" /><link rel="shortcut icon" href="./favicon.ico" />
<link rel="stylesheet" href="./publico/css/estructura.css" type="text/css" />
<link rel="stylesheet" href="./publico/css/bootstrap.css" type="text/css" media="screen"/>
<link rel="stylesheet" href="./publico/css/enlaces-capas.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/pestanas.css" type="text/css"  /> 
<link rel="stylesheet" href="./publico/css/formularios.css" type="text/css" />
<link rel="stylesheet" href="./publico/css/lightbox.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/autocompleter.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/resultados.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/milista.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/explorador.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/ultimos.css" type="text/css"  />
<link rel="stylesheet" href="./publico/css/contactar.css" type="text/css"  />
<!-- <link rel="stylesheet" href="./css/print.css" type="text/css" media="print" /> -->
<script src="./publico/javascript/jquery-1.9.1.min.js" type="text/javascript"></script>
<script src="./publico/javascript/bootstrap.js" type="text/javascript"></script>

<script src="./publico/javascript/mootools-1.2.4-core.js" type="text/javascript"></script>
<script src="./publico/javascript/mootools-1-1.2.4.2-more.js" type="text/javascript"></script>
<script src="./publico/javascript/targetbl.js" type="text/javascript"></script>
<script src="./publico/javascript/mensajes.js" type="text/javascript"></script>
<script src="./publico/javascript/form.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Observer.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Autocompleter.js" type="text/javascript"></script>
<script src="./publico/javascript/autocompleter/Autocompleter.Request.js" type="text/javascript"></script>
<script src="./publico/javascript/domready.js" type="text/javascript"></script>

<!-- Google tag (gtag.js) -->
<script async src="https://www.googletagmanager.com/gtag/js?id=G-8T1TSNC1QY"></script>
<script>
  window.dataLayer = window.dataLayer || [];
  function gtag(){dataLayer.push(arguments);}
  gtag('js', new Date());

  gtag('config', 'G-8T1TSNC1QY');
</script>



<script type="text/javascript">
function seleccionar_todo(){
   for (i=0;i<document.formulario_marcados.elements.length;i++)
      if(document.formulario_marcados.elements[i].type == "checkbox")
         document.formulario_marcados.elements[i].checked=1
}
function deseleccionar_todo(){
   for (i=0;i<document.formulario_marcados.elements.length;i++)
      if(document.formulario_marcados.elements[i].type == "checkbox")
         document.formulario_marcados.elements[i].checked=0
} 
</script>
	</head>
    <body style="min-width: 960px; background-color: #e2e2e2; height: 100%">	
		<a name="arriba"></a>
<div>
<div id="header">
    <table id="Tabla_01" height="105" border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td>
            <img src="./publico/imagenes/cabecera/banner_new2_01.jpg" width="3" height="105" alt="">
        </td>
        <td>
            <img src="./publico/imagenes/cabecera/banner_new2_02.jpg" width="100" height="105" alt="">
        </td>
        <td width="100%" align="right"  style="min-width: 613px; background-repeat: no-repeat; background-position: top right; font-size: medium; font-weight: bold; color: white;">
            <table width="100%" height="105" border="0">
                <tr>
                    <td style=" vertical-align: top; width: 547px">
                        <!-- <a style="text-decoration: none" href="./"><img src="./publico/imagenes/cabecera/banner_new2_03.jpg"alt=""></a> -->
                        <a style="text-decoration: none" href="/bibing/proyectos/"><img src="./publico/imagenes/cabecera/banner_new2_03.jpg"alt=""></a>
                     </td>
                     <td  background="./publico/imagenes/cabecera/banner_new2_04.jpg" style="background-repeat: no-repeat; background-color: #c6d4e8;"><br><br><br>
                         &nbsp;
                        </td>
                    </tr>
             </table>
        </td>
    </tr>
    <tr style="border-top: 1px solid #ffffff;">
        <td colspan="3" id="menu_sup" style="font-size: small; text-align: right; background-color: #9c1f2f; vertical-align: bottom">
             
					<a href="/bibing/proyectos/" class="enlace " style=" color: #ffffff">Inicio&nbsp;&nbsp;|</a>
					<a href="/bibing/proyectos/acerca/" style=" color: #ffffff" class="enlace ">&nbsp;&nbsp;Acerca de&nbsp;&nbsp;|</a>
					
					<a href="/bibing/proyectos/contactar/" style=" color: #ffffff" class="enlace ">&nbsp;&nbsp;Contactar&nbsp;&nbsp;</a>
			 <!--       <a href="/bibing/proyectos/ayuda/" style=" color: #ffffff" class="enlace  ">&nbsp;&nbsp;Ayuda&nbsp;&nbsp;|</a> -->
					<!-- <form id="idioma" class=""  method="post" action="">
					<div class="inline" style="color: white">
					<input type="submit" class="tipo_letra " style=" color: #ffffff"name="idioma" value="Castellanossss" />&nbsp;&nbsp;
					</div>	
					</form> -->
			        </td>

    </tr>
    </table>
</div>
<br><br>
<div class="colmask rightmenu">
<div class="panel panel-default" style="margin:20px">
            <div class="panel-heading"><h4>ANÁLISIS DEL PROBLEMA TERMOELÁSTICO DE CONTACTO MEDIANTE EL MÉTODO DE LOS ELEMENTOS DE CONTORNO CON MALLAS CONFORMES Y NO CONFORMES</h4><h5 style="color:grey"><span class="glyphicon glyphicon-user""></span> : <b>MORALES SIERRA, DIÓGENES</b><br><span class="glyphicon glyphicon-book""></span>  :<b> Ingenier&iacute;a Industrial</b></h5></div><div class="panel-body"><div class="contenido_proyecto"><div class="titulo2_explorador">Contenido del proyecto:</div><div class="ruta"><a href="abreproy/4093">Directorio ra&iacute;z</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="abreproy/4093/direccion/RUTINAS%252F">RUTINAS</a>&nbsp;&nbsp;>&nbsp;&nbsp;<a href="abreproy/4093/direccion/RUTINAS%252F08-1-0-Cpc.for%252F">08-1-0-Cpc.for</a></div><div class="listing"></div></div></div></div>
</div>
</div>

        
	</body>
 
 
<!-- Inicio Google Analytics -->
<!--
	<script type="text/javascript">
		var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
		document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
	</script>
	
	<script type="text/javascript">
		try {
		var pageTracker = _gat._getTracker("UA-7789620-1");
		pageTracker._trackPageview();
	} 
		catch(err) {}
	</script>
-->
<!-- Fin Google Analytics -->

</html>