easier to understand
This commit is contained in:
parent
5f01b076d2
commit
e10701b32a
|
@ -224,9 +224,9 @@ pure function permutationStar111(point) result(qPt)
|
|||
|
||||
real(pReal), dimension(3,6) :: temp
|
||||
|
||||
temp = 0.0_pReal
|
||||
temp(:,1) = [point(1), point(2), 1.0_pReal - point(1) - point(2)]
|
||||
temp(:,2) = [point(1), 1.0_pReal - point(1) - point(2), point(2)]
|
||||
temp(:,3) = 0.0_pReal
|
||||
temp(:,4) = [point(2), 1.0_pReal - point(1) - point(2), point(1)]
|
||||
temp(:,5) = [1.0_pReal - point(1) - point(2), point(2), point(1)]
|
||||
temp(:,6) = [1.0_pReal - point(1) - point(2), point(1), point(2)]
|
||||
|
|
Loading…
Reference in New Issue