Need Written In Fortran Language

Heron's Formula The area, A, of a triangle with sides of length a, b, and c is: As S(s-a) (s-b) (s-c), where s = (a+b+c). Write, test, and execute a function that accepts the values of a, b, and c as parameters from a calling function, and then calculates the values of s and s(s a)(s - b)(s - c). If this quantity is positive, the function calculates A. If the quantity is negative, a, b, and c do not form a triangle, and the function should set A =-1 . The value of A should be returned by the function