API tools faq
paste
Advertisement
franterminator

result.f95

franterminator
Jun 16th, 2017
69
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Fortran 6.35 KB | None | 0 0
raw download clone embed print report
  1. !< Crea el head y el principio del body del html de resultados
  2. ! para una mejor visualizacion del html, se recomienda crearlo7
  3. ! en la carpeta result. Por defecto el programa lo hara asi.
  4. subroutine createHTML(name)
  5.     character(len=*),intent(in):: name
  6.  
  7.     character(len=50):: resultsFile,configFile
  8.     COMMON resultsFile,configFile
  9.  
  10.  
  11.     open(unit=12,file=resultsFile)
  12.     write(12,'(A,$)') '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"'
  13.     write(12,*) '"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">'
  14.     write(12,*) '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">'
  15.     write(12,*) '<head>'
  16.     write(12,'(5X,3A)') '<title>',name,'</title>'
  17.     write(12,'(5X,A)') '<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />'
  18.     write(12,'(5X,A)') '<meta name="description" content="" />'
  19.     write(12,'(5X,A)') '<meta name="keywords" content="" />'
  20.     write(12,'(5X,A)') '<meta name="robots" content="index,follow" />'
  21.     write(12,'(5X,A)') '<link rel="stylesheet" type="text/css" href="./css/style.css" />'
  22.     write(12,'(5X,A)') '<script src="https://ajax.aspnetcdn.com/ajax/jQuery/jquery-3.2.1.min.js">'
  23.     write(12,'(5X,A)') '</script>'
  24.     write(12,'(5X,A)') '<script src="https://cdn.jsdelivr.net/clipboard.js/1.6.0/clipboard.min.js">'
  25.     write(12,'(5X,A)') '</script>'
  26.     write(12,*) '</head>'
  27.     write(12,*) '<body>'
  28.     write(12,'(5X,A)') '<div class="row">'
  29.     write(12,'(10X,A)') '<div class="header">'
  30.     write(12,'(15X,A)') '<h1> Resultados del programa </h1>'
  31.     write(12,'(15X,A)') '<button id="bNumerico">Resultados Numericos</button>'
  32.     write(12,'(15X,A)') '<button id="bAnalitico">Resultados Analiticos</button>'
  33.     write(12,'(10X,A)') '</div>'
  34.     write(12,'(5X,A)') '</div>'
  35.     close(12)
  36. end subroutine
  37.  
  38. !< Escribe en la table de materiales en el html de resultados
  39. subroutine exportMaterial(Young,poisson)
  40.     real*8,intent(in):: Young,poisson
  41.     character(len=50):: resultsFile,configFile
  42.     COMMON resultsFile,configFile
  43.  
  44.     open(unit=12,file=resultsFile,status='old',position="append")
  45.     write(12,'(5X,A)') '<div class="row">'
  46.     write(12,'(10X,A)') '<div class="box-item">'
  47.     write(12,'(15X,A)') '<header> Material </header>'
  48.     write(12,'(15X,A)') '<p> El material empleado es :  </p>'
  49.     write(12,'(15X,A)') '<table>'
  50.     write(12,'(20X,A,F0.3,A)') '<tr><td>E = ',Young,' MPa</td></tr>'
  51.     write(12,'(20X,A,F4.3,A)') '<tr><td>v = ',poisson,'</td></tr>'
  52.     write(12,'(15X,A)') '</table>'
  53.     close(12)
  54. end subroutine
  55.  
  56. !< Escribe la table de datos de placa en el html de resultados
  57. subroutine exportPlaca(largo,ancho,espesor)
  58.     real*8,intent(in):: largo,ancho,espesor
  59.     character(len=50):: resultsFile,configFile
  60.     COMMON resultsFile,configFile
  61.  
  62.     open(unit=12,file=resultsFile,status='old',position="append")
  63.     write(12,'(15X,A)') '<header> Placa </header>'
  64.     write(12,'(15X,A)') '<p>Las medidas de la placa son:</p>'
  65.     write(12,'(15X,A)') '<table>'
  66.     write(12,'(20X,A,F6.3,A)') '<tr><td>Largo = ',largo,' m</td></tr>'
  67.     write(12,'(20X,A,F6.3,A)') '<tr><td>Ancho = ',ancho,' m</td></tr>'
  68.     write(12,'(20X,A,F4.3,A)') '<tr><td>Espesor = ',espesor,' m</td></tr>'
  69.     write(12,'(15X,A)') '</table>'
  70.     write(12,'(10X,A)') '</div>'
  71.     close(12)
  72. end subroutine
  73.  
  74. !< Escribe la table de resultados numericos en el html de resultados
  75. subroutine resNumericos(ancho,largo,fMatriz,n,m)
  76.     real*8,dimension(n,m),intent(in):: fMatriz
  77.     real*8,intent(in):: ancho,largo
  78.     integer,intent(in):: n,m
  79.  
  80.     real*8:: deltaX, deltaY
  81.  
  82.     character(len=50):: resultsFile,configFile
  83.     COMMON resultsFile,configFile
  84.  
  85.     deltaX = ancho / (n + 1)
  86.     deltaY = largo / (m + 1)
  87.  
  88.     open(unit=12,file=resultsFile,status='old',position="append")
  89.     write(12,'(10X,A)') '<div class="box-item" id="resultados">'
  90.     write(12,'(15X,A)') '<header id="azul"> Resultados </header>'
  91.     write(12,'(15X,A)') '<table id="tNumerico">'
  92.     write(12,'(20X,A)') '<tr class="tr-h">'
  93.     write(12,'(25X,A,I5,A)') '<td rowspan="',m+2,'"> Y </th>'
  94.     write(12,'(20X,A)') '</tr>'
  95.  
  96.     do i=n,1,-1
  97.         write(12,'(20X,A)') '<tr>'
  98.         write(12,'(25X,A,F0.3,A)') '<td class="td-h">',i*deltaX,'</td>'
  99.         write(12,'(25X,*(A,f0.4,A))') ('<td>',fMatriz(i,j),'</td>',j=1,m)
  100.         write(12,'(20X,A)') '</tr>'
  101.     end do
  102.  
  103.     write(12,'(20X,A)') '<tr class="tr-h">'
  104.     write(12,'(25X,A)') '<td>/</td>'
  105.     write(12,'(25X,*(A,F0.3,A))') ('<td>',j*deltaY,'</td>',j=1,m)
  106.     write(12,'(20X,A)') '</tr>'
  107.     write(12,'(20X,A)') '<tr class="tr-h">'
  108.     write(12,'(25X,A,I4,A)') '<td>O</td><td colspan="',n+1,'">X</td>'
  109.     write(12,'(20X,A)') '</tr>'
  110.     write(12,'(15X,A)')'</table>'
  111.     close(12)
  112. end subroutine
  113.  
  114. !< Escribe la table de resultados analiticos en el html de resultados
  115. subroutine resAnaliticos(ancho,largo,navier,n,m)
  116.     real*8,dimension(n,m),intent(in):: navier
  117.     real*8,intent(in):: ancho,largo
  118.     integer,intent(in):: n,m
  119.  
  120.     real*8:: deltaX, deltaY
  121.  
  122.     character(len=50):: resultsFile,configFile
  123.     COMMON resultsFile,configFile
  124.  
  125.     deltaX = ancho / (n + 1)
  126.     deltaY = largo / (m + 1)
  127.  
  128.     open(unit=12,file=resultsFile,status='old',position="append")
  129.     write(12,'(15X,A)') '<table id="tAnalitico">'
  130.     write(12,'(20X,A)') '<tr class="tr-h">'
  131.     write(12,'(25X,A,I5,A)') '<td rowspan="',m+2,'"> Y </th>'
  132.     write(12,'(20X,A)') '</tr>'
  133.  
  134.     do i=n,1,-1
  135.         write(12,'(20X,A)') '<tr>'
  136.         write(12,'(25X,A,F0.3,A)') '<td class="td-h">',i*deltaX,'</td>'
  137.         write(12,'(25X,*(A,f0.4,A))') ('<td>',navier(i,j),'</td>',j=1,m)
  138.         write(12,'(20X,A)') '</tr>'
  139.     end do
  140.  
  141.     write(12,'(20X,A)') '<tr class="tr-h">'
  142.     write(12,'(25X,A)') '<td>/</td>'
  143.     write(12,'(25X,*(A,F0.3,A))') ('<td>',j*deltaY,'</td>',j=1,m)
  144.     write(12,'(20X,A)') '</tr>'
  145.     write(12,'(20X,A)') '<tr class="tr-h">'
  146.     write(12,'(25X,A,I4,A)') '<td>O</td><td colspan="',n+1,'">X</td>'
  147.     write(12,'(20X,A)') '</tr>'
  148.     write(12,'(15X,A)')'</table>'
  149.  
  150.     write(12,'(10X,A)') '<button id="copyButton" data-clipboard-action="copy" data-clipboard-target=".active">'
  151.     write(12,'(15X,A)') 'Copia la tabla</button>'
  152.     write(12,'(10X,A)') '</div>'
  153.     write(12,'(5X,A)') '</div>'
  154.     write(12,'(5X,A)') '<script src="js/buttons.js"></script>'
  155.     write(12,*) '</body>'
  156.     write(12,*) '</html>'
  157.     close(12)
  158. end subroutine
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!