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

Это показывает следующую ошибку:

d = sqrt (bsq \ xE2 \ x80 \ x93 ac4) 1 Ошибка: синтаксическая ошибка в списке аргументов в (1)

program quadratic
implicit none 
real :: a, b, c, root1, root2
real :: bsq, ac4, d 
print *, 'Please enter the coefficients a, b, and c as real numbers'
read *, a, b, c
bsq = b*b
ac4 = 4*a*c 
if ( bsq < ac4) then
d = sqrt(bsq – ac4)
root1 = (-b+d)/(2*a)
root2 = (-b+d)/(2*a)
print *, 'The real roots are ', root1, root2
else if ( root1==root2) then
root1 = root2
print *, 'There is one real root which is ', root1
else
print *, 'There are no real roots'
end if
end program quadratic