C Rutina 101
C------------------------------------------------------NODO_LIBRE_POT---
C     															   
C     SUBRUTINA NODO_LIBRE_POT
C     
C     MONTAJE DE LAS CONDICIONES DE CONTORNO CORRESPONDIENTES A 
C	UN NODO LIBRE DE LA ZONA DE CONTACTO (POTENCIAL 2-D)
C
C	CONTACTO DEBIL
C
	SUBROUTINE NODO_LIBRE_POT(NOD,SAij,SFi,ceq,COD)
C
      IMPLICIT NONE
C
      INCLUDE '_param.for'
      INCLUDE '_struct.for'
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     VARIABLES EXTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C NOD : Nodo
      RECORD /S_nodo/ NOD
C SAIJ(,) : Matriz del sistema.
      REAL*8 SAij(N_MAX_INC,N_MAX_INC)
C SFi() : Termino independiente.
      REAL*8 SFi(N_MAX_INC)
C CEQ : Contador de ecuacuones de contacto
      INTEGER CEQ
C COD : Localizacion del nodo
C     = 1 , contorno A
C     = 2	, contorno B
      INTEGER COD
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     VARIABLES INTERNAS
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     VALORES INICIALES
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     IMPOSICION DE CONDICIONES DE CONTORNO
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     NODOS NO CONTACTO
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C    
	SELECT CASE(NOD.CBC(1))
	  CASE(66)
	    SAij(ceq,NOD.INC(1))=1.d0
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	  CASE(67)
	    SAij(ceq,NOD.INC(1))=1.d0
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	    SAij(ceq,NOD.INC(3))=1.d0
	    SFi(ceq)=NOD.VBC(2)
		ceq=ceq+1
	  CASE(77)
		SELECT CASE(NOD.CBC(2))
	      CASE(0)
	        SAij(ceq,NOD.INC(2))=1.d0
	        SFi(ceq)=NOD.VBC(1)
		    ceq=ceq+1
	        SAij(ceq,NOD.INC(3))=1.d0
	        SFi(ceq)=NOD.VBC(2)
		    ceq=ceq+1
	      CASE(1)
	        SAij(ceq,NOD.INC(2))=1.d0
	        SFi(ceq)=NOD.VBC(2)
		    ceq=ceq+1
	      CASE DEFAULT
	        WRITE(F_W,10301) NOD.NUM, NOD.CBC(2)
	        WRITE( *,10301) NOD.NUM, NOD.CBC(2)
			STOP
		END SELECT
	  CASE(76)
	    SAij(ceq,NOD.INC(1))=1.d0
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	    SAij(ceq,NOD.INC(2))=1.d0
	    SFi(ceq)=NOD.VBC(2)
		ceq=ceq+1
	  CASE(88)
		SELECT CASE(NOD.CBC(2))
	      CASE(0)
	        SAij(ceq,NOD.INC(1))=1.d0
	        SAij(ceq,NOD.INC(2))=-NOD.VBC(3)
	        SFi(ceq)=NOD.VBC(1)
		    ceq=ceq+1
	        SAij(ceq,NOD.INC(1))=1.d0
	        SAij(ceq,NOD.INC(3))=-NOD.VBC(4)
	        SFi(ceq)=NOD.VBC(2)
		    ceq=ceq+1
	      CASE(1)
	        SAij(ceq,NOD.INC(1))=1.d0
	        SAij(ceq,NOD.INC(2))=-NOD.VBC(2)
	        SFi(ceq)=NOD.VBC(1)
		    ceq=ceq+1
	      CASE DEFAULT
	        WRITE(F_W,10301) NOD.NUM, NOD.CBC(2)
	        WRITE( *,10301) NOD.NUM, NOD.CBC(2)
			STOP
		END SELECT
	  CASE(78)
	    SAij(ceq,NOD.INC(1))=1.d0
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	    SAij(ceq,NOD.INC(1))=1.d0
	    SAij(ceq,NOD.INC(3))=-NOD.VBC(3)
	    SFi(ceq)=NOD.VBC(2)
		ceq=ceq+1
	  CASE(87)
	    SAij(ceq,NOD.INC(3))=1.d0
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	    SAij(ceq,NOD.INC(1))=1.d0
	    SAij(ceq,NOD.INC(2))=-NOD.VBC(3)
	    SFi(ceq)=NOD.VBC(2)
		ceq=ceq+1
	  CASE(68)
	    SAij(ceq,NOD.INC(1))=1.d0
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	    SAij(ceq,NOD.INC(1))=1.d0
	    SAij(ceq,NOD.INC(3))=-NOD.VBC(3)
	    SFi(ceq)=NOD.VBC(2)
		ceq=ceq+1
	  CASE(86)
	    SAij(ceq,NOD.INC(1))=1.d0
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	    SAij(ceq,NOD.INC(1))=1.d0
	    SAij(ceq,NOD.INC(2))=-NOD.VBC(3)
	    SFi(ceq)=NOD.VBC(2)
C
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     NODOS INICIO CONTACTO
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
	  CASE(64,65,46,56)
	    SAij(ceq,NOD.INC(1))=1.d0
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	  CASE(74,75)
	    SAij(ceq,NOD.INC(2))=1.d0
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	  CASE(47,57)
	    SAij(ceq,NOD.INC(3))=1.d0
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	  CASE(84,85)
	    SAij(ceq,NOD.INC(1))=1.d0
	    SAij(ceq,NOD.INC(2))=-NOD.VBC(2)
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	  CASE(48)
	    SAij(ceq,NOD.INC(1))=1.d0
	    SAij(ceq,NOD.INC(3))=-NOD.VBC(2)
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	  CASE(58)
	    SAij(ceq,NOD.INC(1))=1.d0
	    SAij(ceq,NOD.INC(3))=-NOD.VBC(3)
	    SFi(ceq)=NOD.VBC(1)
		ceq=ceq+1
	  CASE(44,55)
		CONTINUE
	  CASE DEFAULT
	    WRITE(F_W,10301) NOD.NUM, NOD.CBC(1)
	    WRITE( *,10301) NOD.NUM, NOD.CBC(1)
	    STOP
	END SELECT
C
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C     CDC DELTA SEGUN CONTORNO (COD)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
	      IF(COD.EQ.1)THEN
			SELECT CASE(NOD.CBC(1))
C  	Modificado por: Diógenes Morales Sierra        Fecha:03/08/05
C   	Objeto de la modificación:
C	debe diferenciar si el nodo es esquina o no, antes solo contemplaba
c	el caso de esquina y por ello introducia más ecuaciones que incognitas
C	Codigo al que reemplaza:
c			  CASE(66,77,76,67,88,87,78,86,68)
c	      		SAij(ceq,NOD.INC(4))=1.d0
c				ceq=ceq+1
c	      		SAij(ceq,NOD.INC(5))=1.d0
c				ceq=ceq+1
			  CASE(77)
				SELECT CASE(NOD.CBC(2))
				CASE(0)
					SAij(ceq,NOD.INC(4))=1.d0
					ceq=ceq+1
					SAij(ceq,NOD.INC(5))=1.d0
					ceq=ceq+1
				CASE(1)
					SAij(ceq,NOD.INC(3))=1.d0
					ceq=ceq+1
				CASE DEFAULT
					WRITE(F_W,10301) NOD.NUM, NOD.CBC(2)
					WRITE( *,10301) NOD.NUM, NOD.CBC(2)
					STOP
				END SELECT
			  CASE(66,76,67,88,87,78,86,68)
	      		SAij(ceq,NOD.INC(4))=1.d0
				ceq=ceq+1
	      		SAij(ceq,NOD.INC(5))=1.d0
				ceq=ceq+1
			  CASE(64,65,74,75,84,85)
	      		SAij(ceq,NOD.INC(4))=1.d0
				ceq=ceq+1
			  CASE(46,56,47,57,48,58)
	      		SAij(ceq,NOD.INC(5))=1.d0
				ceq=ceq+1
			  CASE(44,55)
				CONTINUE
			  CASE DEFAULT
				WRITE(F_W,10301) NOD.NUM, NOD.CBC(1)
				WRITE( *,10301) NOD.NUM, NOD.CBC(1)
				STOP
			END SELECT
		  ELSE
		    IF(COD.EQ.2)THEN
			  CONTINUE
		    ELSE
			  WRITE(F_W,10302)
			  WRITE( *,10302) 
			  STOP
		    END IF
		  END IF
C
C
C
C
C
	IF(ceq.GT.N_MAX_EC)THEN
	  WRITE(F_W,10300) N_MAX_EC
	  WRITE( *,10300) N_MAX_EC
	  STOP
	END IF
C
C
C     FIN DE LA RUTINA 
C        
      RETURN
C
C     FORMATOS DE ESCRITURA. 
C                  
10300 FORMAT(/,2x,'ERROR 10300 - NODO_LIBRE_POT - Error Programa (#',
     @       i1,'#)')
10301 FORMAT(/,2x,'ERROR 10301 - NODO_LIBRE_POT - Nodo (#',i3,'#) con 
	@		 CdC (#',i1,'#) desconocida')
10302 FORMAT(/,2x,'ERROR 10300 - NODO_LIBRE_POT - Error Programa ')
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%252F14-1-4-lbr_POT.for%252F">14-1-4-lbr_POT.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>