26 lines
1010 B
Plaintext
26 lines
1010 B
Plaintext
|
|
||
|
|
! *** 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
|
||
|
|
|