! *** generated by SAPFOR with version 2412 and build date: Apr 29 2025 22:44:14
! *** Enabled options ***:
! *** maximum shadow width is 50 percent
! *** generated by SAPFOR

!---------------------------------------------------------------------
!---------------------------------------------------------------------
!---------------------------------------------------------------------
!     this function returns the exact solution at point xi, eta, zeta  
!---------------------------------------------------------------------
      subroutine exact_solution_bt (xi, eta, zeta, dtemp)

      include 'header3d_bt.h'
      double precision ::  xi,eta,zeta,dtemp(5)
      integer ::  m
      do  m = 1,5
         dtemp(m) = ce(m,1) + xi * (ce(m,2) + xi * (ce(m,5) + xi * (ce(m
     &,8) + xi * ce(m,11)))) + eta * (ce(m,3) + eta * (ce(m,6) + eta * (
     &ce(m,9) + eta * ce(m,12)))) + zeta * (ce(m,4) + zeta * (ce(m,7) + 
     &zeta * (ce(m,10) + zeta * ce(m,13))))
      enddo  
      return 
      end