A: Set q the point on the element
B: Set nq the unit outward normal to the element at q
C: Compute vp.nq
D: Compute r
E: Compute r, r2
F: Compute r3 (in the 3D case)
G: Compute [¶r/ ¶nq] via (22)
H: Compute [¶r/ ¶vp] via (23)
I: Compute
[¶r/¶nq] *[¶r/ ¶vp]
J: Compute [¶2 r/ ¶vp ¶nq]
via (24)
Apart from operations E and M, each operation can be directly costed in terms of floating-point operations. Operation E computes a square root. In the subroutines L2LC, L3LC and L3ALC the square root function need to be provided as an external functions with the identifier FNSQRT. Within this the standard Fortran square root function or a user-defined alternative may be employed.