Commit 9c62e5c8 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Fix integer division truncation warning.

* By always dividing 2*j by 2*j when j > 0 or 1 if j == 0.
parent 3d735d7e
......@@ -312,7 +312,7 @@ CONTAINS
DOUBLE PRECISION :: ref_dst_data(npt)
#else
DOUBLE PRECISION, PARAMETER :: ref_dst_data(npt) &
= (/ ((DBLE(((2-j)*3+i+101)*((ABS(j)+j)/ABS(j+1)) &
= (/ ((DBLE(((2-j)*3+i+101)*((ABS(j)+j)/ABS(j+MAX(1,j))) &
& +(j-1-ABS(j-1))/2), &
& i=1,3 ),j=2,0,-1) /)
#endif
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment