fsuper.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	fsuper (time, t, a, b, h1, h2, h3, h4, h5, h6, func, funcp)

Function/Subroutine Documentation

fsuper()

subroutine fsuper	(	real*8	time,
		real*8	t,
		real*8	a,
		real*8	b,
		real*8	h1,
		real*8	h2,
		real*8	h3,
		real*8	h4,
		real*8	h5,
		real*8	h6,
		real*8	func,
		real*8	funcp
	)

!
      implicit none
!
      real*8 time,t,a,b,h1,h2,h3,h4,h5,h6,fexm,fexp,func,funcp
!
      fexm=dexp(h1*t)
      fexp=dexp(-h2*t)
!
!     function
!
      func=(a+b*time)*(fexm*h3+fexp*h4)
     &    -b*(fexm*(t*h3-h5)+fexp*(t*h4+h6))
!
!     derivative of the function
!
      funcp=(a+b*time)*(fexm-fexp)-b*(fexm*(t-h3)-fexp*(t+h4))

!
      return