SUBROUTINE ANDRA( A, B, X1, X2, NANTAL) ! LÖS EKVATIONEN X^2 + A*X + B = 0 IMPLICIT NONE REAL :: A, B, X1, X2 INTEGER :: NANTAL ! Antalet reella rötter REAL :: DISK ! Diskriminanten DISK = A*A - 4.0*B IF (DISK > 0.0 ) THEN DISK = SQRT(DISK) X1 = 0.5*(-A + DISK) X2 = 0.5*(-A - DISK) NANTAL = 2 RETURN ELSE IF (DISK == 0.0 ) THEN X1 = -0.5*A NANTAL = 1 RETURN ELSE NANTAL = 0 RETURN END IF END