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

algorithmAndthreshold.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 : 2.0
00007 !
00008 ! MODULE: algorithmAndthreshold.f90
00009 !------------------------------------------------------------------------------
00010 !------------------------------------------------------------------------------
00013 module ToleranceThreshold
00014     ! Algorithm Possibilities
00015     !Exclusion of patients with troubles in computations
00016     logical,parameter:: withexclusionUser=.true.
00017     !Exhaustive line search : take more time but parameter space is much more explored.
00018     logical,parameter:: subsequentSearpas=.true.
00019     !Do not estimate error measurment // Only evaluate
00020     logical,parameter:: estimationMeasurmentError=.true.
00021 
00022     ! line search searpas
00023     double precision, parameter:: seuilSEARPASOK=1.0D0
00024     double precision, parameter::seuilSEARPASRDM=1.0D0
00025     integer, parameter :: maxsubsequentSEARPAS=5
00026     double precision, parameter:: searpas_th=1.d-6
00027     double precision, parameter:: subsequentsearpas_th=1.d-7
00028 
00029     ! in ode.f90
00030     double precision, parameter:: ODESolveurATOL=1.d-10
00031     ! for inflate
00032     double precision, parameter:: gonfle_da=0.01D0
00033     double precision, parameter:: gonfle_ga=0.01D0
00034     double precision, parameter:: gonfle_dm=5.D0
00035     double precision, parameter:: gonfle_eps=1.d-7
00036     ! in marquardt.f90
00037     double precision, parameter:: marquardt_ca=1.d-6
00038     double precision, parameter:: marquardt_cb=1.d-6
00039     double precision, parameter:: marquardt_rdm=1.d-6
00040     ! for dsinv
00041     double precision, parameter:: dsinv_ep=1.d-20
00042     ! in funcpa.f90
00043     integer, parameter :: funcpa_ntest=5
00044     integer, parameter ::funcpa_nimax=50
00045     double precision, parameter:: funcpa_marcqThrehold=5.D0
00046     ! in funcpa.f90 FAILURE DEFINITION
00047     double precision, parameter :: absoluteRequestedToleranceOPT = 0.1D0
00048     double precision, parameter :: absoluteRequestedToleranceODE = 0.1D0
00049     double precision, parameter :: absoluteRequestedToleranceAGQ = 0.1D0
00050     ! in likelihood.f90
00051     integer, parameter :: likelihood_MINPTS=30
00052     integer, parameter :: likelihood_MAXPTS=500
00053     double precision, parameter :: likelihood_EPSABS=1.d-10
00054     ! in scores.f90
00055     integer, parameter :: scores_MINPTS=30
00056     integer, parameter :: scores_MAXPTS=500
00057     double precision, parameter :: scores_EPSREL=1.d-10
00058    ! Algorithm restart
00059    integer, parameter :: maxrelance=500
00060    double precision, parameter :: seuilStuckca=1d-10
00061    double precision, parameter :: seuilStuckcb=1d-3
00062    double precision, parameter :: nbiterationMIN=50
00063    ! SWitch to Marquardt
00064    double precision, parameter :: switchMarquardtCa=1d-9
00065    double precision, parameter :: switchMarquardtCb=1d-3
00066 
00067 end module ToleranceThreshold