Skip to content

Commit 219d7cf

Browse files
committed
FDS Source: fix indent
1 parent 5d99efc commit 219d7cf

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Source/func.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9296,7 +9296,7 @@ REAL(EB) FUNCTION CIRCLE_CELL_INTERSECTION_AREA(X0,Y0,RAD,X1,X2,Y1,Y2)
92969296

92979297
SELECT CASE(FC)
92989298
! No corners either full area or circle minus one or more chords
9299-
CASE (0)
9299+
CASE (0)
93009300
! First four cases are more than half the cirlce outside the rectangle.
93019301
! Can only have one edge where this is the case without having a corner inside. This edge makes a chord.
93029302
! Intersection area is the circle area minus the area of the chord.

0 commit comments

Comments
 (0)