PROGRAM HUVUD ! Huvudprogram för lösning av andragradsekvationen ! X^2 + B*X + C = 0 IMPLICIT NONE REAL :: B, C, ROT1, ROT2 INTEGER :: N WRITE(*,*) " Ge koefficienterna B och C" READ(*,*) B, C CALL ANDRA( B, C, ROT1, ROT2, N) IF ( N == 2 ) THEN WRITE(*,*) " De två rötterna är ", ROT1, ROT2 ELSE IF ( N == 1) THEN WRITE(*,*) " Den enda roten är ", ROT1 ELSE WRITE(*,*) " Inga reella rötter " END IF STOP END