DOUBLE PRECISION FUNCTION elsofoku(a, b)
!Elofeltetel: a nem nulla
! IMPLICIT NONE
  DOUBLE PRECISION :: a, b!Az egyutthatok
 elsofoku=-1*b/a
 RETURN 
 STOP
 END FUNCTION elsofoku