favg Function

private function favg(fl, fr, fnewl, fnewr)

Construct time and space-centered quantities (should use actual bakdif and fexpr values?)

Arguments

Type IntentOptional Attributes Name
complex, intent(in) :: fl
complex, intent(in) :: fr
complex, intent(in) :: fnewl
complex, intent(in) :: fnewr

Return Value complex


Contents

Source Code

favg

Source Code

  complex function favg (fl, fr, fnewl, fnewr)
    complex, intent (in) :: fl, fr, fnewl, fnewr
    favg = 0.25*(fnewl+fnewr+fl+fr)
  end function favg