Почему я получаю такие ошибки, как оператор Unclassified at 1 и неожиданный мусор и т. д. в Fortran?

Я только начинаю работать с Fortran и пытался написать базовую программу, но получаю массу ошибок, которых не понимаю. Пожалуйста, проверьте следующее. Я ссылался на другие подобные вопросы, но безрезультатно.

    program roots

    real a,b,c
    real disc
    real root1,root2

    write (*,*) , "Please provide a, b and c"
    read (*,*) ,a,b,c
    disc = b**2 -4.0*a*c

    if disc < 0
    print *,"No real roots"

    else if disc = 0
    print *,"Equal roots"
    root1 = -b/2
    print *,"root is :" ,root1

    else 
    print *,"2 real roots"
    2*root1 = -b + sqrt(b**2 - 4.0*a*c)
    2*root2 = -b - sqrt(b**2 - 4.0*a*c)
    print *,"root 1 is:" , root1
    print *,"root 2 is:" , root2

    end roots

ошибки:

Error: Unclassifiable statement at (1)

Error: Unexpected junk after ELSE statement at (1)

Error: Unexpected ELSE statement at (1)

Error: Non-numeric character in statement label at (1)

Error: Non-numeric character in statement label at (1)

Error: Expecting END PROGRAM statement at (1)