Source module last modified on Mon, 24 Apr 2006, 17:32;
HTML image of Fortran source automatically generated by
for2html on Mon, 29 May 2006, 15:06.
#//////////////////////////////////////////////////////////////////////
#//// $Id: exci.inc,v 1.5 2006/04/24 15:32:17 saroun Exp $
#////
#//// variables shared with EXCI, R E S T R A X 4.81
#////
#
# Contains:
# =========
# Monte Carlo ray-tracing results:
# QOM(1:4,j),PQOM(j) .... value of (Q,E) and weight for j-th event
# IQOM(j) .... the index of data set corresponding to given j-th event.
# NQOM(k) .... partitioning of the QOM, PQOM ... arrays, i.e. the number
# of events stored for the k-th data set is NQOM(k)-NQOM(k-1).
# CHKQOM ... check sum generated each time QOM array is changed
#
# Instrument setting:
# QOM0(1:4,k) .... Spectrometer position (Q,E) for k-th data set
#
# Model parameters:
# PARAM(MPAR) ... values of adjustable model variables
# PARNAME(MPAR) ... names of adjustable model variables (>= 10 characters)
# WEN(6) ... energy widths of dispersion branches.
# RESTRAX uses different convolution methods for the WEN=0 and WEN>0 cases
# FIXPARAM(MPAR) ... indicates which variables are fixed (=0) or free (>0)
# NTERM ... number of adjustable model parameters
# NBR ... number of dispersion branches
# EXCREAD ... how to read file with model parameters: (0) never (1) when needed (2) always
# EXCUNIT ... set to unit number when the file with model parameters is open
#
#//////////////////////////////////////////////////////////////////////
#/// NOTICE: 'const.inc' must precede to get dimension constants
real*4 qom(4,mqom),pqom(mqom),qom0(4,mdat)
integer*4 nqom(0:mdat),iqom(mqom),ndatqom
real*8 param(mpar),wen(6),chkqom
integer*4 fixparam(mpar),nterm,nbr,excread,excunit
character*128 phonname,phontitle
character*16 parname(mpar)
common /QOMEGA/ qom0,qom,pqom,iqom,nqom,ndatqom,chkqom
common /MODEL/ nterm,nbr,excread,excunit,fixparam,wen,param,
& phonname,phontitle,parname