Return to sf_lookup.inc CVS log | Up to [HallC] / simc_semi |
File: [HallC] / simc_semi / sf_lookup.inc
(download)
Revision: 1.1.1.1 (vendor branch), Fri Apr 23 17:13:18 2004 UTC (20 years, 4 months ago) by gaskelld Branch: hallc, MAIN CVS Tags: start, baryon, NoPoltar, HEAD Changes since 1.1: +0 -0 lines simc_semi sources |
C Spectral Function lookup table for reading in Benhar's spectral functions. integer*4 nPmmax !max number of Pm bins in SF parameter(nPmmax=100) integer*4 nEmmax !max number of Em bins in SF parameter(nEmmax=200) integer*4 numPm,numEm !number of Pm bins, Em bins real*8 Pmval(nPmmax),dPm(nPmmax) !Pm value/width for each Pm bin real*8 Emval(nEmmax),dEm(nEmmax) !Em value/width for each Em bin real*8 sfval(nEmmax,nPmmax) !spectral function at Em,Pm real*8 sfnorm(nPmmax) !Integral over Em at each Pm. real*8 sftotnorm !Total normalization. common /sftable/ Pmval,dPm,Emval,dEm,sfval,sfnorm,sftotnorm,numPm,numEm
Analyzer/Replay: Mark Jones, Documents: Stephen Wood |
Powered by ViewCVS 0.9.2-cvsgraph-1.4.0 |