parcom.f90

Go to the documentation of this file.

c NLSL Version 1.9.0 beta 2/4/15
c----------------------------------------------------------------------
c                    =========================
c                          module PARCOM
c                    =========================
c
c     Common block containing a list of quantities associated with
c     each of the fitting parameters being varied (i.e. each parameter
c     in the x array for LMDER-family programs).
c
c     NOTE: this module uses nlsdim, so compile nlsdim.f90 first.
c
c prmax  : Vector containing upper limits for each parameter in x array
c prmin  : Vector containing lower limits for each parameter in x array
c prscl  : Vector containing desired absolute accuracy for each parameter
c          in x array
c xfdstp : Vector containing size of forward-difference step for each
c          parameter in x array
c xerr   : Vector containing uncertainty estimates for each parameter in x
c serval : List of values for the parameter being varied in a series
c wlb    : List of line-broadening widths for each spectrum in a series
c ibnd   : Flag for boundaries imposed on each parameter:
c          0=none, 1=minimum, 2=maximum, 3=both
c ixpr   : Index of each variable parameter appearing in the x array 
c          into the fepr array in module eprprm
c ixst   : Secondary index of each parameter appearing in the x array 
c          identifying which site or spectrum in a series the parameter
c          is associated with
c ixx    : Index of each parameter into the variable parameter array, x
c          (0 if parameter is not being varied)
c iser   : Index of the parameter being varied in a series of spectra
c nser   : Number of values given for parameter <iser> in the series
c          (should equal number of spectra in the series)
c nsite  : Number of sites defined for a given spectrum
c nprm   : Number of parameters being varied
c ptol   : Parameter convergence tolerance for 1-parameter searches
c pftol  : Function convergence tolerance for 1-parameter searches
c pbound : Search bound for 1-parameter searches
c srange : Allowed shifting range
c----------------------------------------------------------------------
c
       module parcom
       use nlsdim
       implicit none
c
c      double precision prmax,prmin,prscl,serval,xfdstp,xerr,fparm,
c     #                 ctol,ptol,pftol,pstep,pbound,srange
c      integer iparm,ibnd,ixpr,ixst,ixx,iser,nser,nsite,nprm,njcol,
c     #        nshift,noneg,ixp1p,ixs1p,mxpitr,itridg,iitrfl,jacobi,
c     #        output
c      logical mtxclc
c      character*9 tag
c
      double precision, target, save :: fparm(nfprm,mxsite)
c
      double precision, save :: prmax(mxvar),prmin(mxvar),
     #                prscl(mxvar),xfdstp(mxvar),xerr(mxjcol),
     #                serval(mxspc),ctol,ptol,pftol,pstep,pbound,
     #                srange
      integer, target, save :: iparm(niprm,mxsite)
c
      integer, save :: ixx(nfprm,mxsite),
     #                ibnd(mxvar),ixpr(mxvar),ixst(mxvar),
     #                iser,nser,nsite,nprm,njcol,nshift,noneg,itridg,
     #                iitrfl,jacobi,ixp1p,ixs1p,mxpitr,output
      logical, save :: mtxclc
      character*9, save :: tag(mxjcol)
c
      end module parcom