*must be accurate for fortran90 please & thank you*

Computer Science 0411WA 2018 Laboratory Exercise 4 Due: see myCourseLink Arrays, subroutines, modules Submit all parts in a single Word file using the template FOR LAB EXERCISE SET FOUR on myCourseLink Submission instructions are at the start of the Word template file PART I(a) Provide your selections to the following using the form provided as part of the lab submission template FOR LAB EXERCISE SET FOUR posted on myCourseLink sleet% cat e7.190 ! The following progran generates a table of ! values for points (x,y) on a line through (x1,y) and (x2,y2) ! The subroutine line returna the slope and y intercept ! for the line PROGRAM P7 IMPLICIT NONE INTEGER :1-0 REAL::x1-1.0,y1-1.0,x2-4.0,y2-9.0 REAL :: del-.5, x0-1.0,x,y REAL::a1, intercept call line(x1,y1,x2,y21 print (1x,2A10)"."xy do i-1,10 2. print "(1x,2f 10.2)", x x+del x, end do 4, line(x1 , y 1,x2,y2,a,b) real, intent (I):: x1,y1,x2,y2 real, 5 a, b m-(y2-yl)/(x2-x1) end subroutine line END PROGRAM PT sleet% f90 e7.f90