initial

exact_solution_bt.for

@@ -0,0 +1,25 @@
+
+! *** 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
+