Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Question!


Name: Partial Code
Title:
  Wtf
Question:
b 4(a) solution by <STUDENT NAME>
program lab4_a
implicit none
integer ::n
real :: L,R
interface

end interface
print *, "lab 4(a) solution by <STUDENT NAME>"
print *, "Enter left and right ends of interval and number of subintervals"
read *, L,R,n
call MeshCalcs(testFun,L,R,n)
contains
subroutine MeshCalcs(F,a,b,n)
integer, intent(in) :: n
real, intent(in) :: a,b
real :: del,fVal,xVal
integer :: lt=0,gr=0,i
real ::F,sum=0,average

print "('Average is: ',f10.2)",average
do i=0,n
end do
print "('number of function values greater than average =',i4)",gr
print "('number of function values less than average =',i4)",lt

real function testFun(
Answers: