fdot Function

private pure function fdot(fl, fr, fnewl, fnewr, dtinv)

FIXME : Add documentation

Arguments

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

Return Value complex


Contents

Source Code

fdot

Source Code

  pure complex function fdot (fl, fr, fnewl, fnewr, dtinv)
    complex, intent (in) :: fl, fr, fnewl, fnewr
    real, intent (in) :: dtinv
    fdot = 0.5*(fnewl+fnewr-fl-fr)*dtinv
  end function fdot