Please help to do this subroutine/function, on Fortran. Thank you for commenting the script.

Exercise 3* Write a script (in Fortran) that code this function : 3 inputs H1 output Inside this main function (7) , there is 2 other little functions that have to been called to get the result. A (X,Y, Z) = Bx,y [exp (ax,y Z)] Bx, y = 2cos (2X) ax,y = 5. [sin (X+Y)]