задача на фотране 90

[Asya2017]

Здравствуйте
помогите ,пожалуйста, довести задачу до конца или хотя бы что указать, что нужно еще сделать,чтобы она заработала правильно.
формулировка задачи: три квадратных уравнения ax*2+bx+c=0 ,
bx*2+cx+a= 0,cx*2+ax+b= 0 определяются тремя коэффициентами a,b,c
(вводятся из файла). Определить, сколько уравнений имеют вещественные корни.
Указание.
Для решения задачи следует определить функцию трех переменных,
позволяющую определить наличие вещественных корней в квадратном уравнении.

И вот мой текущий КОД:
program lab8
implicit none
real :: a, b, c, x1, x2, dd
external dd
real, dimension(1:2) :: x

open(unit=1,file='lab8.in')
open(unit=2,file='lab8.out')


read(1,*) a, b, c

print*,dd(a, b, c)
!write(2,*) x1, x2


print*,dd(b, c, a)
!write(2,*) x1, x2

print*,dd(c, a, b)
!write(2,*) x1, x2

!close(1)
!close(2)

end program lab8


real function dd(a, b, c),result (z)
real, dimension :: x(1:2), z(1:2) a, b, c, d

d=b**2-4*a*c

if (d > 0) then
x1=(-b+sqrt(d))/(2*a)
x2=(-b-sqrt(d))/(2*a)
print*, x1, x2

else if (d == 0) then
x1 = -b / (2 * a)
print*, x1,x2=x1

else if(d < 0) then
! print*, 'net kornei'
x1 = 1.e-10, x2=x1
end if

z(1)= x1
z(2)=x2

return
end function dd

[WorldMaster]

А что значит неправильно??

[Sciv]

Сообщение от Asya2017

Определить, сколько уравнений имеют вещественные корни.

Это точно правильное задание?