module calculos6

! objetivo: calcular solução interpolada

use dados
use calculos
use calculos1
use calculos2
use calculos3
use calculos4
use calculos5

implicit none

contains



!----------------------------------------------------------------------------------------------------------------------
!-- Cálculo das interpolações--------- --------------------------------------------------------------------------------
!----------------------------------------------------------------------------------------------------------------------

  subroutine numerico6
  
    
    !Cálculo do valor numérico contínuo com base no polinõmio interpolado
    
    XX0 = [0.5q0 - qsqrt(3.0q0)/6.0q0,qsqrt(2.0q0)/2.0q0];
    PP6 = AA*(XX0(1)**6*XX0(2)**6) + BB*(XX0(1)**6*XX0(2)**5)  + CC*(XX0(1)**5*XX0(2)**6) + DD*(XX0(1)**6*XX0(2)**4) + EE*(XX0(1)**5*XX0(2)**5) + FF*(XX0(1)**4*XX0(2)**6) + GG*(XX0(1)**6*XX0(2)**3) +     & 
          HH*(XX0(1)**5*XX0(2)**4) + II*(XX0(1)**4*XX0(2)**5)  + JJ*(XX0(1)**3*XX0(2)**6) + KK*(XX0(1)**6*XX0(2)**2) + LL*(XX0(1)**5*XX0(2)**3) + MM*(XX0(1)**4*XX0(2)**4) + NN*(XX0(1)**3*XX0(2)**5) +     &
          OO*(XX0(1)**2*XX0(2)**6) + PP*(XX0(1)**6*XX0(2))    + QQ*(XX0(1)**5*XX0(2)**2) + RR*(XX0(1)**4*XX0(2)**3) + SS*(XX0(1)**3*XX0(2)**4) + TT*(XX0(1)**2*XX0(2)**5) + UU*(XX0(1)*XX0(2)**6)   +       &
          VV*(XX0(1)**6)     + XX*(XX0(1)**5*XX0(2))    + YY*(XX0(1)**4*XX0(2)**2) + ZZ*(XX0(1)**3*XX0(2)**3) + A1*(XX0(1)**2*XX0(2)**4) + A2*(XX0(1)*XX0(2)**5)   + A3*(XX0(2)**6) +   &
          A4*(XX0(1)**5)     + A5*(XX0(1)**4*XX0(2))    + A6*(XX0(1)**3*XX0(2)**2) + A7*(XX0(1)**2*XX0(2)**3) + A8*(XX0(1)*XX0(2)**4)   + A9*(XX0(2)**5)     + A10*(XX0(1)**4)    +                         &
          A11*(XX0(1)**3*XX0(2))  + A12*(XX0(1)**2*XX0(2)**2) + A13*(XX0(1)*XX0(2)**3)  + A14*(XX0(2)**4)    + A15*(XX0(1)**3)    + A16*(XX0(1)**2*XX0(2))  + A17*(XX0(1)*XX0(2)**2)  +                     &
          A18*(XX0(2)**3)    + A19*(XX0(1)**2)     + A20*(XX0(1)*XX0(2))    + A21*(XX0(2)**2)    + A22*(XX0(1))      + A23*(XX0(2))      + A24;
    
  
  end subroutine numerico6
  
 !---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

end module calculos6