R. Ghosh, 1998, 2010

The COMMON blocks listed here are used within FITFUN and contain values which might be useful to modellers. It is clear that modification of any of these COMMONs outside FITFUN may have disastrous consequences for the integrity of the package - please treat the contents in a "read-only" fashion. The only control options allowed concern re-entering fitfun:

Re-entering FITFUN

      COMMON/FCLOSE/ICLOSE,ISTART

ICLOSE   Integer     default value 1
                     if set to 0 then the graphics channels remain open
                     and the calling program is resposible for the
                     CALL PGNEND(2) to close any hardcopy file correctly.

ISTART   Integer     default value 0
                     if set to 1 then the parameter file "pnam.par" is
                     not reread.  Note problems will arise if
                     the initialisations are skipped first time! 
 

         PARAMETER     v5.4        v6.0
         MAXPAR         20          200


5.4      COMMON/TITLES/NAMES(20),TX,TY
6.0      COMMON/TITLES/NAMES(40),TX,TY
NAMES   character*20 parameter names initialised by calling program
TX      character*20 x-scale name initialised by calling program
TY      character*20 y-scale name initialised by calling program

      COMMON/TITLEP/NPARAS
NPARAS  integer      number of parameters named

      COMMON/TITLEX/EXTRAT
EXTRAT  character*50 extra title (T command)


      COMMON/FUNCTN/NPAR,PARM(MAXPAR),STEP(MAXPAR),SCALE(MAXPAR)
NPAR    integer      number of parameters used
PARM    real         parameter values
STEP    real         initial step multiplier (0 no fit)
SCALE   real         actual fitted variable (multiplier)

      COMMON/ERRORC/SDEV(MAXPAR),SDEW(MAXPAR),COVAR(MAXPAR*MAXPAR),
     1COVAW(MAXPAR*MAXPAR),IPAR
SDEV    real         % error in parameter at minimum
SDEW    real         error in scaled parameter
COVAR   real         normalised covariance matrix
COVAW   real
IPAR    integer      number of fitted parameters

      COMMON/CHICHI/RF,RFOLD,CHI,CHIOLD,PROB,NFREE,NFITNO
RF      real         fit R factor
RFOLD   real         fit R factor from previous fit
CHI     real         fit CHI factor 
CHIOLD  real         fit CHI factor from previous fit 
PROB    real         probability of fitting
NFREE   integer      degrees of freedom
NFITNO  integer      fit attempt number

      COMMON/CNSTRN/INDEX(20)
INDEX   integer      maps parameter to fitted variable


      COMMON/TIN/INTTY,IOTTY,MNO,IERT,VARIN(10)
INTTY   integer      READ  unit for tty input
IOTTY   integer      WRITE unit for tty output
MNO     integer      number of reals read-in to VARIN
IERT    integer      error in read-in
VARIN   integer      real variables in last command input

      COMMON/TINC/PNAME,RET(80)
PNAME   character*4  name of program
RET     character*1  last command input line 


      COMMON/FITLIM/XLIMS(6),NSET,MINF,MAXF,NFIT
XLIMS   real         pairs of x limits for fitting
NSET    integer      number of regions to be fitted
MINF    integer
MAXF    integer
NFIT    integer

      COMMON/PLTLIM/XMIN,XMAX,YMIN,YMAX,XSCALE(2),YSCALE(2)
XMIN    real         x-data minimum
XMAX    real         x-data maximum
YMIN    real         y-data minimum
YMAX    real         y-data maximum
XSCALE  real         plotting x min, max
YSCALE  real         plotting y min, max

      COMMON/PLTLIC/NTX,NTY,NTEX
NTX     character*20 x-scale title for plot 
NTY     character*20 y-scale title
NTEX    character*50 general title

      COMMON/EXTPLT/XPL(200),YPL(200),WERR(200),WRK(200),WRK1(200),NEXRA
XPL     real         extra x points for plotting extension of calc points
YPL     real         extra calculated y points for plotting
WERR    real         
WRK     real
WRK1    real
NEXTRA  integer       number of extra points for plotting


      COMMON/FLAGS/DATSET,PARSET,NEWDAT,PLTSET
DATSET  logical      true if data has been read in
PARSET  logical      true if parameters have been initialised
NEWDAT  logical      true if new data read in (reset chi etc)
PLTSET  logical      true if plot already on screen

      PARAMETER (LIM=2100)

      COMMON/REDITC/XOBS(LIM),YOBS(LIM),YROBS(LIM),YER(LIM),NDIN
XOBS    real         x read in
YOBS    real         y read in
YROBS   real         y-error read in
YER     real     
NDIN    integer      number of data read in

      COMMON/OBSDAT/NPNT,XUSE(LIM),YUSE(LIM),YUSR(LIM)
NPNT    integer      number of points selected for fit
XUSE    real         x values for used set of points
YUSE    real         y values for used set of points
YUSR    real         y-error  for used set of points

      COMMON/CALDAT/YCALC(LIM),F(LIM)
YCALC   real         calculated values (in units of y)
F       real         derived difference (perhaps weighted)
                     to be minimised by fitfun



scrolling screen device
      COMMON/TEKENV/TEKTRO
TEKTRO  logical     default false
                    true if screen has to be paged within fitfun

Fitfun version 7.x includes additional commons of interest

Fourth column read in

     COMMON/FLAGS4/INCOL4 INCOL4 (logical) set to .TRUE. - expect 4 column data

     COMMON/REDIT4/OBS4(MAXDAT)  (real) contains concatenated 4th column data from read-in routine

     COMMON/OBSDA4/USE4(MAXDAT)  (real) selected 4th column data for calculation