N.I.M.R.O.D.  

parameterTransformation.f90

Go to the documentation of this file.
00001 !------------------------------------------------------------------------------
00002 ! N.I.M.R.O.D. - Normal approximation Inference in Models with Random
00003 !                effects based on Ordinary Differential equations
00004 !------------------------------------------------------------------------------
00005 !
00006 ! VERSION : 1.0
00007 !
00008 ! MODULE: parameterTransformation.f90 function transfo
00038 subroutine transfo(t,Y,NEQ)
00039     use WorkingSharedValues
00040     implicit none
00041     double precision, intent(in)::t
00042     INTEGER, intent(in)::  NEQ
00043     DOUBLE PRECISION,intent(in):: Y(NEQ)
00044 
00045 
00046       !
00047       ! *** This subroutine can be empty. It
00048       ! *** modifies parameters in function of Y and the time
00049       !
00050 
00051     return
00052 end subroutine transfo
00053 
00054 !------------------------------------------------------------------------------
00055 ! N.I.M.R.O.D. - Normal approximation Inference in Models with Random
00056 !                effects based on Ordinary Differential equations
00057 !------------------------------------------------------------------------------
00058 !
00059 ! VERSION : 1.0
00060 !
00061 ! MODULE: parameterTransformation.f90 function transfoFixedInTime
00088 subroutine transfoFixedInTime
00089     use WorkingSharedValues
00090     implicit none
00091 
00092       cl=dexp(b0(1))
00093       V0=dexp(b0(2))
00094       ka=dexp(b0(3))
00095 
00096       dcl=cl
00097       dV0=V0
00098       dka=ka
00099 
00100       dose0=dose(numpat1)
00101 
00102     return
00103 end subroutine transfoFixedInTime
00104