使用fortran进行体积计算

Question

我正在尝试计算此任意形状的体积。 我正在尝试使用数组；

REAL, DIMENSION(2) :: A,B,C,D,E
REAL :: Area
A = (/ -3, -2 /)
B = (/ -1,4 /)
C =  (/ 6,1 /)
D = (/ 3,10 /)
E = (/ -4,9 /)
Area =  abs((A(1)*B(2)+B(1)*C(2)+C(1)*D(2)+D(1)*E(2)+E(1)*A(2))-(B(1)*A(2)+C(1)*B(2)+D(1)*C(2)+E(1)*D(2)+E(2)*A(1)))/2
Print*,Area
stop
end

这是正确的方法吗？在我看来，我喜欢大量的基础数学。 任何建议都是完美的！