Commit e1a43842 authored by aarograh's avatar aarograh
Browse files

Fix another bad FPE operation

parent e1f10a57

src/Geom_Line.f90

+1 −1
Original line number Diff line number Diff line
@@ -646,7 +646,7 @@ IMPURE ELEMENTAL FUNCTION isPerpendicular(line1,line2) RESULT(perp) 
  ELSEIF(line2%isVertical()) THEN

    perp = line1%isHorizontal()

  ELSE

    perp = (line1%slope() .APPROXEQA. -1.0_SRK/line2%slope())

    perp = (line1%slope()*line2%slope() .APPROXEQA. -1.0_SRK)

  ENDIF



ENDFUNCTION isPerpendicular