include/exci.inc

Fortran project EXCI, source module include/exci.inc.

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