diff --git a/cube_to_target/remap.F90 b/cube_to_target/remap.F90 index 65b001c..9b6eed3 100644 --- a/cube_to_target/remap.F90 +++ b/cube_to_target/remap.F90 @@ -1093,7 +1093,8 @@ subroutine side_integral(& if (xseg(1).EQ.xseg(2))then slope = bignum - else if (abs(yseg(1) -yseg(2))