diff options
Diffstat (limited to '29784-t')
| -rw-r--r-- | 29784-t/29784-t.tex | 7804 | ||||
| -rw-r--r-- | 29784-t/images/014a.eepic | 82 | ||||
| -rw-r--r-- | 29784-t/images/026a.eepic | 403 | ||||
| -rw-r--r-- | 29784-t/images/027a.eepic | 557 | ||||
| -rw-r--r-- | 29784-t/images/028a.eepic | 407 | ||||
| -rw-r--r-- | 29784-t/images/030a.eepic | 501 | ||||
| -rw-r--r-- | 29784-t/images/031a.eepic | 429 | ||||
| -rw-r--r-- | 29784-t/images/032a.eepic | 299 | ||||
| -rw-r--r-- | 29784-t/images/057a.eepic | 102 | ||||
| -rw-r--r-- | 29784-t/images/sources/014a.xp | 84 | ||||
| -rw-r--r-- | 29784-t/images/sources/026a.xp | 176 | ||||
| -rw-r--r-- | 29784-t/images/sources/027a.xp | 191 | ||||
| -rw-r--r-- | 29784-t/images/sources/028a.xp | 166 | ||||
| -rw-r--r-- | 29784-t/images/sources/030a.xp | 185 | ||||
| -rw-r--r-- | 29784-t/images/sources/031a.xp | 188 | ||||
| -rw-r--r-- | 29784-t/images/sources/032a.xp | 177 | ||||
| -rw-r--r-- | 29784-t/images/sources/057a.xp | 69 | ||||
| -rw-r--r-- | 29784-t/old/29784-t.tex | 7802 | ||||
| -rw-r--r-- | 29784-t/old/29784-t.zip | bin | 0 -> 126835 bytes |
19 files changed, 19622 insertions, 0 deletions
diff --git a/29784-t/29784-t.tex b/29784-t/29784-t.tex new file mode 100644 index 0000000..3910bf8 --- /dev/null +++ b/29784-t/29784-t.tex @@ -0,0 +1,7804 @@ +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % +% % +% The Project Gutenberg EBook of A Fortran Program for Elastic Scattering % +% Analyses with the Nuclear Optical Model, by Michel A. Melkanoff % +% and David S. Saxon and John S. Nodvik and David G. Cantor % +% % +% This eBook is for the use of anyone anywhere at no cost and with % +% almost no restrictions whatsoever. You may copy it, give it away or % +% re-use it under the terms of the Project Gutenberg License included % +% with this eBook or online at www.gutenberg.org % +% % +% % +% Title: A Fortran Program for Elastic Scattering Analyses with the % +% Nuclear Optical Model % +% % +% Author: Michel A. Melkanoff % +% David S. Saxon % +% John S. Nodvik % +% David G. Cantor % +% % +% Release Date: August 24, 2009 [EBook #29784] % +% Most recently updated: June 11, 2021 % +% % +% Language: English % +% % +% Character set encoding: UTF-8 % +% % +% *** START OF THIS PROJECT GUTENBERG EBOOK ELASTIC SCATTERING ANALYSES *** +% % +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % + +\def\ebook{29784} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% %% +%% Packages and substitutions: %% +%% %% +%% book: Standard document class. Required. %% +%% %% +%% inputenc: Standard DP encoding. Required. %% +%% fontenc: Font encoding, for bold smallcaps. Required. %% +%% %% +%% amsmath: AMS mathematics enhancements. Required. %% +%% amssymb: AMS mathematics symbols. Required. %% +%% mathrsfs: AMS script fonts. Required. %% +%% %% +%% fancyhdr: Enhanced running headers and footers. Required. %% +%% longtable: Multi-page tables. Required. %% +%% array: Enhanced tabular environment. Required. %% +%% %% +%% multicol: Multi-column environment for index. Required. %% +%% lscape: For data tables in landscape orientation. Required. %% +%% %% +%% alltt: Fixed-width font environment. Required. %% +%% textcomp: Ditto mark. Required. %% +%% %% +%% indentfirst: Indent units' first paragraph. Required. %% +%% ifthen: Logical conditionals. Required. %% +%% %% +%% listings: Prettified Fortran code. Required. %% +%% %% +%% rotating: Graphics rotation. Required. %% +%% tikz: Extended picture macros. Required. %% +%% %% +%% geometry: Enhanced page layout package. Required. %% +%% %% +%% hyperref: Hypertext embellishments for pdf output. Required. %% +%% %% +%% %% +%% Producers's Comments: The text block is fairly wide (6.3 in) to %% +%% accommodate wide displayed equations and program listings. %% +%% Nonetheless, the listing on page 93 gives five overfull hbox %% +%% warnings, the largest almost 91 pt. %% +%% %% +%% The original text is a typed manuscript. Every effort has %% +%% been made to capture the authors' semantic intent with %% +%% regard to sectioning. %% +%% %% +%% Things to Check: The book contains nine landscape pages -- six %% +%% plots, and three pages of program output -- which should %% +%% automatically float to good page breaks. No text runs off %% +%% the page. %% +%% %% +%% %% +%% Spellcheck: OK %% +%% Smoothreading pool: No %% +%% lacheck: OK, about 100 false positives %% +%% %% +%% Lprep/gutcheck: OK %% +%% PDF pages: 111 (if ForPrinting set to false) %% +%% PDF page size: US Letter (8.5" x 11") %% +%% PDF bookmarks: created, point to ToC entries %% +%% PDF document info: filled in %% +%% ToC page numbers: OK %% +%% Images: 8 eepic files written with tikz macros %% +%% %% +%% Summary of log file: %% +%% * 4 underfull hboxes %% +%% * 13 overfull hboxes (largest ~90pt) %% +%% * 20 underfull vboxes %% +%% %% +%% %% +%% Compile History: %% +%% %% +%% May, 2009: adhere (Andrew D. Hwang) %% +%% texlive2007, GNU/Linux %% +%% %% +%% Command block: %% +%% %% +%% pdflatex x2 %% +%% %% +%% %% +%% August 2009: pglatex. %% +%% Compile this project with: %% +%% pdflatex 29784-t.tex ..... TWO times %% +%% %% +%% pdfTeXk, Version 3.141592-1.40.3 (Web2C 7.5.6) %% +%% %% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% %%%%%%%%%%%%%%%%%%%%%%%%%%% PACKAGES %%%%%%%%%%%%%%%%%%%%%%%%%%%%% % + +\listfiles +\documentclass[12pt,letterpaper]{book}[2005/09/16] + +\usepackage[utf8]{inputenc}[2006/05/05] +\usepackage[T1]{fontenc} +\usepackage{amssymb}[2002/01/22] +\usepackage{amsmath}[2000/07/18] +\usepackage{mathrsfs}[1996/01/01] + +\usepackage{fancyhdr} +\usepackage{longtable}[2004/02/01] +\usepackage{array}[2005/08/23] + +\usepackage{multicol}[2006/05/18] +\usepackage{lscape}[2000/10/22] + +\usepackage{alltt}[1997/06/16] +\usepackage{textcomp}[2005/09/27] + +\usepackage{indentfirst}[1995/11/23] +\usepackage{ifthen}[2001/05/26] + +\usepackage{listings}[2004/10/17] + +\usepackage{rotating}[1997/09/26] +\usepackage{tikz}[2006/10/17] + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%% Interlude: Set up PRINTING (default) or SCREEN VIEWING %%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% ForPrinting=true (default) false +% Asymmetric margins Symmetric margins +% Black hyperlinks Blue hyperlinks +% Even-odd page headings Uniform page headings +% Start Preface, ToC, etc. recto No blank verso pages +% +\newboolean{ForPrinting} + +%% *** UNCOMMENT the next line for a PRINT-OPTIMIZED VERSION *** %% +%\setboolean{ForPrinting}{true} + +%% Initialize values to ForPrinting=false +\newcommand{\Margins}{hmarginratio=1:1} % Symmetric margins +\newcommand{\HLinkColor}{blue} % Hyperlink color +\newcommand{\PDFPageLayout}{SinglePage} +\newcommand{\TransNote}{Transcriber's Note} +\newcommand{\TransNoteCommon}{% + Minor typographical corrections, changes to the presentational + style, and regularizations of spelling and hyphenation have been + made without comment. +% All such changes are [** PP: Noted] in this source file + \bigskip + + Every effort has been made to remove OCR errors from the \FORTRAN\ + code. +} +\newcommand{\TransNoteText}{% + \TransNoteCommon + \bigskip + + This PDF file is formatted for screen viewing, but may be easily + recompiled for printing. Please see the preamble of the \LaTeX\ + source file for instructions. +} + +%% Re-set if ForPrinting=true +\ifthenelse{\boolean{ForPrinting}}{% + \renewcommand{\Margins}{hmarginratio=2:3} % Asymmetric margins + \renewcommand{\HLinkColor}{black} % Hyperlink color + \renewcommand{\PDFPageLayout}{TwoPageRight} + \renewcommand{\TransNote}{Transcriber's Note} + \renewcommand{\TransNoteText}{% + \TransNoteCommon + \bigskip + + This PDF file is formatted for printing, but may be easily + recompiled for screen viewing. Please see the preamble of the + \LaTeX\ source file for instructions. + } +}{% If ForPrinting=false, don't skip to recto + \renewcommand{\cleardoublepage}{\clearpage} +} +%%%% End of PRINTING/SCREEN VIEWING code; back to packages %%%% + + +% [** N.B. There are four line breaks tuned to 5in text width] +\usepackage[body={6.3in,9in},\Margins]{geometry}[2002/07/08] + +%%%% PDF and hyperref options %%%% +\providecommand{\ebook}{00000} % Overridden during white washing +\usepackage[pdftex, + hyperfootnotes=false, + pdftitle={The Project Gutenberg eBook \#\ebook: A Fortran program for elastic scattering analyses with the nuclear optical model}, + pdfauthor={Michel A. Melkanoff, John S. Nodvik, David S. Saxon, David G. Cantor}, + pdfkeywords={David Starner, Andrew D. Hwang, + Project Gutenberg Online Distributed Proofreading Team}, + pdfstartview=Fit, % default value + pdfstartpage=1, % default value + pdfpagemode=UseNone, % default value + bookmarks=true, % default value + linktocpage=false, % default value; if true, see @@@@ below + pdfpagelayout=\PDFPageLayout, + pdfdisplaydoctitle, + pdfpagelabels=true, + bookmarksopen=true, + bookmarksopenlevel=1, + colorlinks=true, + linkcolor=\HLinkColor]{hyperref}[2007/02/07] + + +%%%% lstlistings setup %%%% +\lstloadlanguages{fortran} +\lstset{language=[77]fortran, + basicstyle=\footnotesize, + aboveskip=0pt, + belowskip=0pt} % Abut adjacent environments + +% listings basic size for program output +\newcommand{\WideDatasize}{\scriptsize} +\newcommand{\VeryWideDatasize}{\scriptsize} + +%%%% ToC setup %%%% +\newcommand{\SecHeading}[1]{\centering\Large\bfseries\scshape #1} + +\AtBeginDocument{\renewcommand{\contentsname}% + {\protect\SecHeading{Table of Contents}\protect\\[0pt]}} + +\newcommand{\ToCBox}[1]{\makebox[3em][l]{#1}} + +% No page numbers +\AtBeginDocument{\addtocontents{toc}{\protect\thispagestyle{empty}}} +\newcommand{\TableofContents}{{\small\tableofcontents}} + + +%%%% Sectional divisions %%%% +\newcommand{\ChapSkip}{\vspace*{0.25in}} + +% Must handle manual linebreak +\newcommand{\Chapter}[3][] + {\clearpage + \thispagestyle{empty} + \section*{\SecHeading{#2~#3}} + \ChapSkip + \label{chapter:#2}% + \ifthenelse{\equal{#1}{}}% + {\addcontentsline{toc}{chapter}% No optional argument + {\texorpdfstring{\protect\ToCBox{#2} #3}{#2 #3}}}% + {\addcontentsline{toc}{chapter}% Optional argument + {\texorpdfstring{\protect\ToCBox{#2} #3}{#2 #1}}}% +} + +\newcommand{\Section}[2] + {\section*{\normalfont\large\bfseries\scshape#1~#2} + \addcontentsline{toc}{section}% + {\texorpdfstring{#1~#2}{#1 #2}}% +} + +% Must handle manual linebreak +\newcommand{\Subsection}[3][] + {\subsection*{\normalfont\normalsize\bfseries\scshape#2~#3} + \ifthenelse{\equal{#1}{}}% + {\addcontentsline{toc}{subsection}% No optional argument + {\texorpdfstring{#2~#3}{#2 #3}}}% + {\addcontentsline{toc}{subsection}% Optional argument + {\texorpdfstring{#2~#3}{#2 #1}}}% +} + +\newcommand{\Subsubsection}[2] + {\subsubsection*{\normalfont\normalsize#1~\bfseries\scshape#2}} + +\makeatletter +\newcommand{\subsubsubsection} +{\@startsection{subsubsubsection}{4}{\parindent}% + {-0.5\baselineskip}{0pt}{\normalfont\normalsize}}% run-in heading + +\newcommand{\subsubsubsubsection} +{\@startsection{subsubsubsubsection}{4}{0pt}% + {0.25\baselineskip}{0.01pt}{\normalfont\normalsize}}% +\makeatother + +\newcommand{\Subsubsubsection}[2]{\subsubsubsection*{#1~\scshape#2}\quad} + +\newcommand{\Note}[1] + {\ifthenelse{\not\equal{#1}{}} + {\paragraph{Note~#1:}} + {\paragraph{Note:}}} + + +% Standard (sub-)list formatting parameters +\newcommand{\ListInit}{% + \setlength{\leftmargin}{\parindent}% + \setlength{\labelwidth}{0pt}% + \setlength{\labelsep}{0pt}% + \setlength{\itemindent}{-\parindent}% + \setlength{\itemsep}{0pt}% +} + +% General-purpose replacement for itemize (with bold labels) +\newenvironment{Biblio}{\begin{list}{}{\ListInit}}{\end{list}} + + +%%%% Miscellaneous formatting %%%% +%%%% Fixed-width environment to format PG boilerplate %%%% +% 9.2pt leaves no overfull hbox at 80 char line width +\newenvironment{PGtext}{% +\begin{alltt} +\fontsize{9.2}{10.5}\ttfamily\selectfont}% +{\end{alltt}} + +% For titlepage +\newcommand{\Author}[2] + {\begin{tabular}{l}% + \textbf{#1} \\ + {\footnotesize#2} + \end{tabular}} + +% For equation alignment; set #2 in a box as wide as #1 +\newlength{\TmpLen} +\newcommand{\PadTo}[2]% + {\settowidth{\TmpLen}{$#1$}% + \makebox[\TmpLen][r]{$#2$}} + +\newcommand{\Tag}[1]{\phantomsection\label{eqn:#1}\tag{#1}} +\newcommand{\Eqno}[1]{\hyperref[eqn:#1]{(#1)}} + +% \Eqref{n} - eqnation~(n); +% \Eqref[cap]{n} - Equation~(n); +% \Eqref[abbr]{n} - eq.~(n) +\newcommand{\Eqref}[2][]% +{\ifthenelse{\equal{#1}{}}% + {\hyperref[eqn:#2]{equation~(#2)}}% + {\ifthenelse{\equal{#1}{cap}}% + {\hyperref[eqn:#2]{Equation~(#2)}}% + {\ifthenelse{\equal{#1}{abbr}}% + {\hyperref[eqn:#2]{eq.~(#2)}}{}}}}% + +\newcommand{\Eqrefs}[2][]% +{\ifthenelse{\equal{#1}{}}% + {\hyperref[eqn:#2]{equations~(#2)}}% + {\ifthenelse{\equal{#1}{cap}}% + {\hyperref[eqn:#2]{Equations~(#2)}}% + {\ifthenelse{\equal{#1}{abbr}}% + {\hyperref[eqn:#2]{eqs.~(#2)}}{}}}}% + + +% \Figure{4}{028a}: Figure 4 made from 028a.eepic +\newcommand{\Figure}[2] +{\begin{figure*} +\null\vfill +\begin{center}\begin{minipage}{\linewidth} +\rotatebox{90}{\input{./images/#2.eepic}} +\end{minipage} +\phantomsection\label{figure:#1} +\end{center} +\vfill +\end{figure*} +} + +\newcommand{\ChapRef}[1]{\hyperref[chapter:#1.]{chapter~#1}} +\newcommand{\FigRef}[1]{\hyperref[figure:#1]{#1}} + +\newcommand{\Program}[1]{\subsubsubsubsection*{\bfseries Program~#1}} +\newcommand{\Routine}[1]{\subsubsubsubsection*{\bfseries #1}} +\newcommand{\Subroutine}[1]{\subsubsubsubsection*{\bfseries Subroutine~#1}} + + +%%%% Miscelaneous macros %%%% +\DeclareMathOperator{\Imag}{Im} +\DeclareMathOperator{\Real}{Re} + +\newcommand{\Acro}[1]{\texttt{#1}}% Acronyms +\newcommand{\Code}[1]{\text{\lstinline@#1@}} + +\newcommand{\Neg}{\phantom{-}} +\newcommand{\FORTRAN}{\Acro{FORTRAN}} +\newcommand{\SCAT}[1]{\Acro{SCAT~#1}} + +\newcommand{\abs}{\text{abs}} +\newcommand{\CI}{\text{CI}} +\newcommand{\CR}{\text{CR}} +\newcommand{\inc}{\text{inc}} +\newcommand{\initial}{\text{initial}} +\newcommand{\LAB}{\text{LAB}} +\newcommand{\scatt}{\text{scatt}} +\newcommand{\SI}{\text{SI}} +\newcommand{\SR}{\text{SR}} +\newcommand{\total}{\text{total}} + +\newcommand{\MeV}{MeV} +\newcommand{\Y}{\, \mathscr{Y}} + +\newcommand{\Ditto}{\textquotestraightdblbase} + +% \ell or -\ell-1; must be called in math mode +\newcommand{\ellAlt} + {\biggl({\begin{smallmatrix}%{c} + \ell \\ \text{or}\vphantom{\big|} \\ -\ell-1 + \end{smallmatrix}}\biggr)} + + +%% Globally adjust size of super- and sub-scripts +\makeatletter +\DeclareMathSizes{\@xiipt}{\@xiipt}{10}{8} +\makeatother + +\renewcommand{\arraystretch}{1.2} % loosen array rows +\renewcommand{\headrulewidth}{0pt} + +\DeclareInputMath{183}{\cdot} + +%%%%%%%%%%%%%%%%%%%%%%%% START OF DOCUMENT %%%%%%%%%%%%%%%%%%%%%%%%%% + +\begin{document} + +\pagestyle{empty} +\pagenumbering{roman} + +%%%% PG BOILERPLATE %%%% +\pdfbookmark[0]{PG Boilerplate}{Project Gutenberg Boilerplate} + +\begin{center} +\begin{minipage}{\textwidth} +\small +\begin{PGtext} +The Project Gutenberg EBook of A Fortran Program for Elastic Scattering +Analyses with the Nuclear Optical Model, by Michel A. Melkanoff +and David S. Saxon and John S. Nodvik and David G. Cantor + +This eBook is for the use of anyone anywhere at no cost and with +almost no restrictions whatsoever. You may copy it, give it away or +re-use it under the terms of the Project Gutenberg License included +with this eBook or online at www.gutenberg.org + + +Title: A Fortran Program for Elastic Scattering Analyses with the + Nuclear Optical Model + +Author: Michel A. Melkanoff + David S. Saxon + John S. Nodvik + David G. Cantor + +Release Date: August 24, 2009 [EBook #29784] +Most recently updated: June 11, 2021 + +Language: English + +Character set encoding: UTF-8 + +*** START OF THIS PROJECT GUTENBERG EBOOK ELASTIC SCATTERING ANALYSES *** +\end{PGtext} +\end{minipage} +\end{center} + +\clearpage + +%%%% Credits and transcriber's note %%%% +\begin{center} +\begin{minipage}{\textwidth} +\begin{PGtext} +Produced by David Starner, Andrew D. Hwang, and the Online +Distributed Proofreading Team at http://www.pgdp.net +\end{PGtext} +\end{minipage} +\end{center} +\vfill + +\begin{center} +\begin{minipage}{0.66\textwidth} +\small +\subsection*{\centering\normalfont\scshape% +\normalsize\MakeLowercase{\TransNote}}% +\phantomsection +\pdfbookmark[1]{Transcriber's Note}{Transcriber's Note} + +\raggedright +\TransNoteText +\end{minipage} +\end{center} + + +%% -----File: 001.png---Folio xx------- + +\clearpage + +\pdfbookmark[0]{Front Matter}{Front Matter} + +\begin{center} +\begin{tabular}{l} +\textbf{\Huge A FORTRAN Program} \\[0.25in] +\textbf{\Huge for Elastic Scattering Analyses} \\[0.25in] +\textbf{\Huge with the Nuclear Optical Model} \\[0.375in] +\end{tabular} + +\begin{tabular}{ll} +\Author{MICHEL A. MELKANOFF}{University of California, Los Angeles}\qquad & +\Author{DAVID S. SAXON}{University of California, Los Angeles} \\[0.25in] +\Author{JOHN S. NODVIK}{University of Southern California} & +\Author{DAVID G. CANTOR}{University of California, Los Angeles} +\end{tabular} +\vfill + +{\Large UNIVERSITY\quad OF\quad CALIFORNIA\quad PRESS}\\[0.125in] +{\small BERKELEY AND LOS ANGELES 1961} +\end{center} + +\phantomsection +\pdfbookmark[1]{Title Page}{Title Page} + +%% -----File: 002.png---Folio xx------- + +\clearpage +\null\vfill +\begin{center} +{\small UNIVERSITY OF CALIFORNIA PUBLICATIONS IN AUTOMATIC COMPUTATION}\\[0.125in] + +{\small\textsc{Number 1}}\\[0.125in] + +\begin{minipage}{4.125in} +\small +This publication was prepared partly under the sponsorship of +the Office of Naval Research. Reproduction in whole or in part +is permitted for any purpose of the United States Government. +\end{minipage}\\[0.25in] + +{\footnotesize +\textsc{university of california press}, Berkeley and Los Angeles, California \\ +\textsc{cambridge university press}, London, England}\\[0.25in] +\$4.50\\[0.25in] +\textit{Second Printing, 1961} +\vfill\vfill + +{\scriptsize PRINTED IN THE UNITED STATES OF AMERICA} +\end{center} + +%% -----File: 003.png---Folio xx------- + +\clearpage +\phantomsection +\pdfbookmark[1]{Acknowledgements}{Acknowledgements} + +\section*{\SecHeading{Acknowledgements}} +\ChapSkip + +The authors would like to express their sincere appreciation +to the Western Data Processing Center, Graduate School of Business +Administration, UCLA, for the use of their \Acro{IBM~709} computer. Special +thanks are due to Mrs.\ Lisa Greenstadt and Mrs.\ Lois Holloway who have +worked intensively and skillfully to prepare the program. + +This program is largely based on experience gained on the +SWAC, and the authors recall this with gratitude to Numerical Analysis +Research, Department of Mathematics, UCLA\@. + +Finally the authors would like to express their appreciation +to the National Science Foundation and the Office of Naval Research for +financial support. + +%% -----File: 004.png---Folio xx------- + +\TableofContents +\phantomsection +\pdfbookmark[1]{Table of Contents}{Table of Contents} + +\iffalse%%%% COMMENTED SCANNED TEXT %%%% +TABLE OF CONTENTS + +Chapter Page + +I. INTRODUCTION + +II. MATHEMATICAL DESCRIPTION + A. General Formulation + 1. Uncharged Incident Particles + 2. Charged Incident Particles + B. Optical Model Potential + 1. Diffuse Surface Optical Model with Volume + Absorption and Coulomb Spin-Orbit + 2. Nuclear Form Factors + 3. Final Formulation for Machine Calculation + 4. Numerical Integration + 5. Coulomb Functions + 6. Phase Shifts + 7. Cross Section and Polarization + 8. Chi Square Deviation + 9. Normalization + +III. PROGRAM DESCRIPTION + A. General Description + 1. Machine Specifications + 2. General Program Description + 3. Use of the WDPC Load-and-Go System + 4. Error Indications + B. Detailed Descriptions of the Specific Routines + of the Program + +%% -----File: 005.png---Folio xx------- + +IV. DESCRIPTION OF INPUT DATA + +V. GLOSSARY AND DESCRIPTION OF SYMBOLIC VARIABLES + APPEARING IN COMMON AND DIMENSION STATEMENTS + +VI. SYMBOLIC LISTING OF THE PROGRAM + +VII. TYPICAL INPUT AND OUTPUT + A. Input Data for Protons Against Copper at 9.75 Mev + B. Output Listing + +VIII. FURTHER SUBROUTINES AND PROGRAMS IN PREPARATION BIBLIOGRAPHY +\fi%%%% END OF COMMENTED TEXT %%%% +%% -----File: 006.png---Folio 1------- + +\mainmatter +\pagenumbering{arabic} +\pagestyle{fancy} +\fancyhead{} +\fancyfoot{} +\setlength{\headheight}{14.5pt} +\fancyhead[C]{--\ \thepage\ --} + +\Chapter{I.}{Introduction} + +The purpose of the present report is to describe in complete detail +a \FORTRAN\ code named Program \SCAT{4} written by the UCLA group in order to +analyze elastic scattering of various particles against complex nuclei +by means of the diffuse surface optical model of the nucleus. + +While a number of similar programs have been prepared and used by +other groups, there have been many requests for the UCLA program because of +its flexibility and the availability of \Acro{IBM~704} and~\Acro{709} computers for which +the program is written. + +The present program still contains some undesirable features and the +UCLA group is constantly modifying it to make it more efficient and flexible. +However, a ``final'' program will probably never be reached and it was decided +to release Program \SCAT{4} without further delay; as they develop, modifications +and additions will be described in later reports. + +Other laboratories will probably add further modifications and the +UCLA group will be grateful for description of such modifications as well as +for any suggestions in this regard. Modifications and additions deemed +worthwhile will be passed on to other users of the program but while the +UCLA group is willing to serve partially as a central clearing house, the +entire clerical responsibility cannot be assumed by the UCLA group. + +It should also be noted that, while every effort has been made to +check out the program, the UCLA group cannot guarantee its complete correctness. + +Program \SCAT{4} is available on a symbolic deck and will be mailed on +request. Air mailing will require prepaid postage by requesting parties. + +Potential users of program \SCAT{4} may find it useful to follow these +suggestions in reading the present report: + +% [** PP: Added periods after items (a), (c), and (d)] +\begin{itemize} +\item[1)] If the potential user is only interested in analyses with standard +potentials he may proceed as follows: +\begin{itemize} +\item[a)] Read the introduction to the mathematical description. %** period + +\item[b)] Consider the fundamental equations: \Eqno{34}, \Eqno{35}, \Eqno{51}, \Eqno{78} through +\Eqno{85}, \Eqno{132}, \Eqno{137} through \Eqno{139} in \ChapRef{II}. +% [** PP: Original reads Chapter II, section 1; most aren't in section 1.] + +\item[c)] Read \ChapRef{III}, section~A and the general flow chart. %** period + +\item[d)] Read the description of subroutines \Code{INPT4} and +\Code{OUTPT4} in \ChapRef{III}, section~B. %** period + +\item[e)] Read \ChapRef{IV} and~\hyperref[chapter:VII.]{VII}. +\end{itemize} + +%% -----File: 007.png---Folio 2------- + +\item[2)] If the potential user is interested in all the features of the program, +then a perusal of the whole report is advisable. The mathematical description +of \ChapRef{II} is a brief review of the theory and the basic equations +are all listed there. Symbolic \FORTRAN\ variables are indicated in capital +letters and may be looked up in the glossary making up \ChapRef{V}. +\end{itemize} + +Note that the program may be used for incident neutral particle by +letting $ZZ'= 0$. + +%% -----File: 008.png---Folio 3------- + + +\Chapter{II.}{Mathematical Description} + +Program \SCAT{4} calculates in the center-of-mass system the differential +elastic scattering cross sections~$\sigma(\theta)$, the polarization~$P(\theta)$, and the total +reaction cross section~$\sigma_R$ for particles of spin~$0$ or~$1/2$ having any mass, +charge and (non-relativistic) energy scattered by spinless nuclei of any mass +and charge for various sets of diffuse surface optical model parameters. The +incident and target particles are assumed to interact through a two-body +potential consisting of a complex nuclear potential which includes spin-orbit +interaction and whose shape can be specified by input parameters. When the +incident particle is charged, the two body potential contains, in addition, the +coulomb potential between an incident point charge and an extended, constant +charge density target. + +The calculations include numerical integrations of the radial +Schroedinger equations for the effective partial waves. The complex phase +shifts are obtained as usual by matching the logarithmic derivatives of the +numerically obtained nuclear wave functions to that of the coulomb (or +spherical Bessel) functions. The phase shifts are then used to compute +polarizations and cross sections which may be compared to the experimental +values by means of the $\chi^2$~test. + + +\Section{A.}{General Formulation} + +We begin with a brief review of the basic theory relating to the scattering +of spin~$1/2$ particles by a zero spin target\footnotemark. +\footnotetext{See J. Lepore, Phys.\ Rev.~\textbf{79}, 137 (1950).}% +We shall first consider +the case of an uncharged incident particle and indicate later the modifications +necessary if the incident particle is charged. + +The interaction is assumed to be of the form +\[ +V_T = V_1 + V_2\, \vec{S} · \vec{L} +\Tag{1} +\] +where $V_1$ and~$V_2$ are complex quantities depending only on the distance~$r$ between +the incident particle and the target particle. In terms of the Pauli spin +operator~$\vec\sigma$, the spin operator of the incident particle,~$\vec{S}$, is given by +\[ +\vec{S} = \frac{1}{2} \hbar \vec{\sigma} +\Tag{2} +\] +%% -----File: 009.png---Folio 4------- +and the (relative) orbital angular momentum operator is given by +\[ +\vec{L} = \vec{r} × \left(\frac{\hbar}{i}\vec{\nabla}\right). +\Tag{3} +\] +The Schroedinger equation is then +\[ +\left[-\frac{\hbar^2}{2\mu} \vec{\nabla}^2 + + V_1(r) + V_2(r)\, \vec{S} · \vec{L} \right] \Psi = E \Psi +\Tag{4} +\] +where +\[ +\mu = \frac{m_i\, m_b}{m_i + m_b} +\Tag{5} +\] +is the reduced mass, $m_i$ and~$m_b$ being respectively the masses of the incident +and target particles in atomic mass units. +\[ +E = \frac{m_b}{m_i + m_b} E_\LAB +\Tag{6} +\] +is the energy in the center of mass system, $E_\LAB$ being the lab energy of the +incident particle in~\MeV. + + +\Subsection{1.}{Uncharged Incident Particles} + +The wave function corresponding to a wave incident in the positive~$z$ +direction and normalized to one incident particle per unit time per unit +area is +\[ +\Psi_\inc = \frac{1}{\sqrt{v}} e^{ikz} \chi_\inc +\Tag{7} +\] +where $v$ is the relative velocity, the wave number~$k$ is given by +\[ +k = \sqrt{\frac{2\mu E}{\hbar^2}} + = 0.2195376 \sqrt{\mu E}~\text{fermi}^{-1} +\Tag{8} +\] +%% -----File: 010.png---Folio 5------- +and the incident spin function is +\[ +\chi_\inc = a_{1/2}\alpha + a_{-1/2}\beta +\Tag{9} +\] +where $\alpha$ and~$\beta$ are normalized spin eigenfunctions of~$S_z$ +and~$a_{1/2}$, $a_{-1/2}$ the corresponding amplitudes. + +The partial wave expansion corresponding to~\Eqno{7} is given by: +\[ +\Psi_\inc = \frac{1}{\sqrt{v}} \sum_{\ell=0}^\infty + (2\ell + 1) i^\ell j_\ell(kr) \sqrt{\frac{4 \pi}{2\ell + 1}} + Y_\ell^0(\theta, \varphi) \left[a_{1/2}\alpha + a_{-1/2}\beta\right] +\Tag{10} +\] +where $j_\ell(kr)$ is the regular spherical Bessel function of order~$\ell$ and the +normalized spherical harmonics are defined as +\[ +Y_\ell^m(\theta,\varphi) = (-1)^\frac{m+|m|}{2} + \sqrt{\frac{2\ell + 1}{4\pi}} + \sqrt{\frac{(\ell - |m|)!}{(\ell + |m|)!}} + P_\ell^{|m|}(\cos\theta) e^{im\varphi} +\Tag{11} +\] +where $P_\ell^{|m|}(\cos\theta)$ are the associated Legendre polynomials. + +The product functions $Y_\ell^0\alpha$ and $Y_\ell^0\beta$ which appear in~\Eqno{10} are simultaneous +eigenfunctions of the operators $\vec{L}^2$, $L_z$, $\vec{S}^2$, and $S_z$ but not of the +operator $\vec{L}·\vec{S}$ which appears in the spin-orbit interaction. This may be +remedied by introducing functions $\Y_{j\ell s}^{m_j}$ which are simultaneous eigenfunctions +of $\vec{L}^2$, $\vec{S}^2$, $\vec{J}^2$, and $J_z$ and thus of +$\vec{L}·\vec{S}$ where $\vec{J}$ is the total angular momentum, +\[ +\vec{J} = \vec{L} + \vec{S}. +\Tag{12} +\] +Since $s=1/2$, the possible values of $j$ are $j=\ell+1/2$ and $j=\ell-1/2$; the +corresponding eigenfunctions are given by +{\small +\[ +\left. +\begin{aligned} + \Y_{\ell+1/2, \ell, s}^{m_j} + &= \Neg + \sqrt{\frac{\ell + m_j + 1/2}{2\ell + 1}} Y_\ell^{m_j-1/2}\alpha + + \sqrt{\frac{\ell - m_j + 1/2}{2\ell + 1}} Y_\ell^{m_j+1/2}\beta, + \text{ for $j = \ell+1/2$} \\ +% + \Y_{\ell-1/2, \ell, s}^{m_j} %[** PP: Changed denominator to 2\ell + 1] + &= -\sqrt{\frac{\ell - m_j + 1/2}{2\ell + 1}}Y_\ell^{m_j-1/2}\alpha + + \sqrt{\frac{\ell + m_j + 1/2}{2\ell + 1}}Y_\ell^{m_j+1/2}\beta, + \text{ for $j = \ell-1/2$} +\end{aligned} +\right\} +\Tag{13} +\]}% [** PP: End of \small] +%% -----File: 011.png---Folio 6------- +The incident wave function may now be written as +\[ +\begin{aligned} + \Psi_\inc + &= \sqrt{\frac{4\pi}{V}} + \sum_{\ell=0}^{\infty} \sqrt{\ell + 1}\, i^{\ell}\, j_{\ell}(kr) + \left[ \PadTo{-a}{a}_{1/2} \Y_{\ell + 1/2, \ell, 1/2}^{1/2} + + a_{-1/2} \Y_{\ell + 1/2, \ell, 1/2}^{-1/2} \right] \\ + % + &+ \sqrt{\frac{4\pi}{V}} + \sum_{\ell=0}^{\infty} \PadTo{\sqrt{\ell + 1}}{\sqrt{\ell}\ }\, + i^{\ell}\, j_{\ell}(kr) + \left[ -a_{1/2} \Y_{\ell - 1/2, \ell, 1/2}^{1/2} + + a_{-1/2} \Y_{\ell - 1/2, \ell, 1/2}^{-1/2} \right] +%[** PP: No period] +\end{aligned} +\Tag{14} +\] +The total wave function can be written in a form similar to~\Eqno{14}: +\begin{align*} + \Psi_\total + &= \Psi_\inc + \Psi_\scatt \\ +% + &= \sqrt{\frac{4\pi}{V}} \sum_{\ell=0}^{\infty} + \sqrt{\ell + 1}\, i^{\ell}\, \frac{\Psi_\ell^+ (r)}{kr} + \left[\PadTo{-a}{a}_{1/2} \Y_{\ell + 1/2, \ell, 1/2}^{1/2} + + a_{-1/2} \Y_{\ell + 1/2, \ell, 1/2}^{-1/2} \right] \\ +% + &+ \sqrt{\frac{4\pi}{V}} \sum_{\ell=0}^{\infty} + \PadTo{\sqrt{\ell + 1}}{\sqrt{\ell}\ }\, + i^{\ell}\, \frac{\Psi_\ell^- (r)}{kr} + \left[ -a_{1/2} \Y_{\ell - 1/2, \ell, 1/2}^{1/2} + + a_{-1/2} \Y_{\ell - 1/2, \ell, 1/2}^{-1/2} \right] +\Tag{15}% belongs in between lines +\end{align*} +where $\Psi_\ell^+$ is the radial function associated with $j=\ell+1/2$ and~$\Psi_\ell^-$ is associated +with $j=\ell-1/2$. + +The terms appearing in~\Eqno{15} are not coupled by the spin-orbit interaction, +and substitution into the Schroedinger \Eqref{4} yields the +following radial equations: +\[ +\frac{d^2\Psi_\ell^±}{dr^2} + + \left\{ k^2 - \frac{2\mu}{\hbar^2} + \left[ V_1 + \frac{\hbar^2}{2} \ellAlt V_2 \right] + - \frac{\ell(\ell + 1)}{r^2} \right\} \Psi_\ell^± = 0 +\Tag{16} +\] +where the quantity~$\ell$ appears in the equation for~$\Psi_\ell^±$ and~$-\ell-1$ appears in +the equation for~$\Psi_\ell^-$. + +The radial wave function~$\Psi_\ell^±$ must reduce to that of the incident wave, +$kr\, j_\ell(kr)$, when there is no interaction and must be such that only the outgoing +wave is modified by the interaction. These conditions are satisfied +by the asymptotic expression +\begin{align*} +\Psi_\ell^± &\cong kr\, j_\ell (kr) + + C_\ell^± \left[ -y_\ell (kr) + i\, j_\ell (kr)\right] +\Tag{17} \\ +\intertext{which reduces to} +\Psi_\ell^± &\cong kr\, j_\ell (kr) + + C_\ell^± \, e^{i (kr - \ell \pi/2)} +\Tag{18} \\ +%% -----File: 012.png---Folio 7------- +\intertext{or equivalently} +\Psi_\ell^± &\cong % [** PP: Oversize fraction] + \sin(kr - \frac{\ell\pi}{2}) + C_\ell^± e^{i(kr - \ell\pi/2)} +\Tag{19} +\end{align*} +as may be seen by applying the asymptotic expression for the regular and +irregular spherical Bessel functions: +\[ +\left. +\begin{aligned} +kr\, j_\ell(kr) &\cong \Neg\sin(kr - \ell \pi/2) \\ +kr\, y_\ell(kr) &\cong -\cos(kr - \ell \pi/2). +\end{aligned} +\right\} +\Tag{20} +\] +On the other hand, in terms of complex phase shifts~$\delta_\ell^±$, \Eqno{19} must be of +the form +\[ +\Psi_\ell^± + \cong A_\ell^± \sin(kr - \ell \pi/2 + \delta_\ell^±) +\Tag{21} +\] +Comparison of the coefficients of~$e^{ikr}$ and~$e^{-ikr}$ in \Eqrefs[abbr]{21} and~\Eqno{19} +yields +\begin{align*} +C_\ell^± &= \frac{1}{2i}(e^{2i\delta_\ell^±} - 1) +\Tag{22} \\ +A_\ell^± &= e^{i\delta_\ell^±} +\Tag{23} +\end{align*} + +Substituting \Eqno{18} into~\Eqno{15} and subtracting $\Psi_\inc$ as given by~\Eqno{14}, +yields for $\Psi_\scatt$ the asymptotic form: +\[ +\Psi_\scatt \cong \frac{1}{\sqrt{V}} \frac{e^{ikr}}{r} + \left\{ + A(\theta) \left[ a_{1/2}\alpha + a_{-1/2}\beta \right] + + i B(\theta) \left[ a_{-1/2} e^{-i\varphi}\alpha + - a_{1/2} e^{i\varphi}\beta \right] + \right\} +\Tag{24} +\] +where +\[ +\left. +\begin{aligned} +A(\theta) &= \Neg\frac{1}{k} \sum_{\ell=0}^\infty + \left[ (\ell + 1) C_\ell^{+} + \ell C_\ell^{-} \right] + P_\ell(\cos \theta) \\ +B(\theta) &= -\frac{i}{k} \sum_{\ell=0}^\infty + \left[ C_\ell^{+} - C_\ell^{-} \right] + P_\ell^1(\cos \theta) +\end{aligned} +\right\} +\Tag{25} +\] + +The wave function of the scattered wave can more conveniently be +expressed in terms of~$\vec{\sigma}$ and~$\vec{n}$, the unit vector normal to the scattering +plane defined by +\[ +\vec{n} \sin\theta = \vec{k_1} × \vec{k_0} +\Tag{26} +\] +%% -----File: 013.png---Folio 8------- +where $\vec{k}_0$ and $\vec{k}_1$ are unit vectors in the direction of propagation before and +after scattering; thus +\[ +\Psi_\scatt \cong \frac{1}{\sqrt{V}} \frac{e^{ikr}}{r} + \left[ A(\theta) + B(\theta) \vec{\sigma} · \vec{n} \right] \chi_\inc + = \frac{1}{\sqrt{V}} \frac{e^{ikr}}{r} f(\theta) \chi_\inc +\Tag{27} +\] +where $f(\theta)$ is the operator +\[ +f(\theta) = A(\theta) + B(\theta) \vec{\sigma} · \vec{n}. +\Tag{28} +\] + +The differential elastic scattering cross section and polarization +vector which are given by +\begin{align*} +\sigma(\theta) + &= \left\langle \left[ f(\theta) \chi_\inc \right]^{\dagger} + \left[ f(\theta) \chi_\inc \right] \right\rangle +\Tag{29} \\ +% +\vec{P}(\theta) + &= \frac{\left\langle + \left[ f(\theta) \chi_\inc \right]^{\dagger} + \left[ f(\theta) \chi_\inc \right] \right\rangle} + {\sigma(\theta)} +\Tag{30} +\end{align*} +thus become +\begin{align*} +\sigma(\theta) + &= |A|^2 + |B|^2 + (A^*B + AB^*) \vec{n} · \vec{P}_0 +\Tag{31} \\ +% +\vec{P}(\theta) + &= \frac{(|A|^2 - |B|^2) \vec{P}_0 + + \left[ A^*B + AB^* + + 2|B|^2 \vec{P}_0 · \vec{n} \right] \vec{n} + + i (A^*B - AB^*) \vec{n} × \vec{P}_0} + {|A|^2 + |B|^2 + (A^*B + AB^*) \vec{P}_0 · \vec{n}} +\Tag{32} +\end{align*} +where the incident polarization vector $\vec{P}_0$, is given by +\[ +\vec{P}_0 = \left\langle \chi_\inc^{\dag}\ \vec{\sigma} \chi_\inc \right\rangle +\Tag{33} +\] + +If the incident beam is unpolarized, i.e., $\vec{P}_0=0$, the scattered beam +is polarized along the direction~$\vec{n}$, perpendicular to the scattering plane and +\begin{align*} +\sigma(\theta) &= |A|^2 + |B|^2 +\Tag{34} \\ +\vec{P}(\theta) &= P(\theta) \vec{n} + = \frac{(A^*B + AB^*)}{|A|^2 + |B|^2} \vec{n} +\Tag{35} +\end{align*} + +%% -----File: 014.png---Folio 9------- + +Experimentally, the polarization is sometimes obtained from a double +scattering experiment in the same plane wherein the polarization in the +first scattering is known\footnotemark. +\footnotetext{L.~Rosen, Proceedings of the International Conference on the Nuclear Optical +Model, Florida State University, Tallahassee, 1959, pp.~72--90.} The differential elastic scattering cross section +for the second scattering may then be obtained from~\Eqno{31} and~\Eqno{35}: +\[ +\begin{aligned} + \sigma_2(\theta) + &= (|A|^2 + |B|^2) \left[ + 1 + \frac{A^*B + AB^*}{|A|^2 + |B|^2} \vec{n}_2 · \vec{P}_1 + \right]\\ +% + &= (|A|^2 + |B|^2) (1 + \vec{P}_2 · \vec{P}_1). +\end{aligned} +\Tag{36} +\] + +\begin{figure*} +\begin{center} +\input{./images/014a.eepic} +\phantomsection\label{figure:1} +\end{center} +\end{figure*} +%[** Illustration: Fig.1] + +Referring to \textsc{Figure~\FigRef{1}}, it is clear that +\[ +\vec{n}_1 = \vec{n}_2^r = -\vec{n}_2^{\ell}, +\Tag{37} +\] +so that the differential scattering cross sections along the~$r$ and~$\ell$ beams +are as follows: +\[ +\left. +\begin{aligned} + \sigma_2^r(\theta) &= (|A|^2 + |B|^2)(1 + P_2 P_1) \\ + \sigma_2^{\ell}(\theta) &= (|A|^2 + |B|^2)(1 - P_2 P_1), +\end{aligned} +\right\} +\Tag{38} +\] +the ratio of the scattering intensities becomes +\[ +\frac{\sigma_2^{\ell}(\theta)} + {\sigma_2^r(\theta)} + = \frac{1 - P_2 P_1}{1 + P_2 P_1}, +\Tag{39} +\] +%% -----File: 015.png---Folio 10------- +and solving for $P_2$: +\[ +P_2 = \frac{1}{P_1}\, + \frac{\sigma_2^\ell - \sigma_2^r} + {\sigma_2^\ell + \sigma_2^r} +\Tag{40} +\] +which reduces when $P_1 = 1$ to +\[ +P_2 = \frac{\sigma_2^\ell - \sigma_2^r} + {\sigma_2^\ell + \sigma_2^r} +\Tag{41} +\] + + +\Subsection{2.}{Charged Incident Particles} + +We next consider the case in which the incident particle has charge~$Ze$ +and the target particle has charge~$Z'e$. The potential~$V(r)$ must now +include a term~$V_c(r)$ which describes the coulomb interaction. For small +values of~$r$, $V_c$ will depend on the assumed charge distribution, while for +large values of~$r$, we must have +\[ +V_c = \frac{ZZ'e^2}{r} \quad\text{($r$ large)}. +\Tag{42} +\] +It is convenient to introduce the parameter~$\eta$, +\[ +\eta = \frac{\mu\ ZZ'e^2}{\hbar^2 k} + = 0.15805086\, ZZ'\, \sqrt{\frac{m_i}{E_\LAB}} +\Tag{43} +\] + +For the ``incident wave'' we take $\Psi_c(r)\chi_\inc$, where $\Psi_c$ is the solution +to the Schroedinger equation +\[ +-\frac{\hbar}{2\mu}\, \vec{\nabla}^2\Psi_c + + \frac{ZZ'e^2}{r}\, \Psi_c = E\Psi_c +\Tag{44} +\] +corresponding to the scattering of two point charges. + +It is well known that in that case % [** PP: No indent in original] +\[ +\Psi_c = \frac{1}{\sqrt{V}}\, + \Gamma(1 + i\eta) e^{-1/2\eta\pi}\, + e^{ikz} F(-i\eta, 1, ik\xi) +\Tag{45} +\] +where $\xi=r-z$ and $F$ is the confluent hypergeometric function. + +It is important to note that $\Psi_c$ includes a distorted incoming wave +\emph{plus} a scattered wave due to the point charge potential, and as such is not +%% -----File: 016.png---Folio 11------- +strictly an incident wave. + +The asymptotic form of~$\Psi_c$ is given by +\[ +\begin{aligned} + \Psi_c &\cong \frac{1}{\sqrt{V}} + \left\{ e^{i \left[ kz\ - \eta\, \ell n\, k(r-z) \right]} + \left( 1 - \frac{\eta^2}{ik(r-z)} \right) \right. \\ + % + &+ \left. \frac{1}{r} f_c(\theta)\, e^{i(kr - \eta\, \ell n\, 2kr)} + \right\} +\end{aligned} +\Tag{46} +\] +where +\[ +f_c(\theta) = - \frac{\eta}{2k \sin^2 \theta/2}\, + e^{-i \eta\, \ell n (\sin^2 \theta/2) + 2i\ \sigma_0} +\Tag{47} +\] +is the Rutherford scattering amplitude and $\sigma_0$ is given by \Eqref{49}, +below, with $\ell = 0$. + +The partial wave expansion of~$\Psi_c$ is given by +\[ +\Psi_c = \frac{1}{\sqrt{V}} + \sum_{\ell=0}^\infty (2\ell+1)\, i^\ell\, e^{i\sigma_\ell}\, + \frac{F_\ell(\eta, kr)}{kr} \sqrt{\frac{4\pi}{2\ell + 1}} + Y_\ell^0(\theta, \varphi) +\Tag{48} +\] +where $F_\ell(\eta, kr)$ is the regular coulomb function and $\sigma_\ell$ is the usual coulomb +phase shift given by +\[ +\sigma_\ell = \arg \Gamma(\ell + 1 + i \eta) +\Tag{49} +\] + +Comparing \Eqref{48} with~\Eqno{10} we see that in \Eqref{14} it is +necessary to replace $j_\ell(kr)$ by $e^{i\sigma_\ell} \frac{F_\ell(\eta, kr)}{kr}$; thus, in this case, +\begin{align*} + \Psi_\inc &= \sqrt{\frac{4\pi}{V}} \sum_{\ell=0}^\infty + \sqrt{\ell+1}\, i^\ell\, e^{i \sigma_\ell}\, + \frac{F_\ell(\eta, kr)}{kr} + \left[ \PadTo{-a}{a}_{1/2} \Y_{\ell + 1/2, \ell, 1/2}^1/2 + + a_{-1/2} \Y_{\ell + 1/2, \ell, 1/2}^{-1/2} \right] \\ + % +& +\Tag{50} \\ + &+ \sqrt{\frac{4\pi}{V}} \sum_{\ell=0}^\infty + \PadTo{\sqrt{\ell+1}}{\sqrt{\ell}\ }\, i^\ell\, e^{i\sigma_\ell}\, + \frac{F_\ell(\eta, kr)}{kr} + \left[ -a_{1/2} \Y_{\ell - 1/2, \ell, 1/2}^1/2 + + a_{-1/2} \Y_{\ell - 1/2, \ell, 1/2}^{-1/2} \right] +\end{align*} + +The total wave function can be written as a sum of the ``incident'' wave, +$\Psi_\inc$, plus a ``scattered'' wave, $\Psi_\scatt$, where $\Psi_\scatt$ now includes only interference +terms and deviations from pure Rutherford scattering: +%% -----File: 017.png---Folio 12------- +\begin{align*} +\Psi_\total &= \Psi_\inc + \Psi_\scatt \\ +% +&= \sqrt{\frac{4\pi}{V}} \sum_{\ell=0}^\infty + \sqrt{\ell+1}\, i^\ell \, e^{i\sigma_\ell}\, + \frac{\Psi_\ell^+(r)}{kr} + \left[ \PadTo{-a}{a}_{1/2} \Y_{\ell + 1/2, \ell, 1/2}^1/2 + + a_{-1/2} \Y_{\ell + 1/2, \ell, 1/2}^{-1/2} \right] \\ +& +\Tag{51} \\ + % +&+ \sqrt{\frac{4\pi}{V}} \sum_{\ell=0}^\infty + \PadTo{\sqrt{\ell+1}}{\sqrt{\ell}\ }\, i^\ell\, e^{i\sigma_\ell}\, + \frac{\Psi_\ell^-(r)}{kr} + \left[ -a_{1/2} \Y_{\ell - 1/2, \ell, 1/2}^1/2 + + a_{-1/2} \Y_{\ell - 1/2, \ell, 1/2}^{-1/2} \right] +\end{align*} +This wave function, $\Psi_\total$, % [** PP: Typo \Psi_tot] +is formally almost identical to the expression given +by \Eqref{15} and the radial wave functions~$\Psi_\ell^±$ obey an equation which is +formally identical to \Eqref{16} except that $V_1(r)$ must now include the +coulomb potential~$V_c(r)$ which may differ from a point charge potential at +close distances. + +The radial wave function $\Psi_\ell^±$ must now reduce to the ``incident'' wave, +$F_\ell(\eta, kr)$, when the potential becomes a coulomb point charge potential, and +must be such that only the outgoing wave is modified by the non-coulomb +interaction. These conditions are satisfied by the asymptotic expression: +\begin{align*} +\Psi_\ell^± + &\cong F_\ell(\eta, kr) + + C_\ell^± \left[ G_\ell(\eta, kr) + i F_\ell(\eta, kr) \right] +\Tag{52} \\ +\intertext{which reduces to} +\Psi_\ell^± + &\cong F_\ell(\eta, kr) + + C_\ell^± e^{i(kr - \eta\, \ell n\, 2kr - \ell\pi/2 + \sigma_\ell)} +\Tag{53} +\end{align*} +or equivalently +\[ +\Psi_\ell^± +\cong \sin(kr - \eta\, \ell n\, 2kr - \ell \pi/2 + \sigma_\ell) + + C_\ell^± + e^{i(kr - \eta\, \ell n\, 2kr - \ell \pi/2 + \sigma_\ell)} +\Tag{54} +\] +as may be seen by introducing the asymptotic expressions for the regular and +irregular coulomb functions: +\[ +\left. +\begin{aligned} + F_\ell(\eta, kr) + &\cong \sin(kr - \eta\, \ell n\, 2kr - \ell \pi/2 + \sigma_\ell) \\ + G_\ell(\eta, kr) + &\cong \cos(kr - \eta\, \ell n\, 2kr - \ell \pi/2 + \sigma_\ell) +\end{aligned} +\right\} +\Tag{55} +\] + +%% -----File: 018.png---Folio 13------- + +In this case, the ``nuclear phase shift'' $\delta_{\ell}^{±}$ is taken to be such +that the asymptotic form of~$\Psi_{\ell}^{±}$ is given by +\[ +\Psi_{\ell}^{±} \cong A_{\ell}^{±} + \sin (kr - \eta\, \ell n\, 2kr - \ell \pi/2 + \sigma_\ell + \delta_\ell^±) +\Tag{56} +\] +Comparison of the coefficients of $e^{i(kr - \eta\, \ell n\, 2kr)}$ and $e^{-i(kr - \eta\, \ell n\, kr)}$ +in \Eqrefs{54} and~\Eqno{56} yields +\begin{align*} +C_{\ell}^{±} &= \frac{1}{2i} \left[ e^{2i\, \delta_{\ell}^{±}}-1 \right] +\Tag{57} \\ +A_{\ell}^{±} &= e^{i\, \delta_{\ell}^{±}} +\Tag{58} +\end{align*} +Substituting~\Eqno{53} into~\Eqno{51} and making use of~\Eqno{46} and~\Eqno{50} we obtain for +the asymptotic form of the total wave function +\begin{align*} + \Psi_\total &\cong \frac{1}{\sqrt{V}} + \left\{ e^{i[kz - \eta\, \ell n\, k(r-z)]} + \left[ 1 - \frac{\eta^2}{ik(r-z)} \right] \right\} \chi_\inc \\[-12pt] +&\Tag{59} \\ +% + &+ \frac{1}{\sqrt{V}} \frac{e^{i(kr - \eta\, \ell n\, 2kr)}}{r} + \left\{ A(\theta) \left[ a_{1/2} \alpha + a_{-1/2} \beta \right] + + i B(\theta) \left[ a_{-1/2} e^{-i\varphi} \alpha + - a_{1/2} e^{i\varphi} \beta \right] \right\} +\end{align*} +where +\[ +\begin{aligned} + A(\theta) &= f_c(\theta) + + \frac{1}{k} \sum_{\ell=0}^\infty e^{2i \sigma_\ell} + \left[ (\ell+1) C_{\ell}^{+} + \ell C_{\ell}^{-} \right] + P_{\ell} (\cos\theta) \\ + B(\theta) &= -\frac{i}{k} \sum_{\ell=0}^\infty e^{2i\sigma_\ell} + \left[ C_{\ell}^{+} - C_{\ell}^{-} \right] + P_{\ell}^1 (\cos\theta) +\end{aligned} +\Tag{60} +\] +and $f_c(\theta)$ is given by \Eqref{47}. + +From this point, the formulation follows through as in the case of +uncharged particles. + + +\Section{B.}{Optical Model Potential} + +\Subsection[Diffuse Surface Optical Model with Volume Absorption and +Coulomb Spin-Orbit.]% +{1.}{Diffuse Surface Optical Model with Volume Absorption and \hfill\break +Coulomb Spin-Orbit.} + +The interaction~\Eqno{1} is assumed to have the form +\[ +V_T = V_\text{CN} + V_\text{SO} + V_\text{Coul} + V_\text{Coul SO} +\Tag{61} +\] +%% -----File: 019.png---Folio 14------- +where the terms appearing in \Eqref{61} are respectively the central +nuclear, spin-orbit nuclear, coulomb, and coulomb spin-orbit potentials. + +We shall first consider the case for which the real and imaginary +parts of the central potential have a special common form factor (corresponding +to volume absorption), and the spin-orbit potential is of the +Thomas type. This particular central potential form factor has been used +extensively and will be referred to as the standard form factor. We shall +then discuss other form factors available in the program. + + +\Subsubsection{(a)}{Central nuclear potential} +\[ +V_\text{CN} = (-V - iW) \frac{1}{(1 + e^{(r - R_N)/a})} +\Tag{62} +\] +where~$V$ and~$W$ are respectively the depths of the real and imaginary part of +the nuclear potential in \MeV\ ($V$ and~$W$ are positive for an attractive, absorbing +potential), and a common volume absorption form factor is assumed, where +\[ +R_N = R_\text{ON} m_b^{1/3} × 10^{-13}~\text{cm} +\Tag{63} +\] +$R_\text{ON}$ being the nuclear radius constant and~$a$ is the rounding parameter in $10^{-13}~\text{cm}$. + + +\Subsubsection{(b)}{Nuclear spin-orbit potential} + +The nuclear spin-orbit potential is often written in the Thomas form +\[ +V_\text{SO} = \lambda \frac{1}{2 M_p^2 c^2} + \left\{ \frac{1}{r}\, \frac{d}{dr} + \left[ \frac{-V}{1 + e^{(r-R_N)/a}} \right] \right\} \vec{S} · \vec{L} +\Tag{64} +\] +where $M_p$ is the proton test mass and $c$ the velocity of light. If~$\lambda$ were~$1$, +the spin-orbit term would be that predicted by the Dirac equation. To +provide more freedom in the model one writes +\[ +\lambda = 4 \left( \frac{M_p}{M_\pi} \right)^2 \frac{V_S + iW_S}{V} +\Tag{65} +\] +%% -----File: 020.png---Folio 15------- +where $M_\pi$ is the pion rest mass and~$V_S$ and~$W_S$ are respectively the strengths +of the real and imaginary parts of the nuclear spin-orbit potential in~\MeV. + +It may be noted that a negative value of the real part of~$\lambda$ would be +in accordance with the shell model of the nucleus where a (real) negative +spin-orbit term is required to give the proper level sequence in contra-distinction +to the atomic case. + + +\Subsubsection{(c)}{Coulomb potential} + +The coulomb potential is taken here to correspond to a constant +charge density within the nucleus extending to a distance~$R_c$ given by +\[ +R_c = R_\text{oc} m_b^{1/3} × 10^{-13}~\text{cm} +\Tag{66} +\] +where $R_\text{oc}$ is the coulomb radius constant; thus +\[ +\begin{aligned} +V_\text{Coul} + &= (ZZ'e^2/2R_c) (3 - r^2/R_c^2) && \quad\text{for $r \leq R_c$} \\ + &= ZZ'e^2/r && \quad\text{for $r \geq R_c$} +\end{aligned} +\Tag{67} +\] + + +\Subsubsection{(d)}{Coulomb spin-orbit potential} + +The coulomb spin-orbit term is assumed to have the form\footnote + {W.~Heckrotte, Phys.\ Rev.\ \textbf{101}, l406 (1956).} +\[ +V_\text{Coul SO} + = (\mu_P - \tfrac{1}{2}) \frac{1}{M_P^2 c^2} + \left[ \frac{1}{r}\, \frac{d}{dr} V_\text{Coul} \right] \vec{S} · \vec{L} +\Tag{68} +\] +where $\mu_P$ is the proton magnetic moment in nuclear magnetons. It may be +noted that the coulomb spin-orbit term is negligible except at very high +energies. + +Substituting \Eqrefs{62}, \Eqno{64}, \Eqno{67}, and~\Eqno{68} into \Eqref{16} +and transforming to the dimensionless variable +\[ +\rho = kr +\Tag{69} +\] +%% -----File: 021.png---Folio 16------- +we find +\begin{multline} + \left\{\vphantom{\Bigg|} -\frac{d^2}{d\rho^2} + +\frac{\ell(\ell + 1)}{\rho^2} + - \left( \frac{V + iW}{E} \right) + \left( \frac{1}{1 + e^{(\rho - \bar{\rho}_N)/ka}} \right) + \right. \\ +% + + \left( \frac{\hbar}{M_\pi c} \right)^2 + \left( \frac{V_S + iW_S}{E} \right) k^2 + \left[ - \frac{1}{\rho}\, \frac{d}{d\rho} + \left( \frac{1}{1 + e^{(\rho - \bar{\rho}_N)/ka}} \right) \right] + \ellAlt +\Tag{70} \\ +% +\left. + U_\text{Coul} + U_\text{Coul SO} - 1 + \vphantom{\Bigg|}\right\} \Psi_\ell^±(\rho) = 0 +\end{multline} +where +\[ +\begin{aligned} + U_\text{Coul} + &= \frac{\eta}{\bar{\rho}_c} \left( 3 - \frac{\rho^2}{\bar{\rho}_c^2} \right) + && \text{for $\rho \leq \bar{\rho}_c$} \\ + % + &= 2 \eta/\rho && \text{for $\rho \geq \bar{\rho}_c$} +\end{aligned} +\Tag{71} +\] +\[ +\begin{aligned} + U_\text{Coul SO} + &= -\frac{1}{2} \left( \frac{\hbar}{M_P c} \right)^2 + (\mu_P - \tfrac{1}{2}) (2\eta) \left( k^2 / \bar{\rho}_c^3 \right) + \ellAlt && \text{for $\rho \leq \bar{\rho}_c$} \\ +% + &= -\frac{1}{2} \left( \frac{\hbar}{M_P c} \right)^2 + (\mu_P - \tfrac{1}{2}) (2\eta) \left( k^2 / \rho^3 \right) + \ellAlt && \text{for $\rho \geq \bar{\rho}_c$} +\end{aligned} +\Tag{72} +\] +and where +\begin{align*} +\bar{\rho}_N &= k R_N +\Tag{73} \\ +\bar{\rho}_c &= k R_c. +\Tag{74} +\end{align*} +Substituting now % [** PP: Typo substituting] +\begin{align*} +&\left( \frac{\hbar}{M_\pi c} \right)^2 = 2.00 × 10^{-26}~\text{cm}^2 +\Tag{75} \\ +% +&2\eta\, k^2 · \tfrac{1}{2} \left( \frac{\hbar}{M_P c} \right)^2 +\cong 2\eta \left( \frac{E}{M_P c^2} \right) += 2\eta \, \frac{E}{931} +\Tag{76} \\ +% +&\mu_P - \tfrac{1}{2} = 2.7934 - 0.5 = 2.2934 +\Tag{77} +\end{align*} +%% -----File: 022.png---Folio 17------- +into \Eqref{70} yields: +{\small +\begin{align*} + &\frac{d^2}{d\rho^2} \Psi_\ell^± (\rho) + = \left\{ -1 + \frac{\ell(\ell + 1)}{\rho^2} + - \left( \frac{V + iW}{E} \right) + \left( \frac{1}{1 + e^{(\rho - \bar{\rho}_N)}/ka} \right) + + \frac{\eta}{\bar{\rho}_c} + \left( 3 - \frac{\rho^2}{\bar{\rho}_c^2} \right) \right. \\ +% + &+ \left. \left[ 2 \left( \frac{V_S + iW_S}{E} \right) + \left( \frac{k}{a} \right) + \left( \frac{1}{\rho}\, + \frac{e^{(\rho - \bar{\rho}_N)/ka}} + {(1 + e^{(\rho - \bar{\rho}_N)/ka})^2} \right) + - 0.004926\, \frac{\eta E}{\bar{\rho}_c^3} \right] + \ellAlt \right\} + \Psi_\ell^±(\rho), \text{ for $\rho \leq \bar{\rho}_c$} \\ +% + &\qquad= \left\{ -1 + \frac{\ell(\ell + 1)}{\rho^2} + - \left( \frac{V + iW}{E} \right) + \left( \frac{1}{1 + e^{(\rho - \bar{\rho}_N)/ka}} \right) + + \frac{2\eta}{\rho} \right. +\Tag{78} \\ +% + &+ \left. \left[ 2 \left( \frac{V_S + iW_S}{E} \right) + \left( \frac{k}{a} \right) + \left( \frac{1}{\rho}\, + \frac{e^{(\rho - \bar{\rho}_N)/ka}} + {(1 + e^{(\rho - \bar{\rho}_N)/ka})^2} \right) + - 0.004926\, \frac{\eta E}{\rho^3} \right] + \ellAlt \right\} + \Psi_\ell^±(\rho),\text{ for $\rho \geq \bar{\rho}_c$} +\end{align*}}% [** PP: End of \small] + + +\Subsection{2.}{Nuclear Form Factors} + +\Eqref[cap]{78} may be rewritten in such a way as to display explicitly +the various nuclear form factors: +\begin{align*} + &\frac{d^2}{d\rho^2} \Psi_\ell^±(\rho) + = \left\{ -1 + \frac{\ell(\ell+1)}{\rho^2} + - \frac{V}{E}\, f_\CR(\rho) + - i \frac{W}{E}\, f_\CI(\rho) + + \frac{\eta}{\bar{\rho}_c} + \left( 3 - \frac{\rho^2}{\bar{\rho}_c^2} \right) \right. \\ +% + &+ \left. \left[ \frac{V_S}{E}\, \frac{2k}{a}\, f_\SR(\rho) + + i \frac{W_S}{E}\, \frac{2k}{a}\, f_\SI(\rho) + - 0.004926 \frac{\eta E}{\bar{\rho}_c^3} \right] + \ellAlt \right\} + \Psi_\ell^±(\rho), \text{ for $\rho \leq \bar{\rho}_c$} \\ +% + &\qquad= \left\{ -1 + \frac{\ell(\ell+1)}{\rho^2} + - \frac{V}{E}\, f_\CR(\rho) + - i \frac{W}{E}\, f_\CI(\rho) + + \frac{2 \eta}{\rho} \right. +\Tag{79} \\ +% + &+ \left. \left[ \frac{V_S}{E}\, \frac{2k}{a}\, f_\SR(\rho) + + i \frac{W_S}{E}\, \frac{2k}{a}\, f_\SI(\rho) + - 0.004926 \frac{\eta E}{\rho^3} \right] + \ellAlt \right\} + \Psi_\ell^±(\rho), \text{ for $\rho \geq \bar{\rho}_c$} +\end{align*} + +Three basic nuclear form factors and some special modifications of them +are presently available in the program. In addition the coulomb spin-orbit +term may be excluded at will. The required form factors may be chosen by +assigning the proper values to the symbolic quantities \Code{KTRL} as described on +% [** PP: ``pages 41 and 42'' in original] +\hyperref[page:41]{pages~\pageref{page:41}}~\textit{ff}. + +%% -----File: 023.png---Folio 18------- + +\Subsubsection{(a)}{Basic Form Factors} + +\Subsubsubsection{(i)}{Volume absorption} +(\Code{KTRL(I) = 0, I = 1, 7, 8, 9, 10}) +\begin{align*} +f_\CR(\rho) + &= f_\CI(\rho) %[** PP: Slant fraction in original] + = \frac{1}{(1 + e^{(\rho-\bar{\rho}_N)/ka})} +\Tag{80} \\ +f_\SR(\rho) + &= f_\SI(\rho) + = \frac{1}{\rho}\, \frac{e^{(\rho - \bar{\rho}_N)/ka}} + {(1 + e^{(\rho - \bar{\rho}_N)/ka})^2} +\Tag{81} +\end{align*} + + +\Subsubsubsection{(ii)}{Gaussian absorption} +(\Code{KTRL(1) = 1}) + +$f_\CR$ is given by~\Eqno{80}, $f_\SR$ and~$f_\SI$ are given by~\Eqno{81} and +\begin{align*} +f_\CI(\rho) &= e^{-[(\rho - \bar{\rho}_G)/kb]^2} +\Tag{82} \\ +\intertext{where} +\bar{\rho}_G &= k R_\text{OG} m_b^{1/3}, +\Tag{83} +\end{align*} +$R_\text{OG}$ being the nuclear Gaussian radius constant, %[** PP: Typo contant] +and~$b$ determines the Gaussian width. + + +\Subsubsubsection{(iii)}{Square well} +(\Code{KTRL(1) = 2}) +\begin{align*} + f_\CR(\rho) = f_\CI(\rho) + &= 1 \qquad \text{for $\rho \leq \bar{\rho}_N$} \\[-6pt] +\Tag{84} \\[-6pt] + &= 0 \qquad \text{for $\rho \geq \bar{\rho}_N$} \\ +f_\SR(\rho) = f_\SI(\rho) &= 0. % [** PP: Added period] +\Tag{85} +\end{align*} + + +\Subsubsection{(b)}{Special Central Nuclear Form Factors\footnotemark} +\footnotetext{J.S.~Nodvik, Proceedings of the International Conference on the Nuclear +Model, Florida State University, Tallahassee, 1959, pp.~16--23.} +(\Code{KTRL(1) = 0}) + +The purpose of these form factors is to allow one to modify the +knee or tail of the potential curve and produce central rises or depressions +in the real and/or imaginary parts of the central nuclear potential, as +specified by proper choice of the \Code{KTRL}'s. + +%% -----File: 024.png---Folio 19------- + +\Subsubsubsection{(i)}{Form~A} +(\Code{KTRL(7) = 1} for real part, \Code{KTRL(8) = 1} for imaginary part). +\[ +\left. +\begin{aligned} + f_\CR(\rho) \text{ and/or } f_\CI(\rho) + &= \left[1 + h_A(\rho)\right] f_{nA_1}(\rho) & + 0 &< \rho \leq \rho_{m_A} \\ + &= f_{nA_1}(\rho) & + \rho_{m_A} &\leq \rho \leq \bar{\rho}_N \\ + &= f_{nA_2}(\rho) & + \bar{\rho}_N &\leq \rho \leq \rho_\text{max} +\end{aligned} +\right\} +\Tag{86} +\] + + +\Subsubsubsection{(ii)}{Form~B} +(\Code{KTRL(7) = 2} for real part, \Code{KTRL(8) = 2} for imaginary part). +\[ +\left. +\begin{aligned} + f_\CR(\rho) \text{ and/or } f_\CI(\rho) + &= \left[1 + h_B(\rho)\right] f_{nB_1}(\rho) & + 0 &< \rho \leq \rho_{m_B} \\ + &=\quad f_{nB_1}(\rho) & + \rho_{m_B} &\leq \rho \leq \bar{\rho}_N \\ + &=\quad f_{nB_2}(\rho) & + \bar{\rho}_N &\leq \rho \leq \rho_\text{max} +\end{aligned} +\right\} +\Tag{87} +\] + +% [** PP: Changed subscript o to 0 throughout] +The presence of forms~$A$ and~$B$ allows distinct form factors in the real +and imaginary parts. The presence of $A_1$, $A_2$ and~$B_1$, $B_2$ allows distinct shapes +in the knee and tail of the form factors. Letting~$x$ be either $A$ or~$B$, and~$n$ +be either $nA_1$, $nA_2$, $nB_1$, or~$nB_2$, +\begin{align*} + h_x(\rho) + &= h_{0x} \left[ 2 \left( \frac{\rho}{\rho_{m_x}} \right)^3 + - 3 \left( \frac{\rho}{\rho_{m_x}} \right)^2 + 1 \right] + = h_{0x} \left( 1 - \frac{\rho}{\rho_{m_x}} \right)^2 + \left( 1 + \frac{\rho}{\rho_{m_x}} \right) +\Tag{88} \\ +f_n(\rho) + &= \frac{1}{1 + g_n(\rho)} +\Tag{89} \\ +\intertext{where} +g_n(\rho) + &= \exp \left\{ \frac{1}{n}\, \left( \frac{\bar{\rho}_N}{ka} \right) + \left[ \left( \frac{\rho}{\bar{\rho}_N} \right)^n - 1 \right] \right\} +\Tag{90} +\end{align*} +where $h_{0A}$, $h_{0B}$, $nA_1$, $nA_2$, $nB_1$, $nB_2$, $\rho_{m_A}$, $\rho_{m_B}$ are selected constants. (The $n$'s +are always taken as $\geq 0$.) + +\Note{1} If $h_{0x}$ is taken to be zero and $nx_1$, $nx_2$ are taken to be~$1$, forms $A$ +and~$B$ reduce to the volume absorption form. + +\Note{2} The three curves defined by \Eqrefs{86} and~\Eqno{87} join smoothly +with continuous derivatives as long as $\rho_{m_x}$ is chosen less than~$\bar{\rho}_N$. + +\Note{3} Positive values of $h_{0x}$ will produce central rises in the form +factors while negative values will produce a central depression. + +%% -----File: 025.png---Folio 20------- + +\Note{4} If $nx_1 > 1$, the knee of the potential will be sharper than for the +usual volume absorption case, while $0 \leq nx_1 \leq 1$ will soften the knee of the +curve. + +\Note{5} If $nx_2 > 1$, this will shorten the potential tail while $0 \leq nx_2 \leq 1$ +will extend it. + +Some typical shapes are presented in \textsc{Figures~\FigRef{2}}, \FigRef{3}, and~\FigRef{4}. + + +\Subsubsection{(c)}{Special Nuclear Spin-Orbit Form Factors +(\Code{KTRL(1) = 0})} % [** PP: Omitted period] +%****\footnote Error, or refers to previous footnote? + +% [** PP: A and B are labels, not math] +Two special nuclear spin-orbit form factors are available. They +can be applied to the real and/or imaginary parts of the nuclear spin-orbit % [** PP: Added hyphen] +potential. The first of these form factors corresponds to the Thomas term +applied to form~A in the central nuclear potential, while the second uses +form~B itself; this permits one to study the result of deviations from the +Thomas form. + + +\Subsubsubsection{(i)}{Derivative form factor~A} +(\Code{KTRL(9) = 1} for real part, \Code{KTRL(1O) = 1} +for imaginary part) +{\small% [** PP: Hard-coded size change to make everything fit] +\[ +\left. +\begin{aligned} + f_\SR(\rho) \text{ and/or } f_\SI(\rho) + &= (ka) \left[ + -\frac{1}{\rho}\, \frac{d}{d\rho}\, (\text{form factor~A}) + \right] \\ + &= (ka) \left[ -\left( \frac{1}{\rho}\, \frac{dh_A(\rho)}{d\rho} \right) + f_{nA_1}(\rho) + - \left( 1 + h_A(\rho) \right) + \left( \frac{1}{\rho}\, \frac{df_{nA_1}(\rho)}{d\rho} \right) + \right] && \\ + &&&\makebox[-12pt][r]{\text{for $0 \leq \rho \leq \rho_{m_a}$}} \\ + % + &= (ka) \left[ - \frac{1}{\rho}\, \frac{df_{nA_1}(\rho)}{d\rho} + \right] && \makebox[-12pt][r]{\text{for $\rho_{m_a} \leq \rho \leq \overline{\rho}_N$}} \\ + % + &= (ka) \left[ - \frac{1}{\rho}\, \frac{df_{nA_2}(\rho)}{d\rho} + \right] && \makebox[-12pt][r]{\text{for $\bar{\rho}_N \leq \rho \leq \rho_\text{max}$}} +\end{aligned} +\hspace*{-12pt}\right\} +\Tag{91} +\] +}% [** PP: End of \small] +where +\begin{align*} +-\frac{1}{\rho}\, \frac{dh_A(\rho)}{d\rho} + &= \frac{6h_{0A}}{\rho_{m_A}^2} \left( 1 - \frac{\rho}{\rho_{m_A}} \right) +\Tag{92} \\ +-\frac{1}{\rho}\, \frac{df_n{\rho}}{d\rho} + &= \left( \frac{\bar{\rho}_N}{ka} \right) + \frac{1}{\rho^2}\, \left( \frac{\rho}{\bar{\rho}_N} \right)^n + g_n(\rho) \left[ f_n(\rho) \right]^2 +\Tag{93} +\end{align*} +and $f_n(\rho)$ and $g_n(\rho)$ are given by \Eqrefs{89} and~\Eqno{90}. + +%% -----File: 026.png---Folio 21------- + +\Figure{2}{026a} +%[Illustration: Fig. 2. - Central form factor, tail variations] + +\iffalse %% Fig. 2 +%\begin{center} +% \underline{p - Cu \quad $9.75$~\MeV} +% \bigskip +%\end{center} +% +%$\mathrm{RO} = 1.20$, $\mathrm{A} = 0.52$, $\mathrm{HA} = 0$, +%$\mathrm{FN1A} = 1$, $\rho_{m_A} = \bar{\rho}_N = 3.24$ +% +%\begin{tabular}{cccl} +% \textcircled{1} & $\mathrm{FN2A}$ & = & $0.01$ \\ +% \textcircled{2} & $\mathrm{FN2A}$ & = & $1$ \quad (standard \ form \ factor)\\ +% \textcircled{3} & $\mathrm{FN2A}$ & = & $3$ \\ +% \textcircled{4} & $\mathrm{FN2A}$ & = & $10$ +%\end{tabular} +\fi%% End of Fig. 2 + +%% -----File: 027.png---Folio 22------- + +\Figure{3}{027a} +%[Illustration: Fig.~3. - Central form factors; central dips and rises] + +\iffalse %% Fig. 3 +%\begin{center} +% \underline{p - Ag \quad $135$~\MeV} +% \bigskip +%\end{center} +% +%$\mathrm{RO} = 1.25$, $\mathrm{A} = 0.65$, $\mathrm{FN1A} = 1$, $\mathrm{FN2A} = 1$ +% +%\begin{tabular}{ccccccc} +% \textcircled{1} & $\mathrm{HA}=1$ & $\mathrm{PMA}=1$, & $\rho_{m_A}=$ +% & $\bar{\rho}_N=$ & $15.04$ & (standard form factor)\\ + % +% \textcircled{2} & $\mathrm{HA}=1$ & " & " & " & " &\\ + % +% \textcircled{3} & $\mathrm{HA}=-1$ & " & " & " & " &\\ + % +% \textcircled{4} & $\mathrm{HA}=2$, & $\mathrm{PMA}=0.7$, & +% $\rho_{m_A}=$ & $0.7\bar{\rho}_N=$ & $10.53$ & +%\end{tabular} +\fi%% End of Fig. 3 + +%% -----File: 028.png---Folio 23------- + +\Figure{4}{028a} +%[Illustration: Fig.~4. Central form factors, knee variation] + +\iffalse %% Fig. 4 +%\begin{center} +% \underline{p - Cu \quad $9.75$~\MeV} +% \bigskip +%\end{center} +% +%$\mathrm{RO} = 1.20$, $\mathrm{A} = 0.52$, $\mathrm{FN2A} = 1$, +%$\mathrm{PMA} = 1$, $\rho_{m_A}=\bar{\rho}_N=3.24$ +% +%\begin{tabular}{cllc} +% 1. & $\mathrm{FN1A}=0.01$, & $\mathrm{HA}=0$ & \\ +% 2. & $\mathrm{FN1A}=1$, & $\mathrm{HA}=0$ & (standard form factor)\\ +% 3. & $\mathrm{FN1A}=3$, & $\mathrm{HA}=0.046$ & +%\end{tabular} +\fi%% End of Fig. 4 + +%% -----File: 029.png---Folio 24------- + + +% [** PP: Not capitalizing factor, for consistency] +\Subsubsubsection{(ii)}{Form factor~B} +(\Code{KTRL(9) = 2} for real part, \Code{KTRL(10) = 2} for +imaginary part) +\[ +\text{$f_\SR(\rho)$ and/or $f_\SI(\rho) = \frac{1}{2}$. [form factor~B as per \Eqref{87}]} +\Tag{94} +\] + +\Note{} If $h_{0A}$ is taken to be zero while $nA_1$ and~$nA_2$ are taken to be~$1$, the +derivative form factor in~\Eqno{91} becomes identical to the usual spin-orbit +form factor~\Eqno{81}. + +Some typical shapes are presented in \textsc{Figures~\FigRef{5}}, \FigRef{6}, and~\FigRef{7}. + + +\Subsection{3.}{Final Formulation for Machine Calculation} + +The complex radial wave function $\Psi_\ell^±(\rho)$ may be written as +\[ +\Psi_\ell^±(\rho) = x_\ell^±(\rho) + i y_\ell^±(\rho) +\Tag{95} +\] +and \Eqref{79} for $\vec{\sigma} · \vec{\ell} = \ell$ or +$-\ell-1$ can now be separated into two real +coupled differential equations, and dropping the subscripts and superscripts +for convenience: +\[ +\left. +\begin{aligned} + \frac{d^2 x}{d \rho^2} &= px - qy \\ + \frac{d^2 y}{d \rho^2} &= qx + py +\end{aligned} +\right\} +\Tag{96} +\] +where +\[ +\left. +\begin{aligned} + p &= U_\CR + U_\SR \ellAlt + \frac{\ell(\ell+1)}{\rho^2} \\ + q &= U_\CI + U_\SI \ellAlt +\end{aligned} +\right\} +\Tag{97} +\] +Formulas~\Eqno{97} are convenient for programming purposes as the $U$'s are now +independent of~$\ell$, indeed: +\[ +\left. +\begin{aligned} + U_\CR + &= -1 - \frac{V}{E}\, f_\CR + + \frac{\eta}{\bar{\rho}_c} + \left( 3 - \frac{\rho^2}{\bar{\rho}_c^2} \right) + && \text{for $\rho \leq \bar{\rho}_c$} \\ +% + &= -1 - \frac{V}{E}\, f_\CR + + \frac{2\eta}{\rho} + && \text{for $\rho \geq \bar{\rho}_c$} +\end{aligned} +\right\} +\Tag{98} +\] + +%% -----File: 030.png---Folio 25------- + +\Figure{5}{030a} +%[Illustration: Fig. 5. - Spin-orbit form factor(derivative form). Tail variation.] + +\iffalse %% Fig. 5 +%\begin{center} +% \underline{p - Cu \quad $9.75$~\MeV} +% \bigskip +%\end{center} +% +%$\mathrm{RO} = 1.20$, $\mathrm{A} = 0.52$, $\mathrm{HA}=0$, $\mathrm{FN1A} = 1$, +%$\mathrm{PMA} = 1$, $\rho_{m_A}=\bar{\rho}_N=3.24$ +% +%\begin{tabular}{cll} +% \textcircled{1} & $\mathrm{FN2A} = 0.01$ &\\ +% \textcircled{2} & $\mathrm{FN2A} = 1$ & (standard derivative form factor)\\ +% \textcircled{3} & $\mathrm{FN2A} = 3$ &\\ +% \textcircled{4} & $\mathrm{FN2A} = 10$ & +%\end{tabular} +\fi%% End of Fig. 5 + +%% -----File: 031.png---Folio 26------- + +\Figure{6}{031a} +%[Illustration: Fig.~6. - Spin-orbit form factors (derivative form). Effect +%of dips and rises in central form factor] + +\iffalse %% Fig. 6 +%\begin{center} +% \underline{p - Ag \quad $135$~\MeV} +% \bigskip +%\end{center} +% +%$\mathrm{RO} = 1.25$, $\mathrm{A} = 0.65$, $\mathrm{FN1A} = 1$, $\mathrm{FN2A} = 1$ +% +%\begin{tabular}{clccccc} +% \textcircled{1} & $\mathrm{HA}=0$ & $\mathrm{PMA}=1$, & $\rho_{m_A}=$ +% & $\bar{\rho}_N=$ & $15.04$ & (standard derivative form factor)\\ + % +% \textcircled{2} & $\mathrm{HA}=1$ & " & " & " & " &\\ + % +% \textcircled{3} & $\mathrm{HA}=-1$ & " & " & " & " &\\ + % +% \textcircled{4} & $\mathrm{HA}=2$, & $\mathrm{PMA}=0.7$, & +% $\rho_{m_A}=0.7$ & $\bar{\rho}_N=$ & $10.53$ & +%\end{tabular} +\fi%% End of Fig. 6 + +%% -----File: 032.png---Folio 27------- + +\Figure{7}{032a} +%[Illustration: Fig.7. Spin-orbit form factor (derivative form). +%Knee variation.] + +\iffalse %% Fig. 7 +%\begin{center} +% \underline{p - Cu \quad $9.75$~\MeV} +% \bigskip +%\end{center} +% +%$\mathrm{RO} = 1.20$, $\mathrm{A} = 0.52$, $\mathrm{FN2A} = 1$, +%$\mathrm{PMA} = 1$, $\rho_{m_A}=1$, $\bar{\rho}_N=3.24$ +% +%\begin{tabular}{cllc} +% 1. & $\mathrm{FN1A}=0.01$, & $\mathrm{HA}=0$ & \\ +% 2. & $\mathrm{FN1A}=1$, & $\mathrm{HA}=0$ & (standard derivative form factor)\\ +% 3. & $\mathrm{FN1A}=3$, & $\mathrm{HA}=0.046$ & +%\end{tabular} +\fi%% End of Fig. 7 + +%% -----File: 033.png---Folio 28------- + +\begin{align*} + &U_\CI = -\frac{W}{E}\, f_\CI +\Tag{99} \\ +% +&\left. +\begin{aligned} + U_\SR + &= \frac{V_S}{E}\, \frac{2k}{a}\, f_\SR + - 0.004926 \frac{\eta E}{\bar{\rho}_c^3} + && \text{for $\rho \leq \bar{\rho}_c$} \\ + % + &= \frac{V_S}{E}\, \frac{2k}{a}\, f_\SR + - 0.004926 \frac{\eta E}{\rho^3} + && \text{for $\rho \geq \bar{\rho}_c$} +\end{aligned} +\right\} +\Tag{100} \\ +% +&U_\SI = \frac{W_S}{E}\, \frac{2k}{a}\, f_\SI +\Tag{101} +\end{align*} + + +\Subsection{4.}{Numerical Integration} + +\Eqrefs[cap]{96} must be integrated numerically twice for each $\ell=0$ +to $\ell_\text{max}$ where $\ell_{\text{max}+1}$ corresponds to a +partial wave negligibly disturbed by +the scattering. + +The method chosen for numerical integration is the 3-point Runge-Kutta +method: it lends itself to easy starting, permits one to change the +interval quite easily and gives excellent accuracy with relatively large +steps. + +Given $x_{i1}$, $y_{i1}$, $\dot{x}_{i1}$, $\dot{y}_{i1}$, at~$\rho_i$, +where $\dot{x}_{i1} \equiv \left( \frac{dx}{d\rho} \right)_{i,1}$ etc. +\begin{align*} + \ddot{x}_{i1} &= f(x_{i1},y_{i1},\rho_i);\quad + \ddot{y}_{i1} = g(x_{i1},y_{i1},\rho_i) +\Tag{102} \\ +% + x_{i2} &= x_{i1} + \dot{x}_{i1} \frac{\Delta\rho}{2};\quad + y_{i2} = y_{i1} + \dot{y}_{i1} \frac{\Delta\rho}{2} +\Tag{103} \\ +% + \ddot{x}_{i2} &= f(x_{i2},y_{i2},\rho_i+\frac{\Delta\rho}{2});\quad + \ddot{y}_{i2} = g(x_{i2},y_{i2},\rho_i+\frac{\Delta\rho}{2}) +\Tag{104} \\ +% + x_{i3} &= x_{i2} + \ddot{x}_{i1} \frac{(\Delta\rho)^2}{4};\quad + y_{i3} = y_{i2} + \ddot{y}_{i1} \frac{(\Delta\rho)^2}{4} +\Tag{105} \\ +% + \ddot{x}_{i3} &= f(x_{i3},y_{i3},\rho_i+\frac{\Delta\rho}{2});\quad + \ddot{y}_{i3} = g(x_{i3},y_{i3},\rho_i+\frac{\Delta\rho}{2}) +\Tag{106} \\ +% + x_{i4} &= x_{i2} + \dot{x}_{i1} \frac{\Delta\rho}{2} + + \ddot{x}_{i2} \frac{(\Delta\rho)^2}{2};\quad + y_{i4} = y_{i2} + \dot{y}_{i1} \frac{\Delta\rho}{2} + + \ddot{y}_{i2} \frac{(\Delta\rho)^2}{2} +\Tag{107} \\ +% + \ddot{x}_{i4} &= f(x_{i4},y_{i4},\rho_i+\Delta\rho);\quad + \ddot{y}_{i4} = g(x_{i4},y_{i4},\rho_i+\Delta\rho) +\Tag{108} +\end{align*} +%% -----File: 034.png---Folio 29------- +and finally +\begin{align*} + x_{i+1,1} &= x_{i1} + \Delta x_i + = x_{i1} + \frac{(\Delta\rho)^2}{6} + ( \ddot{x}_{i1} + \ddot{x}_{i2} + \ddot{x}_{i3}) + + \Delta\rho \; \dot{x}_{i1} +\Tag{109} \\ +% + \dot{x}_{i+1,1} &= \dot{x}_{i1} + \Delta\dot{x}_i + = \dot{x}_{i1} + \frac{\Delta\rho}{6} + ( \ddot{x}_{i1} + 2\ddot{x}_{i2} + 2\ddot{x}_{i3} + \ddot{x}_{i4}) +\Tag{110} \\ +% + y_{i+1,1} &= y_{i1} + \Delta y_i + = y_{i1} + \frac{(\Delta\rho)^2}{6} + ( \ddot{y}_{i1} + \ddot{y}_{i2} + \ddot{y}_{i3}) + + \Delta\rho \dot{y}_{i1} +\Tag{111} \\ +% + \dot{y}_{i+1,1} &= \dot{y}_{i1} + \Delta\dot{y}_i + = \dot{y}_{i1} + \frac{\Delta\rho}{6} + ( \ddot{y}_{i1} + 2\ddot{y}_{i2} + 2\ddot{y}_{i3} + \ddot{y}_{i4}) +\Tag{112} +\end{align*} + +The process is continued until the nuclear potential becomes negligible +at which time the wave functions and their first derivatives must be saved for +later matching with those of the coulomb function. + +% [** PP: Heading on separate line in original] +\paragraph{Starting values:} +If $\rho_\initial$ is very small, the following starting values may be used: +\[ +\left. +\begin{aligned} + x_\ell (\rho = \rho_\initial) = (\Delta\rho_1)^{\ell+1};\quad + \dot{x}_\ell (\rho = \rho_\initial) = (\ell+1)(\Delta\rho_1)^\ell \\ + % + y_\ell (\rho = \rho_\initial) = 0;\quad + \dot{y}_\ell (\rho = \rho_\initial) = 0 +\end{aligned} +\right\} +\Tag{113} +\] + + +\Subsection{5.}{Coulomb Functions} + +The regular and irregular coulomb functions are given by the following +asymptotic formulas which may be used successfully for large values of~$\rho$: +% [** PP: right-align braces in following groups] +\begin{align*} +\left. +\begin{aligned} + F_0 &\sim \sin[\Real(\varphi_0)] e^{-\Imag(\varphi_0)} \\ + F_1 &\sim \sin[\Real(\varphi_1)] e^{-\Imag(\varphi_1)} \\ + G_0 &\sim \cos[\Real(\varphi_0)] e^{-\Imag(\varphi_0)} \\ + G_1 &\sim \cos[\Real(\varphi_1)] e^{-\Imag(\varphi_1)} +\end{aligned} +\right\} & % Top-level alignment stop +\Tag{114} \\ +\intertext{where} +\left. +\begin{aligned} + \varphi_0 &= \rho - \eta\, \ell n\, 2\rho + \sigma_0 + + \sum_{k=2}^\infty \frac{a_k}{\rho^{k-1}} \left( \frac{1}{1-k} \right)\\ + % + \varphi_1 &= \rho - \eta\, \ell n\, 2\rho + \sigma_1 - \frac{\pi}{2} + + \sum_{k=2}^\infty \frac{b_k}{\rho^{k-1}} \left( \frac{1}{1-k} \right) +\end{aligned} +\right\} & % Top-level alignment stop +\Tag{115} \\ +%% -----File: 035.png---Folio 30------- +\intertext{and where} +\left. +\begin{gathered} + a_1 = -\eta, \quad a_2 = \frac{ -\eta^2}{2} + i\eta \\ + b_1 = -\eta, \quad b_2 = -\frac{2+\eta^2}{2} + i \frac{\eta}{2} \\ + a_k = -\left( \frac{1}{2} \sum_{m=1}^{k-1} a_m\, a_{k-m} \right) + - i \frac{k-1}{2}\, a_{k-1} +\end{gathered} +\right\} & % Top-level alignment stop +\Tag{116} \\ +\intertext{with a similar recurrence formula holding for~$b_k$} +\left. +\begin{aligned} + \sigma_0 &= \arg \Gamma(1 + i\eta) \\ + \sigma_1 &= \sigma_0 + \tan^{-1}\eta +\end{aligned} +\right\} & % Top-level alignment stop +\Tag{117} +\end{align*} +Furthermore the quantity~$\sigma_0$ may be successfully approximated over the whole +range of~$\eta$ by the following formula: +\begin{align*} + \sigma_0 + &= -\eta + \left( \frac{\eta}{2} \right) \ln(\eta^2+16) + + \frac{7}{2} \tan^{-1} \left( \frac{\eta}{4} \right) + - \left[ \tan^{-1}\eta + \tan^{-1} \left( \frac{\eta}{2} \right) + + \tan^{-1} \left( \frac{\eta}{3} \right) \right] \\ +& +\Tag{118} \\ + % + &\quad - \frac{\eta}{12(\eta^2 + 16)} + \left[ 1 + \frac{1}{30}\, \frac{\eta^2 - 48}{(\eta^2 + 16)^2} + + \frac{1}{105}\, \frac{\eta^4 - 160 \eta^2 + 1280}{(16 + \eta^2)^4} + \right]. +\end{align*} + +The above formulas which can of course be generalized for any value of~$\ell$ are +equivalent though not formally identical to the formulas listed by Abramowitz\footnote + {Tables of Coulomb Wave Functions, Vol.~I, National Bureau of Standards, + Applied Mathematics Series~17, Washington, 1952, p.~XV.} +and by Fröberg\footnote + {C.~E.\ Fröberg, Rev.\ Mod.\ Phys. \textbf{27}, 399 (1955).}. + +Rather than use these formulas for obtaining $F_\ell$ and~$G_\ell$ for any value of +$\ell > 1$, it is preferable to make use of recurrence formulas. + +The following upward recurrence formula is suitable for finding~$G_\ell$: +\[ +G_{\ell+1} += \frac{(2\ell + 1) \left[ \eta + \frac{\ell(\ell + 1)}{\rho} \right] G_\ell + - (\ell + 1) \left[ \ell^2 + \eta^2 \right]^{1/2} G_{\ell-1}} + {\ell \left[ (\ell + 1)^2 + \eta^2 \right]^{1/2}}. +\Tag{119} +\] + +%% -----File: 036.png---Folio 31------- + +A similar recurrence relation can only be used for downward recurrence +on the~$F_\ell$'s, otherwise results rapidly lose all significance. This may be +done by means of a method due to Stegun and Abramowitz\footnote + {Stegun and Abramowitz, Phys.\ Rev.\ \textbf{98}, 1851 (1955).} and which is essentially +as follows. + +Let it be required to compute~$F_\ell$ from $\ell=0$ to $\ell=\ell_\text{max}$. +\begin{itemize} +\item[(1)] Let $\ell^{(1)} = \ell_\text{max} + 10$ + +(The number~10 is arbitrary but has found satisfactory from practical +experience) + +Let $F_{\ell^{(1)}+1}^{(1)} = 0$ and $F_{\ell^{(1)}}^{(1)} =0.1$. Successive values of~$F_\ell^{(1)}$ can be computed +from $\ell=0$ to $\ell=\ell^{(1)}-1$ by means of the downward recurrence formula: +\[ +F_{\ell-1}^{(1)} + = \frac{(2\ell + 1) \left[ \eta + \frac{\ell(\ell+1)}{\rho} \right] F_\ell^{(1)} + - \ell \left[ (\ell + 1)^2 + \eta^2 \right]^{1/2} F_{\ell+1}^{(1)}} + {(\ell + 1)\left[\ell^2 + \eta^2\right]^{1/2}}. +\Tag{120} +\] +Letting the constant +\[ +\alpha = (F_0^{(1)} G_1 - F_1^{(1)} G_0)(1 + \eta^2)^{1/2} +\Tag{121} +\] +one may compute successively +\[ +F_\ell = F_\ell^{(1)}\alpha^{-1} +\Tag{122} +\] +for $\ell = \ell_\text{max} + 1$ to $\ell=0$. + +\item[(2)] To verify the accuracy of the~$F_\ell$'s obtained above one may compute as above +a new set of functions $F_\ell^{(2)}$ starting perhaps from $\ell^{(2)} = \ell^{(1)} + 5$ (again the +number~5 is obtained from practical experience) and letting now $F_{\ell^{(2)}+1}^{(2)} = 0$, +$F_{\ell^{(2)}}^{(2)} = 0.1$. This yields a new set of~$F_\ell$'s. + +\item[(3)] Comparison of the two sets of~$F_\ell$'s obtained in~(1) and~(2) above indicates +the accuracy of the computation. If this proves insufficient, let $\ell^{(3)} =\ell^{(2)} +5$ +and starting from $F_{\ell^{(3)}+1}^{(3)} = 0$, $F_{\ell^{(3)}}^{(3)} = 0.1$ one may obtain a third +set set of~$F_\ell$'s which is to be compared with the second set. + +This procedure may be continued until two successive sets of~$F_\ell$'s are +found to agree. The derivatives of the coulomb functions may be obtained +from the formula +\[ +Y_\ell^{'} + = \frac{ \left[ \frac{(\ell+1)^2}{\rho} + \eta \right] Y_\ell + - \left[ (\ell + 1)^2 + \eta^2 \right]^{1/2} Y_{\ell+1}}{(\ell+1)} +\Tag{123} +\] +%% -----File: 037.png---Folio 32------- +where $Y_\ell$ stands for either $F_\ell$ or~$G_\ell$. +\end{itemize} + + +\Subsection{6.}{Phase Shifts} + +The phase shifts are obtained in the usual fashion by matching +the logarithmic derivatives of the coulomb functions with those of the +numerically integrated functions at a value of~$\rho$ sufficiently large so +that the nuclear potential becomes negligible. + +Matching the logarithmic derivative of the nuclear function +$\Psi_\ell = x_\ell + i y_\ell$ with that of its asymptotic form +\[ +F_\ell + (G_\ell + i F_\ell) C_\ell +\] +yields +\[ +\frac{\Psi_\ell^{'}}{\Psi_\ell} + = \frac{F_\ell^{'} + (G_\ell^{'} + i F_\ell^{'}) C_\ell} + {F_\ell + (G_\ell + i F_\ell) C_\ell} +\Tag{124} +\] +which lead to +\[ +C_\ell^± + = \frac{\Psi_\ell^± F_\ell^{'} - \Psi_\ell^{±'} F_\ell} + {\Psi_\ell^{± '} G_\ell - \Psi_\ell^± G_\ell^{'} + + i (\Psi_\ell^{± '} F_\ell - \Psi_\ell^± F_\ell^{'})} +\Tag{125} +\] +the quantities $C_\ell$ being related to the complex phase shifts through \Eqref{57}. + + +\Subsection{7.}{Cross Section and Polarization} + +The differential elastic scattering cross section~$\sigma(\theta)$ and the +polarization~$P(\theta)$ for an unpolarized incident beam are obtained % [** PP: Typo obtain] +from +\Eqrefs{34} and~\Eqno{35} while the reaction cross section may be obtained % [** PP: Typo obtain] +as follows. +\[ +\sigma_R = \frac{N_\abs}{N_\inc} +\Tag{126} +\] +where $N_\abs$ is the absorbed flux, and $N_\inc$ is the incident flux which was +assumed to be~$1$ (see \Eqref{7}). By definition, +\[ +N_\abs = - \frac{\hbar}{2i\mu} + \int\left[ \Psi_\total^\dagger \frac{\partial\Psi_\total}{\partial r} + - \Psi_\total \frac{\partial\Psi_\total^\dagger}{\partial r} \right] + r_0^2 \sin\theta\, d\theta\, d\varphi +\Tag{127} +\] +where the integral is taken over the surface of a large sphere of radius +$r = r_0$. Substituting \Eqref{51} for $\Psi_\total$ into \Eqref{127} and +%% -----File: 038.png---Folio 33------- +making use of the orthonormality of the $\Y^{m_j}_{j,\ell,s}$'s and of the relation +\[ +\left| a_{1/2} \right|^2 + \left| a_{-1/2} \right|^2 - 1, +\Tag{128} +\] +yields after carrying out the surface integration: +\begin{align*} +\sigma_R = N_\abs + &= \frac{4\pi}{V} \sum^\infty_{\ell=0} (\ell + 1) + \left\{ r^2 \left( -\frac{\hbar}{2i\mu} \right) + \left[ \frac{\Psi_\ell^{+*}}{kr} + \frac{\partial}{\partial r} \left( \frac{\Psi_\ell^{+}}{kr} \right) + - \frac{\Psi_\ell^{+}}{kr} + \frac{\partial}{\partial r} \left( \frac{\Psi_\ell^{+*}}{kr} \right) + \right] \right\}_{r=r_0} \\ + % +& \Tag{129} \\ + &- \frac{4\pi}{V} \sum^\infty_{\ell=0} \ell + \left\{ r^2 \left( -\frac{\hbar}{2i\mu} \right) + \left[ \frac{\Psi_\ell^{-*}}{kr} + \frac{\partial}{\partial r} \left( \frac{\Psi_\ell^{-}}{kr} \right) + - \frac{\Psi_\ell^{-}}{kr} + \frac{\partial}{\partial r} \left( \frac{\Psi_\ell^{-*}}{kr} \right) + \right] \right\}_{r=r_0} +\end{align*} +Now substituting the asymptotic form~\Eqno{52} for~$\Psi_\ell^±$ and making use of the +Wronskian relations +\[ +G_\ell F'_\ell - F_\ell G'_\ell = 1 +\Tag{130} +\] +we are led to the following: +{\small +\[ +\frac{4\pi}{V} \left\{ r^2 \left( -\frac{\hbar}{2i\mu} \right) + \left[ \frac{\Psi_\ell^{±*}}{kr} + \frac{\partial}{\partial r} \left( \frac{\Psi_\ell^±}{kr} \right) + - \frac{\Psi_\ell^{±}}{kr} + \frac{\partial}{\partial r} \left( \frac{\Psi_\ell^{±*}}{kr} \right) + \right] \right\}_{r=r_0} + = \frac{4\pi}{k^2} \left[ \Imag(C_\ell^±) - |C_\ell^±|^2 \right]. +\Tag{131} +\]}% [** PP: End of \small] +Finally, substitution of~\Eqno{131} into~\Eqno{129} yields +\begin{align*} +\sigma = \frac{4\pi}{k^2} \sum^\infty_{\ell=0} \biggl\{ + &(\ell + 1) + \Bigl[ + \Imag(C_\ell^+) - \bigl(\Imag(C_\ell^+)\bigr)^2 + - \bigl(\Real(C_\ell^+)\bigr)^2 \Bigr] \\ + &\qquad+ \ell + \Bigl[ + \Imag(C_\ell^-) - \bigl(\Imag(C_\ell^-)\bigr)^2 + - \bigl(\Real(C_\ell^-)\bigr)^2 \Bigr] \biggr\}. +\Tag{132} +\end{align*} + +\Note{} The quantities $e^{2i\sigma_\ell}$ appearing in \Eqref{60} may be obtained by the +following recurrence formulas: +\[ +\begin{aligned} +\Real(e^{2i\sigma_{\ell + 1}}) + &= \cos 2\sigma_{\ell + 1} + = \left[ \frac{(\ell + 1)^2 - \eta^2}{(\ell + 1)^2 + \eta^2} + \cos 2\sigma_\ell \right] + - \left[ \frac{2\eta(\ell + 1)}{(\ell + 1)^2 + \eta^2} + \sin 2\sigma_\ell \right] \\ +% +\Imag(e^{2i\sigma_{\ell + 1}}) + &= \sin 2\sigma_{\ell + 1} + = \left[ \frac{(\ell + 1)^2 - \eta^2}{(\ell + 1)^2 + \eta^2} + \sin 2\sigma_\ell \right] + + \left[ \frac{2\eta(\ell + 1)}{(\ell + 1)^2 + \eta^2} + \cos 2\sigma_\ell \right] +\end{aligned} +\Tag{133} +\] +while the Legendre polynomials obey the usual relations +%% -----File: 039.png---Folio 34------- +\begin{gather*} +P_0 (\cos\theta) = 1,\quad P_1 (\cos\theta) = \cos\theta \\ +% +P_{\ell+1}(\cos\theta) + = \frac{1}{\ell+1} \left[ (2\ell+1) \cos\theta P_\ell (\cos\theta) + - \ell P_{\ell-1}(\cos\theta) \right] +\Tag{134} \\ +% +P_\ell^{(1)}(\cos\theta) + = \frac{\ell+1}{\sin\theta} \left[ \cos\theta P_\ell(\cos\theta) + - P_{\ell+1}(\cos\theta) \right]. +\Tag{135} +\end{gather*} +One may also compute the Rutherford scattering cross section: +\[ +\sigma_c(\theta) = \left| f_c(\theta) \right|^2. +\Tag{136} +\] + + +\Subsection{8.}{Chi Square Deviation} + +Experimental and theoretical quantities may be compared by means of +the chi square deviation: +\[ +\chi_T^2 = \chi_\sigma^2 + \chi_P^2 +\Tag{137} +\] +where +\begin{align*} +\chi_\sigma^2 &= \sum_\theta \chi_\sigma^2(\theta) + = \sum_\theta \left[ + \frac{\sigma^\text{th}(\theta) - \sigma^\text{ex}(\theta)} + {\Delta\sigma^\text{ex}(\theta)} + \right]^2 +\Tag{138} \\ +% +\chi_P^2 &= \sum_\theta \chi_P^2(\theta) + = \sum_\theta \left[ + \frac{P^\text{th}(\theta) - P^\text{ex}(\theta)} + {\Delta P^\text{ex}(\theta)} + \right]^2 +\Tag{139} +\end{align*} +where the $\sigma^\text{th}(\theta)$ and~$P^\text{th}(\theta)$ are the theoretically obtained cross sections and +polarizations while $\sigma^\text{ex}(\theta)$, $\Delta\sigma^\text{ex}(\theta)$, $P^\text{ex}(\theta)$, +$\Delta P^\text{ex}(\theta)$ are respectively the +experimentally given cross sections, standard deviations in the cross sections, +polarization and standard deviations in the polarization. + +It should be noted that the constants were chosen such that the +differential and reaction cross section will be obtained in units of +$10^{-26}~\text{cm}^2$. The polarizations are of course dimensionless ratios. + + +\Subsection{9.}{Normalization} + +The radial wave functions~$\Psi_\ell^{±}$ and their derivatives obtained from +numerical integration of the radial Schroedinger equation contain an arbitrary +normalization factor,~$1/M_\ell^±$. This factor however does not affect the +cross section and polarization since these are obtained from the phase +%% -----File: 040.png---Folio 35------- +shifts which in turn are obtained from ratios of logarithmic derivatives +(see \Eqref{125}) wherein the~$M_\ell$'s cancel out. If on the other hand the +normalized radial wave functions and their derivatives are required, the +normalization terms may be obtained as follows: + +The asymptotic form of~$\Psi_\ell^±$ must obey \Eqref{52} but improper +normalization results in the fact that the calculated wave functions are +actually given by +\[ +x_\ell^±(\rho) + iy_\ell^±(\rho) + = M_\ell^± \left\{ F_\ell(\eta, \rho) + + C_\ell^± \left[ G_\ell(\eta, \rho) + + i F_\ell(\eta, \rho) \right] \right\} +\Tag{140} +\] +Now, for $\rho \leq \rho_\text{max}$ the nuclear potentials are negligible and \Eqref{52} +represents the exact solution; in particular, at $\rho = \rho_\text{max}$, we must have +\[ +x_\ell^±(\rho_\text{max}) + iy_\ell^±(\rho_\text{max}) + = M_\ell^± \left\{ F_\ell(\eta, \rho_\text{max}) + + C_\ell^± \left [ G_\ell(\eta, \rho_\text{max}) + + i F_\ell(\eta, \rho_\text{max}) \right] \right\} +\Tag{141} +\] +whereby +\[ +M_\ell^± + = \frac{x_\ell^±(\rho_\text{max}) + i y_\ell^±(\rho_\text{max})} + {F_\ell(\eta, \rho_\text{max}) + + C_\ell^± \left[ G_\ell(\eta, \rho_\text{max}) + + i F_\ell(\eta, \rho_\text{max}) \right]} +\Tag{142} +\] +and the normalized radial wave functions and their derivatives are given by +\[ +\left. +\begin{aligned} +\Psi_\ell^±(\rho) + &= \frac{1}{M_\ell^±} + \left[ x_\ell^±(\rho) + iy_\ell^±(\rho) \right] \\ +% [** PP: Typo d\Psi_\ell(\rho) below?] +\frac{d\Psi_\ell^±(\rho)}{d\rho} + &= \frac{1}{M_\ell^±} + \left[ \dot{x}_\ell^±(\rho) + i\dot{y}_\ell^±(\rho) \right] +\end{aligned} +\right\} +\Tag{143} +\] +and the complete normalized wave function is given in \Eqref{51} with +$\Psi_\ell^±$ as above in \Eqref{143}. + +\Note{} During the numerical integration the program may renormalize the wave +functions and their derivatives at any value of~$\rho$ for which overflow takes +place by dividing the functions and their derivatives by the largest of these. +This is accompanied by an explicit printout as explained %[** PP: Typo expained] +in the description +of subroutine \Code{RKINT}. Such occasional internal renormalization must of course +be taken into account if correctly normalized functions are required. + +%% -----File: 041.png---Folio 36------- + + +\Chapter{III.}{Program Description} + +\Section{A.}{General Description} + +\Subsection{1.}{Machine Specifications} + +Program \SCAT{4} has been written for an \Acro{IBM~704} with floating point +traps or an \Acro{IBM~709}, with a 32,768~words memory, no drum and a minimum of +two tape units. + +The program can probably be modified for a 16K~memory by reducing +the number of~$\theta$'s (up to 75 allowed here) and the number of~$\ell$'s (up to 50 +allowed here). A large part of the memory (7500~words) is occupied by the +Legendre polynomials and this may also be reduced by computing the polynomials +as required. Furthermore, the program contains a large number of +printouts % [** PP: Removed hyphen] +which may be abbreviated to save storage space. + + +\Subsection{2.}{General Program Description} + +The program was designed to compute cross sections, polarizations +and chi square deviations at a number of specified points in the space of +the optical model parameters \Code{V}, \Code{W}, \Code{A}, \Code{VS}, \Code{WS}, and if needed~\Code{BG} (\Code{RO}, \Code{RC} and +\Code{RG} are kept fixed), for a given set of input data. + +The time to carry out a run for a single set of parameters depends +of course upon the maximum values of~$\ell$ and~$\rho$; for p-Cu at 10~\MeV\ ($\ell_\text{max} = 10$, +$\rho = 0.0625$ $(.0625)\, 0.50$ $(0.25)\,10.0$) % [** PP: Parallel construction?] +a run takes about 45~seconds including +about 15~seconds for maximum output to tape. + +The program has been written in the form of subroutines to allow +easy checking and modification. Some of these subroutines are not yet +available, but some provision have been made to include them in the future. +The following subroutines written in \FORTRAN\ are specific (sub)routines of +the program: +\begin{center} +\begin{tabular}{lcp{1in}>{\qquad}lcp{1in}} + Main routine & -- & \Code{MAIN4} & & & \\ + Subroutine & -- & \Code{CTRL4} & & & \\ + Subroutine & -- & \Code{INPT4} & Subroutine & -- & \Code{PGEN4} \\ + Subroutine & -- & \Code{POT1CH} & Subroutine & -- & \Code{INTCTR}\\ + Subroutine & -- & \Code{POP1} & Subroutine & -- & \Code{RKINT} \\ + Subroutine & -- & \Code{SIGZRO} & Subroutine & -- & \Code{CSUBL} \\ + Subroutine & -- & \Code{FSUBC} & Subroutine & -- & \Code{AB} \\ + Subroutine & -- & \Code{EXSGML} & Subroutine & -- & \Code{SGSGCP}\\ + Subroutine & -- & \Code{RHOTB} & Subroutine & -- & \Code{SIGMAR}\\ + Subroutine & -- & \Code{COULFN} & Subroutine & -- & \Code{CHISQ} \\ + Subroutine & -- & \Code{RMXINC} & Subroutine & -- & \Code{OUTPT4}\\ +\end{tabular} +\end{center} +%% -----File: 042.png---Folio 37------- +The following subroutines are general utility routines used by the program: +\begin{itemize} +\item[]Subroutine - \Code{SKIP} written in \FORTRAN\ +\item[]Subroutine - \Code{LEAVE} written in \FORTRAN\ +\item[]Subroutine - \Code{SPILL} written in \Acro{FAP} +\end{itemize} +The following subroutines are used in conjunction with the Load-and-Go +system in use at WDPC (Western Data Processing Center, UCLA). The effect +of using this system is described in \hyperref[ref:III.A.3]{section~III-A-3} below. +\begin{itemize} +\item[]Subroutine - \Code{SAVE} +\item[]Subroutine - \Code{PDUMP} +\item[]Subroutine - \Code{EXIT} +\end{itemize} +\bigskip +The program assumes the presence of the following Fortran elementary function +subroutines: +\begin{center} +\begin{tabular}{lcl} +\Code{LOGF } & -- & (natural logarithm) \\ +\Code{SINF } & -- & (sine) \\ +\Code{COSF } & -- & (cosine) \\ +\Code{EXPF } & -- & (exponential) \\ +\Code{SQRTF} & -- & (square root) \\ +\Code{ATANF} & -- & (arc tangent) \\ +\end{tabular} +\end{center} + + +\Subsection{3.}{Use of the WDPC Load-and-Go System} +\phantomsection\label{ref:III.A.3}% ad hoc + +Program \SCAT{4} has been written for the Load-and-Go system in use at +the WDPC, UCLA\@. This \emph{only} affects it as follows: + +\Subsubsubsection{(i)}{Special subroutines of the load-and-go system.} + +\Subroutine{\Code{SAVE}} + +The purpose of this subroutine is to allow the operator to interrupt +the calculation without loss. The program is normally run with Sense Switch~1 +off; turning on Sense Switch~1 will cause the program to call \Code{SAVE} after +completing the innermost \Code{DO} loop of subroutine \Code{CTRL4}. \Code{SAVE} then writes +on tape the content of the core memory as well as all other information +required to continue the computation such as the contents of the AC, MQ, +index registers, etc\ldots. % ** Registers + +A restart routine will then later reload the core memory, reset +all registers etc\ldots, and return right after the \Code{CALL SAVE} statement. +The following statements up to statement number~66 are then required to +properly position the input data tape as the latter was probably rewound +when the computation was interrupted. + +%% -----File: 043.png---Folio 38------- + +To eliminate the use of subroutine \Code{SAVE}, remove from subroutine \Code{CTRL4} +all statements from statement number~118 to statement number~66 inclusive. + +\Subroutine{\Code{PDUMP}($\alpha$,$\beta$)} + +The purpose of this subroutine is to provide a partial core dump of all +quantities between the location of the arguments in the call statement. Subroutine +\Code{PDUMP} is called by subroutine \Code{LEAVE} whenever difficulties such as +overflow or division by zero take place. + +To eliminate subroutine \Code{PDUMP}, replace in subroutine \Code{LEAVE} the statement +\Code{CALL} \Code{PDUMP(A,ZZ)} by whatever statements will cause the required core dump. + +\Subroutine{\Code{EXIT}} + +This subroutine terminates the program. + +To eliminate subroutine \Code{EXIT}, replace statement number~151 in subroutine +\Code{INPT4} by whatever statement will be used to terminate the program. + + +\Subsubsubsection{(ii)}{\Code{END} Statements.} + +The usual \FORTRAN\ \Code{END} statements do not appear in the program as +the load-and-go system provides them automatically. + + +\Subsubsubsection{(iii)}{Input and Output Statements.} + +In conjunction with the load-and-go system, the program is input +from tape, while the input data is brought in from tape~7 and all the output +is to % [** PP: sic, no auxiliary verb] +tape~6. + +All these particular features can of course be easily modified to +use the program either directly or in conjunction with any other system. + + +\Subsection{4.}{Error Indications:} + +\Subsubsubsection{(i)}{Division by zero.} + +Every division which could conceivably have a zero divisor +either because of the range of numbers used or because of an error in the +input data is followed by an \Code{IF DIVIDE CHECK}. Detection of a zero denominator is +then followed by an explicit print out and a \Code{CALL LEAVE} statement which leads +to the next set of input data. In order to be sure that no division by zero +remains undetected, every subroutine which contains an \Code{IF DIVIDE CHECK} statement +also begins with an \Code{IF DIVIDE CHECK} to verify that the trigger is off at the +start of the subroutine; if the divide check trigger is found on at the start, +there is an explicit printout % [** PP: Removed hyphen] +to that effect followed by a \Code{CALL LEAVE} statement. + +%% -----File: 044.png---Folio 39------- + +\Subsubsubsection{(ii)}{Overflow. Underflow.} +\phantomsection\label{ref:III.A.4.ii}% ad hoc + +Overflow and underflow are monitored by subroutine \Code{SPILL} (\Code{JSPILL}, +\Code{ISPILL}, $x$, $y$) which needs only be called once by \Code{MAIN4}. When \Code{SPILL} is +called, it replaces the quantities \Code{JSPILL} and % [** PP: Typo AND] +\Code{ISPILL} by zeros. Thereafter, +in case of overflow (underflow) the subroutine replaces the overflowed +(underflowed) quantity with $x$ ($y$) % [** PP: Added space] +and places into \Code{JSPILL} (\Code{ISPILL}) the +address of the command which caused overflow (underflow) to occur for +the first time. Program \SCAT{4} uses $x=y=0$. + +Every subroutine in which computations are carried out starts by +setting \Code{ISPILL} and \Code{JSPILL} equal to zero to insure correct identification +of possible subsequent overflow or underflow. The subroutine then ends +with a check of \Code{ISPILL} and \Code{JSPILL}. If either of these is not zero, there +is an explicit printout % [** PP: Removed hyphen] +describing the overflow or underflow. Underflow +results therefore in substituting zero for the underflowed quantity, but +the computation proceeds. Overflow on the other hand results in substituting +zero for the overflowed quantity and leads to a \Code{CALL LEAVE} statement to +stop the computation. + + +\Section{B.}{Detailed Descriptions of the Specific Routines of the Program} + +\Routine{\Code{MAIN4}} + +The main routine which is only used at the start of the program carries out +the following steps: + +\begin{itemize} + \item[1)] Calls \Code{SPILL} which controls overflow and underflow (see \hyperref[ref:III.A.4.ii]{III-A-4-ii}). + One such call statement is sufficient to put \Code{SPILL} in permanent + control for all subroutines. + + \item[2)] Sets up \Code{EPS1}, \Code{EPS2}, \Code{EPS3}, which are constants used to control the + accuracy of the Coulomb functions computations, and \Code{EPS4} which is + used in subroutine \Code{POT1CH}. + + \item[3)] Inputs identification and program numbers. + + \item[4)] Calls \Code{CTRL4}. +\end{itemize} + +\Routine{\Code{CTRL4} (Control~4)} + +This subroutine controls the whole flow of the program. It was coded as a +subroutine to allow it to be called by subroutine \Code{LEAVE}. It carries out the +following steps: + +\begin{itemize} + \item[1)] Advances group identification and resets run identification numbers. + + \item[2)] Call \Code{INPT4}. + +%% -----File: 045.png---Folio 40------- + + \item[3)] Calls \Code{POT1CH}. + + \item[4)]% + {\setlength{\tabcolsep}{0pt}\begin{tabular}[t]{l} + If \Code{KTRL(5) = 1}, calls \Code{POP1} \\ + if \Code{KTRL(5) = 0}, proceeds. \\ + \end{tabular}} + + \item[5)] Calls \Code{SIGZRO}, \Code{FSUBC}, \Code{EXSGML}. + + \item[6)] Sets up five (or six) nested \Code{DO} loops for varying successively + $V$, $W$, $a$, $V_s$, $W_s$ (and $b$ for a surface absorption potential). The + following steps are always done within the innermost \Code{DO} loop: + + \begin{itemize} + \item[a)]% + {\setlength{\tabcolsep}{0pt}\begin{tabular}[t]{l} + If Sense Switch~1 is on, calls \Code{SAVE} \\ + if Sense Switch~1 is off, proceeds. \\ + \end{tabular}} + + \item[b)] Advances run identification number. + +% [** PP: Overfull but not visually jarring] + \item[c)] Calls \Code{RHOTB}, \Code{COULFN}, \Code{RMXINC}, \Code{PGEN4}, \Code{INTCTR}, \Code{CSUBL}, \Code{AB}, \Code{SGSGCP}, \Code{SIGMAR}. + + \item[d)]% + {\setlength{\tabcolsep}{0pt}\begin{tabular}[t]{l} + If \Code{KTRL(2) = 0}, proceeds \\ + if \Code{KTRL(2) = 1}, calls \Code{CHISQ}. \\ + \end{tabular}} + + \item[e)] Calls \Code{OUTPT4}. + \end{itemize} + +\item[7)] When all the \Code{DO} loops have been completed, returns to step~1. +\end{itemize} + +\Routine{\Code{INPT4} (Input~4)} + +\begin{itemize} + \item[1)] Inputs \Code{KTRL(1)}; + {\setlength{\tabcolsep}{0pt}\begin{tabular}[t]{l} + if \Code{KTRL(1) = 100}, calls \Code{EXIT} \\ + if \Code{KTRL(1)} $\neq$ \Code{100}, proceeds. \\ + \end{tabular}} + + \item[2)] Inputs \Code{KTRL(I)}, \Code{I = 2 to 13}. + + \item[3)] Inputs \Code{FMI}, \Code{FMB}, \Code{ELAB}, \Code{ZZ}, \Code{RC}, \Code{V}, \Code{W}, \Code{RO}, \Code{A}, \Code{VS}, \Code{WS}, \Code{RG}, \Code{BG}, \Code{DV}, \Code{DW}, + \Code{DA}, \Code{DVS}, \Code{DWS}, \Code{DBG}, \Code{HA}, \Code{PMA}, \Code{FN1A}, \Code{FN2A}, \Code{HB}, \Code{PMB}, \Code{FN1B}, \Code{FN2B}, \Code{NVMAX}, + \Code{NWMAX}, \Code{NAMAX}, \Code{NVSMAX}, \Code{NWSMAX}, \Code{NBGMAX}. + + \item[4)] Sets up \Code{TV = V} to \Code{TBG = BG} (starting values of the parameters). + + \item[5)] Inputs \Code{NMAX}, forms \Code{NMAXP = NMAX-1}. + + \item[6)] Inputs \Code{RHOIN(I)}, \Code{I = 1 to NMAX} and \Code{DRHOIN(I), I = 1 to NMAXP}. + + \item[7)] Computes \Code{FMU} as per \Eqref{5} \\ + Computes \Code{ECM} as per \Eqref{6} \\ + Computes \Code{FKAY} as per \Eqref{8} \\ + Computes \Code{RHOBN} as per \Eqref{73} \\ + Computes \Code{RMA} and \Code{RMB} + (see \hyperref[chapter:V.]{Glossary}, under \Code{PMA}, \Code{PMB}) \\ + Computes \Code{RHOBC} as per \Eqref{74} \\ + Computes \Code{ETA} as per \Eqref{43}. + + \item[8)] Inputs \Code{LMAXM}, forms \Code{IMAX = LMAXM + 1}. + + \item[9)] Sets \Code{IIN(J) = 1, J = 1 to LMAX} (see description of subroutine \Code{INTCTR}) + +%% -----File: 046.png---Folio 41------- + + \item[10)]% + {\setlength{\tabcolsep}{0pt}\begin{tabular}[t]{ll} + If \Code{KTRL(5) = 0}, & proceeds \\ + if \Code{KTRL(5)} $\neq$ \Code{0}: & + \begin{tabular}[t]{l} + a) inputs \Code{JMAX} \\ + b) inputs \Code{THETAD(I), I = 1 to JMAX} \\ + c) computes \Code{THETA(I), I = 1 to JMAX}. \\ + \end{tabular} \\ + \end{tabular}} + \phantomsection\label{page:41}% ad hoc + + \item[11)]% + {\setlength{\tabcolsep}{0pt}\begin{tabular}[t]{l} + If \Code{KTRL(2) = 0} and/or \Code{KTRL(3) = 0}, proceeds, \\ + if \Code{KTRL(2)} $\neq$ \Code{0} and \Code{KTRL(3)} $\neq$ \Code{0}, inputs \\ + \quad\Code{SGMARX(I)}, \Code{DSGMEX(I)}, \Code{POLEX(I)}, \Code{DPOLEX(I)}, \Code{I = 1 to JMAX}. \\ + \end{tabular}} + + \item[12)] Returns to \Code{CTRL4}. +\end{itemize} + +\Routine{\Code{POT1CH} (potential~1 check)} % [** PP: Typo POTICH] + +The purpose of this subroutine is to check whether $\ell_\text{max}$ is sufficiently +large so that all the partial waves sensibly affected by the potential are +included and to check whether $\rho_\text{max}$ (the point at which the coulomb functions +will be matched to the nuclear wave functions) is sufficiently large to insure +that the non-coulomb part of the potential is negligible. If $\ell_\text{max}$ and/or +$\rho_\text{max}$ are too small, the subroutine increases them, and sets \Code{IIN}($\ell_\text{max}$)\Code{ = 1}. +The quantities $\rho_\text{max}$ and $\ell_\text{max}$ may be checked or not according to the value +assigned to \Code{KTRL(13)}: + +\Code{KTRL(13) = 1}: check both $\ell_\text{max}$ and $\rho_\text{max}$ + +\Code{KTRL(13) = 2}: check $\rho_\text{max}$ only + +\Code{KTRL(13) = 3}: check $\ell_\text{max}$ only + +\Code{KTRL(13) = 4}: do not check either. +\smallskip + +%% [** PP: Marked up lists below semantically to extent possible] +\noindent +$\rho_\text{max}$ and $\ell_\text{max}$ are checked in various ways depending upon the potential form. +The routine operates as follows: +\begin{itemize} +\item[1)] The routine first calculates the maximum values of \Code{V}, \Code{W}, \Code{A}, \Code{VS}, \Code{WS}, + and, in the case of a Gaussian absorption, of~\Code{BG} over the specified grid of + these parameters. + +\item[2)] If \Code{KTRL(1) = 0}, standard potential (or variation thereof), the routine + checks, if required, that: + \begin{itemize} + \item[a)] $\rho_\text{max}$ is sufficiently large so that + \[ + \frac{(V^2 + W^2)^{1/2}}{E}\, + \frac{1}{(1 + e^{(\rho_\text{max} - \bar{\rho}_N)/ka})} \leq \epsilon_4. +% [** PP: Change ; to . and start new sentence] +\Tag{144} + \] + If this condition is not met, $\rho_\text{max}$ is increased by the last value of + $\Delta\rho$ and the check is repeated. This is accompanied by the print out: \\ +%% -----File: 047.png---Folio 42------- +\qquad\begin{tabular}{l}% [** PP: Reformatted messages here, below] + \Code{RHOIN(NMAX) = } + (value of old $\rho_\text{max}$) + \Code{ + } (last value of \Code{DRHOIN}) \\ + \Code{RHOIN(NMAX) IS TOO SMALL IN NUCLEAR POTENTIAL}. \\ +\end{tabular} + + \item[b)] The routine also checks, if required, that $\ell_\text{max}$ is sufficiently large + so that + \[ + \frac{\sqrt{V^2 + W^2}}{E}\, + \frac{1}{(1 + e^{(\ell_\text{max} - \bar{\rho}_N)/ka})} \leq \epsilon_4. +% [** PP: Change ; to . and start new sentence] +\Tag{145} + \] + If this condition is not met, $\ell_\text{max}$ is increased by~$1$ and the check is repeated; + this is accompanied by the following printout: \\ +\qquad\begin{tabular}{l} + \Code{LMAXM = } (value of old \Code{LMAXM}) \Code{ + 1} \\ + \Code{LMAXM TOO SMALL BECAUSE OF CENTRAL POTENTIAL}. \\ +\end{tabular} + + The routine then checks that $\ell_\text{max}$ is sufficiently large so that + \[ + 2 k^2 \frac{\sqrt{V_S^2 + W_S^2}}{E}\, + \frac{1}{(1 + e^{(\ell_\text{max} - \bar{\rho}_N)/ka})} \leq \epsilon_4. +% [** PP: Change ; to . and start new sentence] +\Tag{146} + \] + If this condition is not met, $\ell_\text{max}$ is increased by~$1$ and the check is repeated; + this is accompanied by the following printout: \\ +\qquad\begin{tabular}{l} + \Code{LMAXM = } (value of old \Code{LMAXM}) \Code{ + 1} \\ + \Code{LMAXM TOO SMALL BECAUSE OF SPIN ORBIT POTENTIAL}. \\ +\end{tabular} +\end{itemize} + +\item[3)] If \Code{KTRL(1) = 1}, Gaussian absorption, + \begin{itemize} + \item[a)] The check on $\rho_\text{max}$ is as follows: + \begin{align*} + &\frac{V}{E}\, + \frac{1}{(1 + e^{(\rho_\text{max} - \bar{\rho}_N)/ka})} \leq \epsilon_4; +\Tag{147} \\ + \intertext{and} + &\frac{W}{E}\, + e^{-(\rho_\text{max} - \bar{\rho}_G/kb)^2} \leq \epsilon_4. +% [** PP: Change ; to . and start new sentence] +\Tag{148} + \end{align*} + If these conditions are not met $\rho_\text{max}$ is increased as before and the checks are + repeated; this is accompanied by the same printout as above. %[**varioref] + + \item[b)] The check on $\ell_\text{max}$ is as follows: + \begin{align*} + &\frac{V}{E}\, + \frac{1}{(1 + e^{(\ell_\text{max} - \bar{\rho}_N)/ka})} \leq \epsilon_4; +\Tag{149} \\ + \intertext{and} + &\frac{W}{E}\, + e^{-(\ell_\text{max} - \bar{\rho}_G/kb)^2} \leq \epsilon_4 +\Tag{150} + \end{align*} + and as in \Eqref{146}. + +%% -----File: 048.png---Folio 43------- + + If these conditions are not met $\ell_\text{max}$ is increased by~$1$ and the checks + repeated. The prints-out are given on the previous page. %[**varioref] +\end{itemize} + +\item[4)] If \Code{KTRL(1) = 2}, Square well + \begin{itemize} + \item[a)] The check on $\rho_\text{max}$ is as follows + \[ + \rho_\text{max} > \bar{\rho}_N +\Tag{151} + \] + + \item[b)] The check on $\ell_\text{max}$ is as follows + \[ + \ell_\text{max} > \bar{\rho}_N + 3. +\Tag{152} + \] + \end{itemize} + +Failure to meet these conditions leads % [** PP: Typo lead] +to increases in $\rho_\text{max}$ and/or $\ell_\text{max}$ +accompanied by the same printouts % [** PP: Removed hyphen] +as given above, after which the checks +are repeated. +\end{itemize} + +The program uses \Code{EPS4 = 0.001}. %% [** PP: Changed ; to .] +This quantity is specified in the +\Code{MAIN4} routine. + +The checks described above are based on a rough estimate of the phase +shifts using a WKB expression. + + +\Routine{\Code{POP1}} + +Computes \Code{P(L,J)}, \Code{PP(L,J)}, \Code{L = 1 to LMAXP}, \Code{J = 1 to JMAX} as per \Eqrefs{134} +and \Eqno{135} and returns to \Code{CTRL4}. + + +\Routine{\Code{SIGZRO} (Sigma zero)} + +Computes \Code{SIGMA0} and \Code{SIGMA1} as per \Eqrefs{117} and~\Eqno{118} and returns to \Code{CTRL4}. + + +\Routine{\Code{FSUBC}} + +Computes \Code{FCR(J)} and \Code{FCI(J)}, \Code{J = 1 to JMAX} as per \Eqref{47} and returns to \Code{CTRL4}. + + +\Routine{\Code{EXSGML} (Exponential sigma $\ell$)} + +Computes \Code{EXSGMR(J)}, \Code{EXSGMI(J)} for \Code{J = 1 to LMAX} as per \Eqref{133} and returns to \Code{CTRL4}. + + +\Routine{\Code{RHOTB} (Rho tabulation)} +\phantomsection\label{ref:RHOTB} + +The purpose of this subroutine is to construct a table of~$\rho$'s and~$\Delta \rho$'s +corresponding to each step of the numerical integration. This table is +%% -----File: 049.png---Folio 44------- +formed from the arrays of \Code{RHOIN(I)} and \Code{DRHOIN(I)} which are input by subroutine +\Code{INPT4} +\begin{center} +{\footnotesize +\begin{tabular}{|c|c|} +\multicolumn{2}{c}{\textsc{Input Arrays}} \\ +\hline +\Code{RHOIN(I)} & \Code{DRHOIN(I)} \\ +\hline +\Code{RHOIN(1)} & \Code{DRHOIN(1)} \\ +\Code{RHOIN(2)} & \Code{DRHOIN(2)} \\ + . & . \\ + . & . \\ + . & . \\ + . & . \\ +\Code{RHOIN(NMAX-1)} & \Code{DRHOIN(NMAX-1)} \\ +\Code{RHOIN(NMAX)}\hfill\break & \\ +\hline +\end{tabular} +\hfill +\begin{tabular}{|c|c|} +\multicolumn{2}{c}{\textsc{Computed Tables}} \\ +\hline +\Code{RHO(I)} & \Code{DRHO(I)} \\ +\hline +\Code{RHO(1)} & \Code{DRHO(1)} \\ +\Code{RHO(2)} & \Code{DRHO(2)} \\ + . & . \\ + . & . \\ + . & . \\ + . & . \\ +\Code{RHO(ILAST-1)} & \Code{DRHO(ILAST-1)} \\ +\Code{RHO(ILAST)}\hfill\break & \\ +\hline +\end{tabular}}% [** PP: Removed 2 ditto rows to make tables the same height] +\end{center} +$\rho$\Code{ = RHOIN(1) (DRHOIN(1)) RHOIN(2) } \ldots \Code{ (DRHOIN(NMAX-1)) RHOIN(NMAX)} \\ +\Code{RHO(I+1) = RHO(I) + DRHO(I)} \\ +\Code{DRHO(1) = DRHO(2) = } $\cdots$ \Code{ = DRHO(I) = DRHOIN(1)} \\ +\Code{ up to RHO(I) = RHOIN(2), etc}\ldots. \\ +\Code{RHO(1) = RHOIN(1); RHO(ILAST) = RHO(NMAX)} \\ +\Code{ILAST }$\geq$\Code{ NMAX}. + +If \Code{RHOIN(NMAX)} is given in such a way that it cannot be reached by +an integral number of \Code{DRHO(I)}'s, the last interval is shortened (up to~50\%) +or lengthened (by no more than~50\%) so that \Code{RHO(ILAST) = RHOIN(NMAX)}. + + +\Routine{\Code{COULFN} (Coulomb functions)} + +This is the most complex subroutine of the program. It computes +the regular and irregular coulomb functions and their derivatives for +\Code{L = 1 to LMAXM} at $\rho$\Code{ = RHOMAX} by means of asymptotic formulas. The main +steps are as follows: +\begin{itemize} +\item[1)] The $a$ and~$b$ series appearing in \Eqref{115} are calculated +according to \Eqrefs{116} and are cut off when either: +%% -----File: 050.png---Folio 45------- +\begin{itemize} +\item[(a)] The term $N_a$ (or~$N_b$) is such that the next term exceeds in magnitude +the previous one, i.e., when +\[ +[\Real (U_{N_a} + 1)]^2 + [\Imag (U_{N_a} + 1)]^2 +\geq [\Real (U_{N_a})]^2 + [\Imag (U_{N_a})]^2 +\Tag{153} +\] +where +\[ +U_k = \frac{a_k}{(k-1) \rho_\text{max}^{k-1}} +\Tag{154} +\] +and similarly for the~$b$ series. + +\item[(b)] The contributions of both the real and imaginary terms give undetectable +contributions to the real and imaginary parts of~$\varphi_0$ (and similarly +for~$\varphi_1$). During these computations, the value of $\rho_\text{max}$ may be increased by +addition of the last value of \Code{DRHOIN} and the computation starts all over again +under the following condition: +\begin{itemize} +\item[a)] The $a$ or~$b$ series is identically equal to zero. This is accompanied +by the printout: \\ +\begin{tabular}{l} % [** PP: Re-formatting] +\Code{SERIES IN PHI0 OR PHI1 IS ZERO, CHECK DATA, IF OK} \\ +\Code{INCREASE RHOMAX = } + (value of old \Code{RHOMAX}) \Code{ + } (value of last \Code{DRHOIN}) \\ +\end{tabular} + +\item[b)] Either of the two series diverges too quickly, i.e., the $N_a$-th +(or $N_b$-th) term still gives a non-negligible contribution to the series +obtained so far, viz.\ +\[ +\left| \frac{\left[ \Real (U_{N_a}) \right]^2 + + \left[ \Imag (U_{N_a}) \right]^2} + {\left[ \Real \left(\sum_{k=2}^{N_a-1} U_k\right) \right]^2 + + \left[ \Imag \left(\sum_{k=2}^{N_a-1} U_k\right) \right]^2} +\right| \geq EPS3 +\Tag{155} +\] +(\Code{EPS3} is given the value $0.00001$ in the \Code{MAIN4} routine.) +% [** PP: Added period] + +This is accompanied by the printout: \\ +\begin{tabular}{l} +\Code{IF OK A OR B SERIES DIVERGES TOO QUICKLY} \\ +\Code{INCREASE RHOMAX = } + (value of old \Code{RHOMAX}) \Code{ + }(value of last \Code{DRHOIN}). \\ +\end{tabular} + +\item[c)] Over 48~terms are required in either the $a$ or~$b$ series. This is +accompanied by the printout: \\ +\begin{tabular}{l} +\Code{INCREASE RHOMAX = } + (value of old \Code{RHOMAX}) \Code{ + } (value of last \Code{DRHOIN}) \\ +\Code{A OR B SERIES CONVERGES TOO SLOWLY}. \\ +\end{tabular} +\end{itemize} +\end{itemize} + +\item[2)] The quantities $\varphi_0$, $\varphi_1$, $F_0$, $F_1$, $G_0$, $G_1$ are formed according to +%% -----File: 051.png---Folio 46------- +\Eqrefs{114} and \Eqno{115}, and the Wronskian is checked for accuracy +requiring that +\[ +\left| \mathscr{W} - \left[ 1 + \eta^2 \right]^{-1/2} \right| += \left| F_0 G_1 - F_1 G_0 - \left[ 1 + \eta^2 \right]^{-1/2} \right| +\leq EPS1 +\Tag{156} +\] +(\Code{EPS1} is given the value $0.00001$ in the \Code{MAIN4} routine.) +% [** PP: Added period] + +If this condition is violated $\rho_\text{max}$ is increased and the computation starts +all over again; this is accompanied by the following printout: \\ +\begin{tabular}{l} +\Code{INCREASE RHOMAX = } + (old value of \Code{RHOMAX}) \Code{ + } (last value of \Code{DRHOIN}) \\ +\Code{BAD INITIAL WRONSKIAN}. +\end{tabular} + +\item[3)] The regular coulomb functions are formed by downward recurrence +as per \Eqrefs{120} and \Eqno{122} according to the accompanying description. + +Agreement between successive sets of $F_\ell$'s is verified by checking +that +\[ +\left| (F_\ell^{(n)} / F_\ell^{(n+1)}) - 1 \right| \leq EPS2 +\Tag{157} +\] +(\Code{EPS2} is given the value $0.00001$ in the \Code{MAIN4} routine) for $\ell = 0$ to $\ell_\text{max}$. + +% [** PP: Added paragraph break; ambiguous non-indent in original.] +During this computation the value of $\rho_\text{max}$ is increased and the computation +starts all over if it turns out that $\ell_{(1)} > \ell_\text{max} + 40$. This is +accompanied by the printout: \\ +\begin{tabular}{l} +\Code{INCREASE RHOMAX = } + (old value of \Code{RHOMAX}) \Code{ + } (last value of \Code{DRHOIN}) \\ +\Code{L TOO LARGE IN FBAR(L)}. +\end{tabular} + +\item[4)] The irregular coulomb functions are formed by upward recurrence +as per \Eqref{119} and the Wronskian for every $\ell = 0$ to $\ell_\text{max} + 1$ is +checked for accuracy requiring that +\[ +\left| F_\ell G_{\ell + 1} - F_{\ell + 1} G_\ell + - \frac{\ell + 1}{\left[ (\ell + 1)^2 + \eta^2\right]^{1/2}} \right| +\leq EPS1 +\Tag{158} +\] +(\Code{EPS1} is given the value $0.00001$ in the \Code{MAIN4} routine.) +% [** PP: Added period] + +If this condition is violated the value of $\rho_\text{max}$ is increased and the computation +starts all over again; this is accompanied by the printout: \\ +\begin{tabular}{l} +\Code{INCREASE RHOMAX = } + (old value of \Code{RHOMAX}) \Code{ + } (last value of \Code{DRHOIN}) \\ +\Code{BAD WRONSKIAN FOR L = } + (value of $\ell+1$ for which \Eqref{158} failed). +\end{tabular} + +\item[5)] Finally the derivatives of the coulomb functions for $\ell = 0$ to $\ell_\text{max}$ +are formed as per \Eqref{123}. +\end{itemize} + +%% -----File: 052.png---Folio 47------- + +\Routine{\Code{RMXINC} (Rho max increase)} + +The purpose of this subroutine is to extend the table of \Code{RHO(I)} and +\Code{DRHO(I)} by increments of the last value \Code{DRHOIN} until the final value of +\Code{RHO(I)} equals \Code{RHOMAX} which may have been increased by the subroutine \Code{COULFN}. + + +\Routine{\Code{PGEN4} (Potential generator 4)} + +The purpose of this subroutine is to form tables of the $\ell$-independent +parts of the potential corresponding to the \Code{RHO(I)} tables and suitable for +using in the numerical integrations. + +These include: + +\Code{UCRB(I)}, \Code{UCIB(I)}, \Code{USRB(I)}, \Code{USIB(I)} for \Code{I = 1 to ILAST} and corresponding +to the values at the beginning of an interval of integration; a corresponding +table of form factors is also formed: + +\Code{FFCR(I)}, \Code{FFCI(I)}, \Code{FFSR(I)}, \Code{FFSI(I)}, \\ +and + +\Code{UCRM(I)}, \Code{UCIM(I)}, \Code{USRM(I)}, \Code{USIM(I)}, \\ +and + +\Code{FFCRM(I)}, \Code{FFCIM(I)}, \Code{FFSRM(I)}, \Code{FFSIM(I)} for \Code{I = 1 to ILAST - 1} corresponding % [** PP: Added space in ILAST -1] +to the values in the middle of an interval of integration. + +The original and tightest part of the subroutine corresponds to a +standard form factor; modifications have been added to permit use of a +variety of form factors briefly described earlier. + +The subroutine operates as follows: The \Code{UCR-}'s are calculated as per \Eqref{98}, +the \Code{UCI-}'s as per \Eqref{99}, the \Code{USR-}'s as per \Eqref{100} and +the \Code{USI-}'s as per \Eqref{101}, wherein: + + +\Subsubsubsection{(i)}{\Code{KTRL(I) = 0}: Volume absorption or special nuclear form factor:} + +\begin{tabular}{rll@{\ }l} +If \Code{KTRL(7) = 0}, + & $f_\CR$ is computed as per \Eqref{80};\quad + & \Code{[FFCR]}\footnotemark & $= f_\CR$ \\ +\Code{ = 1}, + & $f_\CR$ is computed as per \Eqref{86}; + & \Code{[FFCR]} & $= f_\CR$ \\ +\Code{ = 2}, + & $f_\CR$ is computed as per \Eqref{87}; + & \Code{[FFCR]} & $= f_\CR$ \\[1ex] +% +If \Code{KTRL(8) = 0}, + & $f_\CI$ is computed as per \Eqref{80}; + & \Code{[FFCI]} & $= f_\CI$ \\ +\Code{ = 1}, + & $f_\CI$ is computed as per \Eqref{86}; + & \Code{[FFCI]} & $= f_\CI$ \\ +\Code{= 2}, + & $f_\CI$ is computed as per \Eqref{87}; + & \Code{[FFCI]} & $= f_\CI$ \\[1ex] +% +%% -----File: 053.png---Folio 48------- +If \Code{KTRL(9) = 0}, + & $f_\SR$ is computed as per \Eqref{81}; + & \Code{[FFSR]} & $= f_\SR$ \\ +\Code{ = 1}, + & $f_\SR$ is computed as per \Eqref{91}; + & \Code{[FFSR]} & $= f_\SR/ka$ \\ +\Code{= 2}, + & $f_\SR$ is computed as per \Eqref{94}; + & \Code{[FFSR]} & $= f_\SR/2$ \\[1ex] +% +If \Code{KTRL(10) = 0}, + & $f_\SI$ is computed as per \Eqref{81}; + & \Code{[FFSI]} & $= f_\SI$ \\ +\Code{= 1}, + & $f_\SR$ is computed as per \Eqref{91}; + & \Code{[FFSI]} & $= f_\SI/ka$ \\ +\Code{= 2}, + & $f_\SR$ is computed as per \Eqref{94}; + & \Code{[FFSI]} & $= f_\SI/2$ \\ +\end{tabular} +% [** PP: \footnotemark on previous page] +\footnotetext{\Code{FFCR} refers to the symbolic variables \Code{FFCR(I)} and~\Code{FFCRM(I)} appearing in +the program (see \hyperref[chapter:V.]{glossary of symbols}), similarly for \Code{FFCI}, \Code{FFSR}, and~\Code{FFSI}.} + + +\Subsubsubsection{(ii)}{\Code{KTRL(1) = 1}: Gaussian absorption} + +\begin{tabular}{rll@{\ }l} +$\phantom{If \Code{KTRL(9)} = 0,}$\quad + & $f_\CR$ is computed as per \Eqref{80};\quad + & \Code{[FFCR]} & $= f_\CR$ \\ + & $f_\CI$ is computed as per \Eqref{82}; + & \Code{[FFCI]} & $= f_\CI$ \\ + & $f_\SR$ is computed as per \Eqref{81}; + & \Code{[FFSR]} & $= f_\SR$ \\ + & $f_\SI$ is computed as per \Eqref{81}; + & \Code{[FFSI]} & $= f_\SI$ \\ +\end{tabular} + + +\Subsubsubsection{(iii)}{\Code{KTRL(1) = 2}: Square well} + +\begin{tabular}{rll@{\ }l} +$\phantom{If \Code{KTRL(9)} = 0,}$\quad + & $f_\CR$ is computed as per \Eqref{84}; + & \Code{[FFCR]} & $= f_\CR$ \\ + & $f_\CI$ is computed as per \Eqref{84}; + & \Code{[FFCI]} & $= f_\CI$ \\ + & $f_\SR$ and $f_\CI$ are taken to be zero. & & \\ +\end{tabular}\\ +Furthermore, + +If \Code{KTRL(11) = 1}, \Code{USR-} are computed as per \Eqref{100} \emph{including} +the coulomb spin-orbit term. + +If \Code{KTRL(11) = 0}, \Code{USR-} are computed as per \Eqref{100} \emph{excluding} the +coulomb spin-orbit term, i.e, the second term on the right hand side. \Code{KTRL(7)} +to~\Code{KTRL(11)} can of course be given any combination of permitted values. + + +\Routine{\Code{INTCTR} (Integration Control)} + +For each value of \Code{L = 1 to LMAX} this subroutine carries out the +following steps: +\begin{itemize} +\item[1)] Sets up starting values for the numerical integration as per \Eqref{113}. +The quantities \Code{IIN(L)} are not especially useful at the present time, +but they have been included in order to permit start of the numerical +integration at various values of~$\rho$ depending on~$\ell$ and thus permitting considerable +time saving by foreshortening the numerical integrations. A +study of this method is presently under way. + +\item[2)] Calls \Code{RKINT} which performs the numerical integration. + +\item[3)] Stores the final values of the functions and their derivatives at +the completion of each integration. +\end{itemize} + +%% -----File: 054.png---Folio 49------- + +\Routine{\Code{RKINT} (Runge-Kutta integration)} + +This is the most crucial subroutine in the program as most of the +time is spent in numerical integration. Special efforts have therefore +been made to produce a rapid program. + +The subroutine integrates numerically as per \Eqrefs{102} to~\Eqno{112} +the differential \Eqrefs{96} operating simultaneously on the two sets +corresponding to $\vec{\sigma}·\vec{\ell} = \ell$ and $-\ell - 1$. + +Special provisions have been made to avoid overflow; this is accomplished +by dividing all the functions and their derivatives by the largest +of these at every step (\Code{RENORM}); whenever such renormalization is carried +out it is accompanied by the following printout: \\ % [** PP: Removed hyphen] +\Code{RENORMALIZATION FACTOR = } + (value of \Code{RENORM}) \Code{IN RKINT FOR CODED} \\ +\Code{L = }(value of $\ell + 1$) and \Code{RHO = }(value of $\rho$ at which renormalization took place). + + +\Routine{\Code{CSUBL}} + +This subroutine computes $C_\ell^±$ as per \Eqref{125} for $\ell = 0$ to $\ell_\text{max}$. + + +\Routine{\Code{AB}} + +This subroutine computes \Code{A(J)} and~\Code{B(J)} for \Code{J = 1 to JMAX} i.e., for +the various angles~$\theta$ % [** PP: Typo $\theta$'s] +required, as per \Eqref{60}. + + +\Routine{\Code{SQSGCP} (Sigma, sigma-coulomb, polarization)} + +This subroutine computes $\sigma(\theta)$, $P(\theta)$, $\sigma_c(\theta)$, as per \Eqrefs{34}, +\Eqno{35}; \Eqno{136} and finally $\sigma(\theta)/\sigma_c(\theta)$ for the various angles required. + + +\Routine{\Code{SIGMAR}} + +This subroutine computes % [** PP: Typo compute] +$\sigma_R$ as per \Eqref{132}. + + +\Routine{\Code{CHISQ} (Chi Square)} + +This subroutine computes $\chi_\sigma^2(\theta)$, $\chi_\sigma^2$, $\chi_P^2(\theta)$, $\chi_P^2$, $\chi_T^2$ as per \Eqrefs{137}, +\Eqno{138} and~\Eqno{139}. + +% [** PP: Changed exp to ex twice] +\Note{} The quantities $\Delta\sigma^\text{ex}(\theta)$ and $\Delta P^\text{ex}(\theta)$ are always assumed to be non-zero. +Thus to avoid including an unknown experimental quantity, the corresponding +standard deviation must be taken as very large. + +%% -----File: 055.png---Folio 50------- + +\Routine{\Code{OUTPT4} (Output 4)} + +Several output formats are available: +\begin{itemize} % [** PP: Hard-coding ad hoc levels] +\item[(1)] \textbf{Minimum output} (\Code{KTRL(6) = 1}). + \begin{itemize} + \item[(a)] Basic quantities \\ + \Code{NUMPRG} \\ + \Code{KTRL(I)} for \Code{I = 1 to 13} \\ + \Code{FMI}, \Code{FMB}, \Code{ELAB}, \Code{ZZ}, \Code{V}, + \Code{W}, \Code{A}, \Code{RO}, \Code{VS}, \Code{WS}, \Code{RC}, + \Code{BG}, \Code{RG} + \Code{RHOBN}, \Code{RHOBC}, \Code{RHOBNG}, \Code{ECM},% [** PP: Added space] + \Code{ETA}, \Code{FKAY}, \Code{FKAYA}, \Code{FKAYB} \\ + and, if either \Code{KTRL(7)}, \Code{(8)}, \Code{(9)}, or + \Code{(10)} is not zero, \\ + \Code{HA}, \Code{RMA}, \Code{FN1A}, \Code{FN2A}, \Code{PNA}, + \Code{HB}, \Code{RMB}, \Code{FN1B}, \Code{FN2B}, \Code{PMB}, \\ + then \Code{RHOMAX}, \Code{LMAXM}, \Code{NMAX}, \Code{RHOIN(I) + for I = 1 to NMAX}, \\ + \Code{DRHOIN(I)} for \Code{I = 1 to NMAX-1, SGMRTH} \\ + and, if \Code{KTRL(2) = 1}, \Code{CHI2ST}, \Code{CHI2PT}, \Code{CHI2T}. + + \item[(b)] Basic Table \\ + \Code{THETAD(I)}, \Code{SGMATH(I)}, \Code{SRATIO(I)}, \Code{POLTH(I)}, \\ + and, if \Code{KTRL(2) = 1}, \Code{SGMAEX(I)}, \Code{POLEX(I)}, + for \Code{I = 1 to JMAX}. + \end{itemize} + +\item[(2)] \textbf{Normal output} (\Code{KTRL(6) = 0}) + \begin{itemize} + \item[(a)] Basic quantities \\ + (See above) + + \item[(b)] Basic Table \\ + (See above) + + \item[(c)] Form factor table (output only if \Code{KTRL(12) = 1}) \\ + \Code{RHO(I)}, \Code{FFCR(I)}, \Code{FFCI(I)}, \Code{FFSR(I)}, + \Code{FFSI(I)}, \\ + for \Code{I = 1 to ILAST}. + + \item[(d)] Fitting table (output only if \Code{KTRL(2)=1}) \\ + \Code{THETAD(I)}, \Code{DSGMEX(I)}, \Code{DPOLEX(I)}, \Code{CHI2S(I)}, \\ + \Code{CHI2P(I)}, \Code{CHI2(I)} for \Code{I = 1 to JMAX}. + + \item[(e)] \Code{L} table \\ + \Code{L}, \Code{CR1(L)}, \Code{CI1(L)}, \Code{CR2(L)}, \Code{CI2(L)} for \Code{L = 1 to LMAXM} + (corresponding to $\ell$ = 0 to $\ell_\text{max}$). + \end{itemize} +\end{itemize} + +%% -----File: 056.png---Folio 51------- + +This output is made for \emph{every} run, and maybe preceded by underflow +descriptions which may be ignored, and by other comments referring to an +increase in $\rho_\text{max}$, $\ell_\text{max}$, renormalization, etc. + +Every page of output is headed by the run number on the left and the +page number on the right. The number of lines per page is held to be less +than~50, otherwise the subroutine calls subroutine \Code{SKIP} which starts a new +page. + + +\Routine{\Code{SKIP}} + +This subroutine increases the page number, resets~\Code{K}, the line counter, +and outputs the run and page number. Note that arguments giving the number +of lines, page and run numbers are required. + + +\Routine{\Code{LEAVE}} + +This subroutine is called whenever a run gets into difficulty because +overflow, or division by zero occur. The subroutine calls \Code{PDUMP} to give a +partial core dump. + +This subroutine was included so as to allow for various possible +requirements upon overflow and division by zero without having to change +every command where the difficulty might occur. + +%% -----File: 057.png---Folio 52------- + + +\Chapter{IV.}{Description of Input Data} + +All data is input from tape~7. The input data tape is prepared from \Acro{IBM} +cards which contain one piece of input data per card in either of the two following +formats: +\begin{center} +\input{./images/057a.eepic} +\end{center} +\iffalse +% Columns | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10| 11| 12| 13 | 14| 15| | 72| +%==============|==============|===|===|===|===|===|===|===|===|===|===|===|==============|===|===|===============================|===| +%Integers | x | x | x | x | x |<--------------------------- any Hollerith character -----------------------------|-->| +%Floating nos. | ± | 0 | . | x | x | x | x | x | x | x | x | | ± | x | x |<-- any Hollerith character ---|-->| +\fi + +\Note{} Any floating point format which uses 15~columns or less and is acceptable +to \FORTRAN\ may be used in place of the above. + +\begin{itemize} +\item[(1)] The following identification data is input first: \\ % [** PP: Added :] +\begin{tabular}{lcl} +\Code{NUMRUN(1)} & : & month \\ +\Code{NUMRUN(2)} & : & day \\ +\Code{NUMRUN(3)} & : & year \\ +\Code{NUMRUN(4)} & : & set number (put in 0 to start with 1) \\ +\Code{NUMRUN(5)} & : & run number (put in 0 to start with 1) \\ +\Code{NUMPRG} & : & program number (we use 4). +\end{tabular} + +\Note{} The identification which consists of the five quantities \Code{NUMRUN(I)}, \Code{I = 1 to 5}, +is printed at the top left of every output sheet. \Code{NUMRUN(4)} is advanced every time +a new set of data is input, \Code{NUMRUN(5)} is advanced every time a run is made with a +new set of parameters. + +\item[(2)] Then, for every set of run, i.e., for every set of input data: +\begin{itemize} +\item[(a)] \textbf{Controls} \\ % [ad hoc formatting] +\begin{tabular}{rcl} +\Code{KTRL(1) = 0} & : & + Standard potential (possibly with generalized form factors) \\ +\Code{= 1} & : & Gaussian absorption \\ +\Code{= 2} & : & Square well\footnotemark \\ +\Code{KTRL(2) = 0} & : & no $\chi^2$ required \\ +\Code{= 1} & : & $\chi^2$ required \\ +\end{tabular} +\footnotetext{The quantity~$A$ is eventually discarded but it must still be input as $~1/2$ to +avoid overflow in the early part of the program.}% + +%% -----File: 058.png---Folio 53------- + +\begin{tabular}{rcl} +\Code{KTRL(3) = 0} & : & same experimental values as in last set \\ + \Code{= 1} & : & new experimental values coming\footnotemark \\ +\Code{KTRL(4)}$\phantom{=0}$ & : & not used in present program \\ +\Code{KTRL(5) = 0} & : & same angles as in last set \\ + \Code{ = 1} & : & new angles coming \\ +\Code{KTRL(6) = 0} & : & normal output \\ + \Code{ = 1} & : & minimum output \\ +\Code{KTRL(7) = 0} & : & \Code{UCR} -- Standard form \\ + \Code{ = 1} & : & \Code{UCR} -- form~A \\ + \Code{ = 2} & : & \Code{UCR} -- form~B \\ +\Code{KTRL(8) = 0} & : & \Code{UCI} -- Standard form \\ + \Code{ = 1} & : & \Code{UCI} -- form~A \\ + \Code{ = 2} & : & \Code{UCI} -- form~B \\ +\Code{KTRL(9) = 0} & : & \Code{USR} -- derivative standard form \\ + \Code{ = 1} & : & \Code{USR} -- derivative form~A \\ + \Code{ = 2} & : & \Code{USR} -- form~B \\ +\Code{KTRL(10)= 0} & : & \Code{USI} -- derivative standard form \\ + \Code{ = 1} & : & \Code{USI} -- derivative form~A \\ + \Code{ = 2} & : & \Code{USI} -- form~B \\ +\Code{KTRL(11)= 0} & : & do not include coulomb spin-orbit \\ + \Code{ = 1} & : & do include coulomb spin-orbit \\ +\Code{KTRL(12)= 0} & : & do not print out form factors \\ + \Code{ = 1} & : & do print out form factors \\ +\Code{KTRL(13)= 1} & : & check $\rho_\text{max}$ and $\ell_\text{max}$ \\ + \Code{ = 2} & : & check $\rho_\text{max}$ only \\ + \Code{ = 3} & : & check $\ell_\text{max}$ only \\ + \Code{ = 4} & : & do not check $\rho_\text{max}$ nor $\ell_\text{max}$. \\ +\end{tabular} +\footnotetext{\Code{KTRL(3) = 1} also requires \Code{KTRL(2) = 1} for proper operation.} + +\item[(b)] \textbf{Basic data} +\begin{lstlisting} +FMI, FMB, ELAB, ZZ, RC, V, W, RO, A, VS, WS, RG, BG, DV, DW, +DA, DVS, DWS, DBG, HA, PMA, FN1A, FN2A, HB, PMB, FN1B, FN2B, +NVMAX, NWMAX, NAMAX, NVSMAX, NWSMAX, NBGMAX. +\end{lstlisting} + +\item[(c)] \textbf{Integration data} \\ +\Code{NMAX}, \Code{RHOIN(I)} for \Code{I = 1 to NMAX}, +\Code{DRHOIN(I)} for \Code{I = 1 to NMAX - 1}, + +%% -----File: 059.png---Folio 54------- + +\item[(d)] \Code{LMAXM} + +\item[(e)] \textbf{Angles}: \\ % [** PP: Reformat next two items] +if \Code{KTRL(5) = 1} input: +\Code{JMAX}, \Code{THETAD(I)} for \Code{I = 1 to JMAX} + +% [** PP: Item (d) in original] +\item[(f)] \textbf{Experimental data}: \\ +if \Code{KTRL(2) = 1} and \Code{KTRL(3) = 1} input: \\ +\begin{tabular}{rl} +\Code{SGMAEX(I)} & for \Code{I = 1 to JMAX} \\ +\Code{DSGMEX(I)} & for \Code{I = 1 to JMAX} \\ + \Code{POLEX(I)} & for \Code{I = 1 to JMAX} \\ +\Code{DPOLEX(I)} & for \Code{I = 1 to JMAX} \\ +\end{tabular} +\end{itemize}% End of alph labels + +\item[(3)] Final card: \\ +\Code{KTRL(l) = 100}. +\end{itemize}% End of arabic labels + +%% -----File: 060.png---Folio 55------- + + +\Chapter{V.}{Glossary and Description of Symbolic Variables +Appearing in Common and Dimension Statements} + +\begin{center} +\begin{longtable}% +{>{\raggedright}p{1.25in}|>{\raggedright}p{1.75in}|p{2.75in}} +\FORTRAN\ Symbol & \qquad Math.\ Symbol & \qquad Description \\ \hline +\endfirsthead +\FORTRAN\ Symbol & \qquad Math.\ Symbol & \qquad Description \\ \hline +\endhead +\Code{A} & $a$ & +Rounding parameter appearing in standard potential, see \Eqref[abbr]{62} \\ +% +\Code{AR(I)}, \Code{AI(I)} \Code{I = 1 to 75} & +$\Real\{a_i\}$, $\Imag\{a_i\}$ & +1) Real and imaginary parts of the +terms of the auxiliary % [** PP: Typo auxilliary] +series used +to calculate asymptotically % [** PP: Typo asympotically] +the +coulomb functions, see \Eqref[abbr]{116} \\ +% +& $\Real\{A(\theta_i)\}$, $\Imag\{A(\theta_i)\}$ & +2) See \Eqref[abbr]{60} for definition \\ +% +\Code{BR(I)}, \Code{BI(I)} \par\Code{I = 1 to 75} & +$\Real\{b_i\}$, $\Imag\{b_i\}$ +$\Real\{B(\theta_i)\}$, $\Imag\{B(\theta_i)\}$ & +1) Ibid, see \Eqref[abbr]{116} \par +2) See \Eqref[abbr]{60} for definition \\ +% +\Code{BG} & $b$ & Width parameter in Gaussian absorption +see \Eqref[abbr]{82} \\ +% +\Code{CHI2(I)} \Code{I = 1 to 75} & +$\chi^2(\theta_i)$ & $=\chi_\sigma^2(\theta_i) + \chi_P^2(\theta_i)$ \\ +% +\Code{CHI2P(I)} \Code{I = 1 to 75} & +$\chi_P^2(\theta_i)$ & See \Eqref[abbr]{139} \\ +% +\Code{CHI2PT} & $\chi_P^2$ & See \Eqref[abbr]{139} \\ +% +\Code{CHI2S(I)} \Code{I = 1 to 75} & +$\chi_\sigma^2(\theta_i)$ & See \Eqref[abbr]{138} \\ +% +\Code{CHI2ST} & $\chi_\sigma^2$ & See \Eqref[abbr]{138} \\ +% +\Code{CHI2T} & $\chi^2$ & $=\chi_\sigma^2 + \chi_P^2$ \\ +% +\Code{CR1(L)}, \Code{CI1(L)} \Code{for L = 1 to 51} & +$\Real(C_\ell^{+})$, $\Imag(C_\ell^{+})$ & +See \Eqrefs[abbr]{57} and~\Eqno{125} \\ +% +\Code{CR2(L)}, \Code{CI2(L)} & +$\Real(C_\ell^{-})$, $\Imag(C_\ell^{-})$ & +See \Eqrefs[abbr]{57} and~\Eqno{125} \\ +% +\Code{DA}, \Code{DV}, \Code{DW}, \Code{DVS}, \Code{DWS}, \Code{DBG} & & +% [** PP: Removed trailing comma on prev line] +Amount by which $A$, $V$, $W$, $VS$, $WS$, $BG$ +must be incremented for succeeding +runs (these increments may be input +as positive, zero or negative). \\ +% +\Code{DPOLEX(I)} \Code{for I = 1 to 75} & +$\Delta P^\text{ex}(\theta_i)$ & +Standard deviation in the experimental +polarization (must \emph{never} be +input as~$0$) \\ +% +\Code{DRHO(I)} \Code{for I = 1 to 250} & +$\Delta\rho_i$ & Interval of numerical integration +(see description of \hyperref[ref:RHOTB]{subroutine \Code{RHOTB}}) \\ +%% -----File: 061.png---Folio 56------- +\Code{DRHOL} & & +Last interval to be used in the +numerical integration \\ +% +\Code{DRHOIN(I)} \Code{I = 1 to 250} & & +Interval of numerical integration +specified by input for \Code{RHOIN(I)} $< \rho +\leq$ \Code{RHOIN(I+1)} (See description of +\hyperref[ref:RHOTB]{subroutine \Code{RHOTB}}) \\ +% +\Code{DSGMEX(I)} \Code{I = 1 to 75} & +$\Delta\sigma^\text{ex}(\theta_i)$ & +Standard deviation in the experimental +differential elastic scattering +cross section in square +fermis/sterad, (must \emph{never} be +input as~$0$) \\ +% +\Code{ECM} & $E$ & Incident energy in center-of-mass +system (\MeV) \\ +% +\Code{ELAB} & $E_\LAB$ & Incident energy in laboratory system +(\MeV) \\ +% +\Code{EPS1}, \Code{EPS2}, \Code{EPS3} & +$\epsilon_1$, $\epsilon_2$, $\epsilon_3$ & +Error thresholds appearing in various +parts of the calculation of the coulomb +functions. See \Eqrefs[abbr]{155} to \Eqno{158} \\ +% +\Code{EPS4} & $\epsilon_4$ & +Error threshold used in \Code{POT1CH} subroutine, +see \Eqrefs[abbr]{144} to~\Eqno{150} \\ +% +\Code{ETA} & $\eta$ & See \Eqref[abbr]{43} \\ +% +\Code{ETA2} & $\eta^2$ & \\ +% +\Code{EXSGMR(L)}, \Code{EXSGMI(L)} \Code{L = 1 to 51} & +$\Real\{e^{2i\sigma_\ell}\}$, $\Imag\{e^{2i\sigma_\ell}\}$ & +See \Eqref[abbr]{133} \\ +% +\Code{F(L)}, \Code{L = 1 to 52} & +$F_\ell$ & See \Eqref[abbr]{114} and~\Eqno{122} \\ +% +\Code{FBAR(L)}, \Code{L = 1 to 91} & +$F_\ell^{(n)}$ & See \Eqref[abbr]{120} \\ +% +\Code{FCR(I)}, \Code{FCI(I)} \Code{I = 1 to 75} & +$\Real\{f_c(\theta_i)\}$, $\Imag\{f_c(\theta_i)\}$ & +See \Eqref[abbr]{47} \\ +% +\Code{FFCR(I)}, \Code{FFCRM(I)} % [** PP: Typos FFCIM and ``, ,''] +\Code{I = 1 to 250} & +$f_\CR(\rho_i)$ \par $f_\CR(\rho_i + \frac{\Delta\rho_i}{2})$ & +Form factors for the real central part +of the potential at the beginning and +middle of an integration interval (See +\Eqrefs[abbr]{80}, \Eqno{84}, \Eqno{86}, \Eqno{87} and description +of subroutine \Code{PGEN4}) \\ +% +\Code{FFCI(I)}, \Code{FFCIM(I)} \Code{I = 1 to 250} & +$f_\CI(\rho_i)$ \par $f_\CR(\rho_i + \frac{\Delta\rho_i}{2})$ & +As above for the imaginary central part +of the potential (See \Eqrefs[abbr]{80}, \Eqno{82}, +\Eqno{84}, \Eqno{86}, \Eqno{87}, and description of +subroutine \Code{PGEN4}) \\ +%% -----File: 062.png---Folio 57------- +\Code{FFSR(I)}, \Code{FFSRM(I)} \Code{I = 1 to 250} & +$f_\SR(\rho_i)$ $f_\SR(\rho_i + \frac{\Delta\rho_i}{2})$ & +As above for the real spin-orbit part +of the potential (See \Eqrefs[abbr]{81}, \Eqno{85}, +\Eqno{91}, \Eqno{94} and description of subroutine +\Code{PGEN4}) \\ +% +\Code{FFSI(I)}, \Code{FFSIM(I)} \Code{I = 1 to 250} & +$f_\SI(\rho_i)$ $f_\SI(\rho_i + \frac{\Delta\rho_i}{2})$ & +As above for the imaginary spin-orbit +part of the potential (See \Eqrefs[abbr]{81}, +\Eqno{85}, \Eqno{91}, \Eqno{94}, and description of +subroutine \Code{PGEN4}) \\ +% +\Code{FKAY} & $k$ & See \Eqref[abbr]{8} (inverse fermis) \\ +% +\Code{FKAYA} & $ka$ & \\ +% +\Code{FKAYB} & $kb$ & \\ +% +\Code{FMB} & $m_b$ & +Mass number of target nucleus (atomic +units) \\ +% +\Code{FMI} & $m_i$ & +Mass number of incident particle +(atomic units) \\ +% +\Code{FMU} & $\mu$ & +Reduced mass of incident particle +(atomic units (see \Eqref[abbr]{5}) \\ +% +\Code{FN1A}, \Code{FN2A} & $nA_1$, $nA_2$ & +See \Eqref[abbr]{86} and following description \\ +% +\Code{FN1B}, \Code{FN2B} & $nB_1$, $nB_2$ & +See \Eqref[abbr]{87} and following description \\ +% +\Code{FF(L)}, \Code{L = 1 to 51} & $F_\ell'$ & See \Eqref[abbr]{123} \\ +% +\Code{G(L)}, \Code{L = 1 to 52} & $G_\ell$ & +See \Eqref[abbr]{114} and~\Eqno{119} \\ +% +\Code{GP(L)}, \Code{L = 1 to 51} & $G_\ell'$ & +See \Eqref[abbr]{123} \\ +% +\Code{HA}, \Code{HB} & $h_{0A}$, $h_{0B}$ & See \Eqref[abbr]{88} \\ +% +\Code{IDATA} & & +Number of sets of data to be processed +after making use of subroutine \Code{SAVE} \\ +% +\Code{IFIRST} & & +Initial value of~\Code{I}, the subscript +appearing in \Code{RHO(I)} \\ +% +\Code{ILAST} & & +Final value of~\Code{I}, the subscript +appearing in \Code{RHO(I)} \\ +% +\Code{IIN(L)}, \Code{L = 1 to 51} & & +Originally designed to allow input of +any desired value of \Code{IFIRST} for various +\Code{L}'s in order to speed up the numerical +integration. In the present program +the \Code{IIN(L)} are all set equal to~$1$ by +subroutine \Code{INPT4} \\ +%% -----File: 063.png---Folio 58------- +\Code{ISPILL}, \Code{JSPILL} & & +Underflow and overflow indicators used +in conjunction with subroutine \Code{SPILL} \\ +% +\Code{JMAX} & & +Total number of angles input (\Code{JMAX }$\le$\Code{ 75}) \\ +% +\Code{JMAXT} & & +Temporary storage for \Code{JMAX} used after +calling subroutine \Code{SAVE} \\ +% +\Code{KTRL(I)} \Code{I = 1 to 13} & & +Controls used throughout the program +to specify the potential, input and +output type (see description of input +data) \\ +% +\Code{KTRLT(I)} \Code{I = 1 to 13} & & +Temporary storage for \Code{KTRL(I)} used +after calling subroutine \Code{SAVE} \\ +% +\Code{L} & $\ell + 1$ & \\ +% +\Code{LMAX} & $\ell_\text{max} + 1$ & \\ +% +\Code{LMAXM} & $\ell_\text{max}$ & \\ +% +\Code{NA}, \Code{NV}, \Code{NW}, +\Code{NVS}, \Code{NWS}, \Code{NBG} & & +\Code{DO} loop variables used in subroutine +\Code{CTRL4} to specify the number of times +the parameters have been incremented \\ +% +\Code{NAMAX}, \Code{NVMAX}, +\Code{NWMAX}, \Code{NVSMAX}, +\Code{NWSMAX}, \Code{NBGMAX} & & +Total number of incrementations of +the parameters specified as input +data (${} \geq 1$) \\ +% +\Code{NINPUT} & & +\Code{DO} loop variable used after calling +subroutine \Code{SAVE} in order to count the +number of sets of processed input data \\ +% +\Code{NMAX} & & +Total number of input values of \Code{RHOIN(I)} +specified in input \\ +% +\Code{NMAXT} & & +Temporary storage for \Code{NMAX} used after +calling subroutine \Code{SAVE} \\ +% +\Code{NMAXP} & & \Code{= NMAX - 1} \\ +% +\Code{NUMPRG} & & +Program number (see description of input +data)\\ +% +\Code{NUMRUN(I)} \Code{I = 1 to 5} & & +Identification (see description of input +data) \\ +% +\Code{POLEX(I)} \Code{I = 1 to 75} & $P^\text{ex}(\theta_{i})$ & +Experimental value of the polarization \\ +% +\Code{POLTH(I)} \Code{I = 1 to 75} & $P^\text{th}(\theta_{i})$ & +Calculated value of the polarization +See \Eqref[abbr]{35} \\ +%% -----File: 064.png---Folio 59------- +\Code{P(L,J)} \Code{L = 1 to 51} \Code{J = 1 to 75} & +$P_{\ell}(\theta_j)$ & +Legendre polynomial, see \Eqref[abbr]{134} \\ +% +\Code{PP(L,J)} \Code{L = 1 to 50} \Code{J = 1 to 75} & +$P^{(l)}_{\ell}(\theta_j)$ & +Associated Legendre polynomial, see +\Eqref[abbr]{135} \\ +% +\Code{PMA}, \Code{PMB} & % [** PP: Moved next entry into middle column] +$\rho_{m_{A}}/\bar{\rho_{N}}$ and $\rho_{m_{B}}/\bar{\rho_{N}}$ & +These are the +quantities specified +by the input +as they are more +convenient than +\Code{RMA} and \Code{RMB}. \\ +% +\Code{RO} & $R_\text{ON}$ & +Nuclear radius constant (fermis), see +\Eqref[abbr]{63} \\ +% +\Code{RC} & $R_\text{OC}$ & +Charge radius constant (fermis) see +\Eqref[abbr]{66} \\ +% +\Code{RG} & $R_\text{OG}$ & +Gaussian radius constant (fermis) see +\Eqref[abbr]{83} \\ +% +\Code{RHOBC} & $\bar{\rho}_{C}$ & +Value of $\rho$ at which the uniform charge +density ends, see \Eqref[abbr]{74} \\ +% +\Code{RHOBN} & $\bar{\rho}_{N}$ & +Value of $\rho$ at which the standard +potential falls to half of its initial +value, see \Eqref[abbr]{73} \\ +% +\Code{RHOBNG} & $\bar{\rho}_{G}$ & +Value of $\rho$ at which the Gaussian absorption +is centered \\ +% +\Code{RHOIN(I)} \Code{I = 1 to 250} & & +Input values of $\rho$ for which the integration +interval must change from +\Code{DRHOIN(I-1)} to \Code{DRHOIN(I)}. See description +of subroutine \Code{RHOTB}) \\ +% +\Code{ROMAX} & & +Final value of $\rho$ in the numerical +integration \\ +% +\Code{RHO(I)} \Code{I = 1 to 250} & $\rho_{i}$ & +Value of $\rho$ at the $i$-th interval of +integration, see \Eqref[abbr]{14} \\ +% +\Code{RMA}, \Code{RMB} & $\rho_{m_{A}}, \rho_{m_{B}}$ & +Values of $\rho$ at which special form +factors are matched to standard form +factors, see \Eqrefs[abbr]{86} and~\Eqno{87} \\ +% +\Code{SGMAC(I)} \Code{I = 1 to 75} & $\sigma_{c}(\theta_{i})$ & +See \Eqref[abbr]{136} (square fermis/sterad) \\ +% +\Code{SGMAEX(I)} \Code{I = 1 to 75} & $\sigma^\text{ex}(\theta_{i})$ & +Experimental values of the differential +elastic scattering cross section (square +fermis/sterad) \\ +%% -----File: 065.png---Folio 60------- +\Code{SGMATH(I)} \Code{I = 1 to 75} & $\sigma^\text{th}(\theta_1)$ & +Calculated values of the differential +elastic scattering cross section +(square fermis/sterad), see \Eqref[abbr]{34} \\ +% +\Code{SGMRTH} & $\sigma_R$ & +Calculated value of the reaction cross +section (square fermis) see \Eqref[abbr]{132} \\ +% +\Code{SIGMA0} & $\sigma_0$ & See \Eqrefs[abbr]{117} and~\Eqno{118} \\ +% +\Code{SIGMA1} & $\sigma_1$ & See \Eqref[abbr]{117} \\ +% +\Code{SRATIO(I)} \Code{I = 1 to 75} & +$\sigma(\theta_i) / \sigma_c(\theta_i)$ & +Ratio of calculated to Rutherford cross +section \\ +% +\Code{TA}, \Code{TV}, \Code{TW}, \Code{TVS}, +\Code{TWS}, \Code{TBG}, & & +Storage for initial values input for +the parameters \\ +% +\Code{THETAD(I)} \Code{I = 1 to 75} & $\theta_i$ & +Scattering angle in center-of-mass +system (degrees) \\ +% +\Code{THETA(I)} \Code{I = 1 to 75} & $\theta_i$ & +As above (radians) \\ +% +\Code{UCRB(I)}, \Code{UCRM(I)} \Code{I = 1 to 250} & +$U_\CR(\rho_i)$ $U_\CR(\rho_i + \frac{\Delta\rho_i}{2})$ & +$L$-independent part of the real central +potential at the beginning and in the +middle of the $i$-th interval of integration, +see \Eqref[abbr]{98} \\ +% +\Code{UCIB(I)}, \Code{UCIM(I)} \Code{I = 1 to 250} & +$U_\CI(\rho_i)$ $U_\CI(\rho_i + \frac{\Delta\rho_i}{2})$ & +As above for the imaginary central +potential, see \Eqref[abbr]{99} \\ +% +\Code{USRB(I)}, \Code{USRM(I)} \Code{I = 1 to 250} & +$U_\SR(\rho_i)$ $U_\SR(\rho_i + \frac{\Delta\rho_i}{2})$ & +As above for the real spin-orbit +potential, see \Eqref[abbr]{100} \\ +% +\Code{USIB(I)}, \Code{USIM(I)} \Code{I = 1 to 250} & +$U_\SI(\rho_i)$ $U_\SI(\rho_i + \frac{\Delta\rho_i}{2})$ & +As above for the imaginary spin-orbit +potential, see \Eqref[abbr]{101} \\ +% +\Code{V} & $V$ & Depth of real central potential (\MeV) \\ +% +\Code{W} & $W$ & Depth of imaginary central potential (\MeV) \\ +% +\Code{VS} & $V_S$ & Real part of spin-orbit potential depth (\MeV) \\ +% +\Code{WS} & $W_S$ & Imaginary part of spin-orbit potential depth (\MeV) \\ +%% -----File: 066.png---Folio 61------- +\Code{XC1}, \Code{XCP1} & +$x_{\ell}^{+}(\rho)$, $\dot{x}_{\ell}^{+}(\rho)$ & +Real part of the radial (unnormalized) +wave function and its first derivative +for the case $L + 1/2$ \\ +% +\Code{YC1}, \Code{YCP1} & +$y_{\ell}^{+}(\rho)$, $\dot{y}_{\ell}^{+}(\rho)$ & +As above for the imaginary part and the case $L + 1/2$ \\ +% +\Code{XD1}, \Code{XDP1} & +$x_{\ell}^{-}(\rho)$, $\dot{x}_{\ell}^{-}(\rho)$ & +As above for the real part and the case $L - 1/2$ \\ +% +\Code{YD1}, \Code{YDP1} & +$y_{\ell}^{-}(\rho)$, $\dot{y}_{\ell}^{-}(\rho)$ & +As above for the imaginary part and the case $L - 1/2$ \\ +% +\Code{X1(L)}, \Code{X1P(L)} \Code{L = 1 to 51} & +$x_{\ell}^{+}(\rho_\text{max})$, $\dot{x}_{\ell}^{+}(\rho_\text{max})$ & +Real part of the radial (unnormalized) +wave function and its first derivative +for the case $L + 1/2$ at the end of a +numerical integration \\ +% +\Code{Y1(L)}, \Code{Y1P(L)} \Code{L = 1 to 51} & +$y_{\ell}^{+}(\rho_\text{max})$, $\dot{y}_{\ell}^{+}(\rho_\text{max})$ & +As above for the imaginary part and the case $L + 1/2$ \\ +% +\Code{X2(L)}, \Code{X2P(L)} \Code{L = 1 to 51} & +$x_{\ell}^{-}(\rho_\text{max})$, $\dot{x}_{\ell}^{-}(\rho_\text{max})$ & +As above for the real part and the case $L - 1/2$ \\ +% +\Code{Y2(L)}, \Code{Y2P(L)} \Code{L = 1 to 51} & +$y_{\ell}^{-}(\rho_\text{max})$, $\dot{y}_{\ell}^{-}(\rho_\text{max})$ & +As above for the imaginary part and the case $L - 1/2$ \\ +% +\Code{ZZ} & $ZZ'$ & +Product of the atomic numbers of the target +nucleus and the incident particle. \\ +\end{longtable} +\end{center} + +%% -----File: 067.png---Folio 62------- + + +\Chapter{VI.}{Symbolic Listing of the Program} + +\begin{lstlisting} + MAIN ROUTINE - SCAT 4 + COMMON A,AR,AI, + 1BR,BI,BG, + 2CHI2,CHI2P,CHI2PT,CHI2S,CHI2ST,CHI2T,CR1,CI1,CR2,CI2, + 3DPOLEX,DSGMEX,DRHO,DRHOIN,DRHOL,DV,DW,DA,DVS,DWS,DBG, + 4ECM,ELAB,EPS1,EPS2,EPS3,EPS4,ETA,ETA2,EXSGMR,EXSGMI, + 5F,FBAR,FCR,FCI,FFCR,FFCI,FFCRM,FFCIM,FFSR,FFSI,FFSRM,FFSIM, + 6FKAY,FMB,FMI,FMU,FN1A,FN2A,FN1B,FN2B,FP,FKAYA,FKAYB, + 7G,GP, + 8HA,HB, + 9IDATA,IFIRST,IIN,ILAST,ISPILL + COMMON JMAX,JMAXT,JSPILL, + 1KTRL,KTRLT, + 2L,LMAX,LMAXM, + 3NMAX,NMAXP,NMAXT,NINPUT,NUMRUN,NUMPRG,NVMAX,NWMAX,NAMAX,NVSMAX, + 4NWSMAX,NV,NW,NA,NVS,NWS,NBGMAX,NBG, + 5P,PP,POLEX,POLTH,PMA,PMB, + 6RC,RO,RHO,RHOBC,RHOBN,RHOIN,RHOMAX,RMA,RMB,RG,RHOBNG, + 7SGMAC,SGMAEX,SGMATH,SGMRTH,SIGMA0,SIGMA1,SRATIO, + 8THETA,THETAD,TV,TW,TA,TVS,TWS,TBG, + 9UCRB,UCIB,UCRM,UCIM,USRB,USIB,USRM,USIM + COMMON V,VS, + 1W,WS, + 2X1,X2,X1P,X2P,XC1,XCP1,XD1,XDP1, + 3Y1,Y2,Y1P,Y2P,YC1,YCP1,YD1,YDP1, + 4ZZ + DIMENSION AR(75),AI(75), + 1BR(75),BI(75), + 2CHI2(75),CHI2P(75),CHI2S(75),CR1(51),CI1(51),CR2(51),CI2(51), + 3DPOLEX(75),DSGMEX(75),DRHO(250),DRHOIN(250), + 4EXSGMR(51),EXSGMI(51), + 5F(52),FBAR(91),FCR(75),FCI(75),FFCR(250),FFCI(250),FFCRM(250), + 6FFCIM(250),FFSR(250),FFSI(250),FFSRM(250),FFSIM(250),FP(51), + 7G(52),GP(51), + 8IIN(51), + 9KTRL(13),KTRLT(13) + DIMENSION NUMRUN(5), + 1P(51,75),PP(50,75),POLEX(75),POLTH(75), + 2RHO(250),RHOIN(250), + 3SGMAC(75),SGMAEX(75),SGMATH(75),SRATIO(75), + 4THETA(75),THETAD(75), + 5UCRB(250),UCIB(250),UCRM(250),UCIM(250),USRB(250),USIB(250), + 6USRM(250),USIM(250), + 7X1(51),X2(51),X1P(51),X2P(51), + 8Y1(51),Y2(51),Y1P(51),Y2P(51) + CALL SPILL(JSPILL,ISPILL,0.,0.) + EPS1= 0.00001 + EPS2= 0.00001 + EPS3= 0.00001 + EPS4=0.001 +\end{lstlisting} +%% -----File: 068.png---Folio 63------- +\begin{lstlisting} + READ INPUT TAPE 7,10,(NUMRUN(I)),I=1,5) + READ INPUT TAPE 7,10,NUMPRG + 10 FORMAT(I5) + CALL CTRL4 + GO +\end{lstlisting} +\clearpage + +%% -----File: 069.png---Folio 64------- + +\begin{lstlisting} + SUBROUTINE CTRL4 + 3 NUMRUN(4)=NUMRUN(4)+1 + NUMRUN(5)=0 + CALL INPT4 + CALL POT1CH + 35 IF(KTRL(5)) 80,81,80 + 80 CALL POP1 + 81 CALL SIGZRO + CALL FSUBC + CALL EXSGML + DO 20 NV=1,NVMAX + IF (NV-1) 102,101,102 + 101 V=TV + GO TO 103 + 102 V=V+DV + 103 DO 20 NW=1,NWMAX + IF (NW-1) 105,104,105 + 104 W=TW + GO TO 109 + 105 W=W+DW + 109 DO 20 NA=1,NAMAX + IF (NA-1) 111,110,111 + 110 A=TA + GO TO 112 + 111 A=A+DA + 112 DO 20 NVS=1,NVSMAX + IF (NVS-1) 114,113,114 + 113 VS=TVS + GO TO 115 + 114 VS=VS+DVS + 115 DO 20 NWS=1,NWSMAX + IF (NWS-1) 117,116,117 + 116 WS=TWS + GO TO 118 + 117 WS=WS+DWS + 118 DO 20 NBG=1,NBGMAX + IF(NBG-1) 120,119,120 + 119 BG=TBG + GO TO 121 + 120 BG=BG+DBG + 121 IF (SENSE SWITCH 1) 26,27 + 26 REWIND 7 + CALL SAVE(8) + READ INPUT TAPE 7,50,(LGAR,I=1,6) + IDATA= NUMRUN(4) + DO 66 NINPUT=1, IDATA + READ INPUT TAPE 7,50,(KTRLT(I),I=1,13) + 50 FORMAT (I5) + 51 FORMAT (E15.9) + READ INPUT TAPE 7,51,(GAR,I=1,27) +\end{lstlisting} +%% -----File: 070.png---Folio 65------- +\begin{lstlisting} + READ INPUT TAPE 7,50,(LGAR,I=1,6), NMAXT + NT=2*NMAXT-1 + READ INPUT TAPE 7,51,(GAR,I=1,NT) + READ INPUT TAPE 7,51,LGAR + IF (KTRLT(5)) 71,70,71 + 71 READ INPUT TAPE 7,50, JMAXT + READ INPUT TAPE 7,51,(GAR,I=1,JMAXT) + 70 IF (KTRLT(2)) 61,66,61 + 61 IF(KTRLT(3)) 63,66,63 + 63 NT=4*JMAXT + READ INPUT TAPE 7,51,(GAR,I=1,NT) + 66 CONTINUE + 27 NUMRUN(5)= NUMRUN(5)+1 + CALL RHOTB + CALL COULFN + CALL RMXINC + CALL PGEN4 + CALL INTCTR + CALL CSUBL + CALL AB + CALL SGSGCP + CALL SIGMAR + IF (KTRL(2)) 33,100,33 + 33 CALL CHISQ + 100 CALL OUTPT4 + 20 CONTINUE + GO TO 3 +\end{lstlisting} +\clearpage + +%% -----File: 071.png---Folio 66------- + +\begin{lstlisting} + SUBROUTINE INPT4 + IF DIVIDE CHECK 100,110 + 100 WRITE OUTPUT TAPE 6,101 + 101 FORMAT(59H DIVIDE CHECK TRIGGER FOUND ON AT START OF INPT4 SUBROUT + 1INE) + CALL LEAVE + STOP + 110 ISPILL=0 + JSPILL=0 + READ INPUT TAPE 7,10,KTRL(1) + IF (KTRL(1)-100) 150,151,151 + 151 CALL EXIT + STOP + 150 READ INPUT TAPE 7,10,(KTRL(I),I=2,13) + 10 FORMAT (I5) + READ INPUT TAPE 7,12,FMI,FMB,ELAB,ZZ,RC,V,W,RO,A,VS,WS,RG,BG, + 1DV,DW,DA,DVS,DWS,DBG + READ INPUT TAPE 7,12,HA,PMA,FN1A,FN2A,HB,PMB,FN1B,FN2B + READ INPUT TAPE 7,10,NVMAX,NWMAX,NAMAX,NVSMAX,NWSMAX,NBGMAX + 12 FORMAT (E15.9) + TV= V + TW=W + TA=A + TVS=VS + TWS=WS + TBG=BG + READ INPUT TAPE 7,10,NMAX + NMAXP=NMAX-1 + READ INPUT TAPE 7,12,(RHOIN(I),I=1,NMAX),(DRHOIN(I),I=1,NMAXP) + CO2=FMI+FMB + FMU=(FMI*FMB)/CO2 + ECM=ELAB*(FMB/CO2) + FKAY= .2195376*SQRTF(FMU*ECM) + T=FKAY*(FMB**.333333333) + RHOBN= T*RO + RHOBNG=T*RG + RMA=PMA*RHOBN + RMB=PMB*RHOBN + RHOBC= T*RC + ETA= .15805086*ZZ*SQRTF(FMI/ELAB) + IF DIVIDE CHECK 200,47 + 200 WRITE OUTPUT TAPE 6,201 + 201 FORMAT(43H INPUT DIVISOR WAS ZERO IN INPT4 SUBROUTINE) + CALL LEAVE + STOP + 47 READ INPUT TAPE 7,10,LMAXM + LMAX=LMAXM+1 + DO 147 J=1,LMAX + 147 IIN(J)=1 + IF (KTRL(5)) 48,50,48 +\end{lstlisting} +%% -----File: 072.png---Folio 67------- +\begin{lstlisting} + 48 READ INPUT TAPE 7,10,JMAX + READ INPUT TAPE 7,12,(THETAD(I),I=1,JMAX) + DO 49 I=1,JMAX + 49 THETA(I)= 0.01745329252*THETAD(I) + 50 IF(KTRL(2)) 51,207,51 + 51 IF(KTRL(3)) 53,207,53 + 53 READ INPUT TAPE 7,12,(SGMAEX(I),I=1,JMAX),(DSGMEX(I),I=1,JMAX), + 1(POLEX(I),I=1,JMAX),(DPOLEX(I),I=1,JMAX) + 207 IF(ISPILL)202,204,202 + 202 WRITE OUTPUT TAPE 6,203,ISPILL + 203 FORMAT(23H UNDERFLOW OCCURRED AT I5,20H IN INPT4 SUBROUTINE) + 204 IF(JSPILL)205,210,205 + 205 WRITE OUTPUT TAPE 6,206,JSPILL + 206 FORMAT(22H OVERFLOW OCCURRED AT I5,20H IN INPT4 SUBROUTINE) + CALL LEAVE + STOP + 210 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 073.png---Folio 68------- + +\begin{lstlisting} + SUBROUTINE POT1CH + IF DIVIDE CHECK 30,31 + 30 WRITE OUTPUT TAPE 6,130 + 130 FORMAT (60H DIVIDE CHECK TRIGGER FOUND ON AT START OF POT1CH SUBRO + 1UTINE) + CALL LEAVE + STOP + 31 ISPILL=0 + JSPILL=0 + IKTRL=KTRL(13) + NMAX=NMAX + NMAXP= NMAX-1 + AMAX=NAMAX-1 + TTA=MAX1F(A,((AMAX*DA)+A)) + VMAX=NVMAX-1 + TTV=MAX1F(V,((VMAX*DV)+V)) + WMAX=NWMAX-1 + TTW=MAX1F(W,((WMAX*DW)+W)) + VSWAX=NVSMAX-1 + TTVS=MAX1F(VS,((VSMAX*DVS)+VS)) + WSMAX=NWSMAX-1 + TTWS=MAX1F(WS,((WSMAX*DWS)+WS)) + BGMAX=NBGMAX-1 + TTBG=MAX1F(BG,((BGMAX*DBG)+BG)) + FKAYA=FKAY*TTA + FKAYB=FKAY*TTBG + T2=SQRTF(TTV**2+TTW**2)/ECM + T7=TTV/ECM + T8=TTW/ECM + IF DIVIDE CHECK 60,61 + 60 WRITE OUTPUT TAPE 6,160 + 160 FORMAT(26H ECM IS ZERO IN POT1CH SUB) + CALL LEAVE + STOP + 61 GO TO (3,3,111,15),IKTRL + 3 IF(KTRL(1)-2) 24,25,24 + 25 IF(RHOIN(NMAX)-RHOBN) 10,10,8 + 24 T1=1./(1.+EXPF((RHOIN(NMAX)-RHOBN)/FKAYA)) + IF DIVIDE CHECK 50,28 + 50 WRITE OUTPUT TAPE 6,150 + 150 FORMAT(28H FKAYA IS ZERO IN POT1CH SUB) + CALL LEAVE + STOP + 28 IF(KTRL(1)-1) 40,41,40 + 40 T3= T2*T1 + GO TO 43 + 41 T3=T7*T1 + 43 IF(T3-EPS4) 42,42,10 + 10 WRITE OUTPUT TAPE 6,100, RHOIN(NMAX),DRHOIN(NMAXP) + 100 FORMAT(13H RHOIN(NMAX)=E16.9,2H+ E16.9,46H RHOIN(NMAX) IS TOO SMAL +\end{lstlisting} +%% -----File: 074.png---Folio 69------- +\begin{lstlisting} + 1L IN NUCLEAR POTENTIAL) + RHOIN(NMAX)= RHOIN(NMAX)+DRHOIN(NMAXP) + GO TO 3 + 42 IF(KTRL(1)-1) 8,6,8 + 6 T11= EXPF(-((RHOIN(NMAX)-RHOBNG)/FKAYB)**2) + IF((T8*T11)-EPS4) 8,8,7 + 7 WRITE OUTPUT TAPE 6,103,RHOIN(NMAX),DRHOIN(MMAXP) + 103 FORMAT(13H RHOIN(NMAX)=E16.9,2H+ E16.9,46H RHOIN(NMAX) IS TOO SMAL + 1L IN NUCLEAR POTENTIAL) + RHOIN(NMAX)= RHOIN(NMAX)+DRHOIN(NMAXP) + GO TO 6 + 8 GO TO(111,15),IKTRL + 111 FLMAX=LMAXM + IF(KTRL(1)-2) 29,300,29 + 300 IF(FLMAX-(RHOBN+3.)) 12,12,15 + 29 T4=1./(1.+EXPF((FLMAX-RHOBN)/FKAYA)) + IF(KTRL(1)-1) 33,32,33 + 33 T5= T2*T4 + GO TO 310 + 32 T5=T7*T4 + 310 IF(T5-EPS4)13,13,12 + 12 WRITE OUTPUT TAPE 6,101,LMAXM + 101 FORMAT (7H LMAXM=I5,3H +1,45H LMAXM TOO SMALL BECAUSE OF CENTRAL P + 1OTENTIAL) + LMAX= LMAX+1 + LMAXM= LMAXM+1 + IIN(LMAX)=1 + GO TO 111 + 13 IF(KTRL(1)-1) 17,19,17 + 19 T4=EXPF(-((FLMAX-RHOBNG)/FKAYB)**2) + IF((T8*T4)-EPS4) 17,17,20 + 20 WRITE OUTPUT TAPE 6,200,LMAXM + 200 FORMAT (7H LMAXM=I5,3H +1,45H LMAXM TOO SMALL BECAUSE OF CENTRAL P + 1OTENTIAL) + LMAX=LMAX+1 + LMAXM=LMAXM+1 + IIN(LMAX)=1 + GO TO 19 + 17 T2=SQRTF(TTVS**2+TTWS**2)/ECM + 18 FLMAX=LMAXM + T4=1./(1.+EXPF((FLMAX-RHOBN)/FKAYA)) + 38 T6=2.*T2*T4*(FKAYW**2) + IF(T6-EPS4) 15,15,14 + 14 WRITE OUTPUT TAPE 6,102, LMAXM + 102 FORMAT (7H LMAXM=I5,3H +1,48H LMAXM TOO SMALL BECAUSE OF SPIN ORB + 1IT POTENTIAL) + LMAX= LMAX+1 + LMAXM= LMAXM+1 + IIN(LMAX)=1 + GO TO 18 +\end{lstlisting} +%% -----File: 075.png---Folio 70------- +\begin{lstlisting} + 15 IF(ISPILL)202,204,202 + 202 WRITE OUTPUT TAPE 6,203,ISPILL + 203 FORMAT(23H UNDERFLOW OCCURRED AT I5,14H IN POT1CH SUB) + 204 IF(JSPILL)205,210,205 + 205 WRITE OUTPUT TAPE 6,206,JSPILL + 206 FORMAT(22H OVERFLOW OCCURRED AT I5,14H IN POT1CH SUB) + CALL LEAVE + STOP + 210 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 076.png---Folio 71------- + +\begin{lstlisting} + SUBROUTINE POP1 + IF DIVIDE CHECK 1,2 + 1 WRITE OUTPUT TAPE 6,101 + 101 FORMAT (58H DIVIDE CHECK TRIGGER FOUND ON AT START OF POP1 SUBROUT + 1INE) + CALL LEAVE + STOP + 2 ISPILL=0 + JSPILL=0 + LMAXP=LWAX+1 + DO 20 J=1,JMAX + SI2=1./SINF(THETA(J)) + IF DIVIDE CHECK 3,4 + 3 WRITE OUTPUT TAPE 6,103, J + 103 FORMAT (71H DIVISOR SINF THETA IS ZERO IN FIRST DIVISION OF POP1 S + 1UBROUTINE FOR J=I3) + CALL LEAVE + STOP + 4 CO=COSF(THETA(J)) + P(1,J)=1.0 + P(2,J)=CO + PP(1,J)=0.0 + TWOLP1=3. + FL=1. + DO 20 L=1,LMAXP + TL=FL+1. + P(L+2,J)=(TWOLP1*CO*P(L+1,J)-FL*P(L,J))/TL + PP(L+1,J)=TL*SI2*(CO*P(L+1,J)-P(L+2,J)) + TWOLP1=TWOLP1+2. + 20 FL=TL + IF (ISPILL) 30,31,30 + 30 WRITE OUTPUT TAPE 6,130, ISPILL + 130 FORMAT(23H UNDERFLOW OCCURRED AT I6,19H IN POP1 SUBROUTINE) + 31 IF (JSPILL) 32,33,32 + 32 WRITE OUTPUT TAPE 6,132, JSPILL + 132 FORMAT (22H OVERFLOW OCCURRED AT I6,19H IN POP1 SUBROUTINE) + CALL LEAVE + STOP + 33 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 077.png---Folio 72------- + +\begin{lstlisting} + SUBROUTINE SIGZRO + IF DIVIDE CHECK 5,6 + 5 WRITE OUTPUT TAPE 6,105 + 105 FORMAT (60H DIVIDE CHECK TRIGGER FOUND ON AT START OF SIGZRO SUBRO + 1UTINE) + CALL LEAVE + STOP + 6 ISPILL = 0 + JSPILL = 0 + SIGMA0=-(ETA/(12.*(ETA**2+16.)))*(1.+(ETA**2-48.)/(30.*((ETA**2+16 + 1.)**2))+(ETA**4-160.*(ETA**2)+1280.)/(((16.+ETA**2)**4)*105.)) + SIGMA0=SIGMA0-ETA+(ETA/2.)*LOGF(ETA**2+16.)+((7./2.)*ATANF(ETA/4.) + 1)-(ATANF(ETA)+ATANF(ETA/2.)+ATANF(ETA/3.)) + SIGMA1=SIGMA0+ATANF(ETA) + 15 IF (ISPILL) 30,31,30 + 30 WRITE OUTPUT TAPE 6,130,ISPILL + 130 FORMAT (23H UNDERFLOW OCCURRED AT I6,21H IN SIGZRO SUBROUTINE) + 31 IF (JSPILL) 32,11,32 + 32 WRITE OUTPUT TAPE 6,132,JSPILL + 132 FORMAT (22H OVERFLOW OCCURRED AT I6,21H IN SIGZRO SUBROUTINE) + CALL LEAVE + STOP + 11 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 078.png---Folio 73------- + +\begin{lstlisting} + SUBROUTINE FSUBC + IF DIVIDE CHECK 20,21 + 20 WRITE OUTPUT TAPE 6,120 + 120 FORMAT (53H DIVIDE TRIGGER FOUND ON AT START OF FSUBC SUBROUTINE) + CALL LEAVE + STOP + 21 ISPILL=0 + JSPILL=0 + DO 10 J=1,JMAX + SN=(SINF(THETA(J)/2.0))**2 + FLN=ETA*(LOGF(SN))-2.0*SIGMA0 + FNO=ETA/(2.0*FKAY*(SN)) + IF DIVIDE CHECK 22,23 + 22 WRITE OUTPUT TAPE 6,122,J + 122 FORMAT (23H DIVISOR IS ZERO FOR J=I3,20H IN FSUBC SUBROUTINE) + CALL LEAVE + STOP + 23 FCR(J)=(-FNO*COSF(FLN)) + 10 FCI(J)=(FNO*SINF(FLN)) + IF (ISPILL) 24,25,24 + 24 WRITE OUTPUT TAPE 6,124, ISPILL + 124 FORMAT (23H UNDERFLOW OCCURRED AT I6,20H IN FSUBC SUBROUTINE) + 25 IF (JSPILL) 26,27,26 + 26 WRITE OUTPUT TAPE 6,126, JSPILL + 126 FORMAT (22H OVERFLOW OCCURRED AT I6,20H IN FSUBC SUBROUTINE) + CALL LEAVE + STOP + 27 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 079.png---Folio 74------- + +\begin{lstlisting} + SUBROUTINE EXSGML + IF DIVIDE CHECK 10,11 + 10 WRITE OUTPUT TAPE 6,110 + 110 FORMAT (60H DIVIDE CHECK TRIGGER FOUND ON AT START OF EXSGML SUBRO + 1UTINE) + CALL LEAVE + STOP + 11 ISPILL=0 + JSPILL=0 + 1 FL=O. + EXSGMR(1)=COSF(2.0*SIGMA0) + EXSGMI(1)=SINF(2.0*SIGMA0) + ETA2=ETA**2 + ETA2A=2.0*ETA + DO 20 L=2,LMAX + FL=FL+1.0 + TER0=FL**2 + TER1=TER0+ETA2 + TER2=(TER0-ETA2)/TER1 + TER3=(ETA2A*FL)/TER1 + IF DIVIDE CHECK 12,13 + 12 WRITE OUTPUT TAPE 6,112,L + 112 FORMAT (44H DIVISOR IS ZERO IN EXSGML SUBROUTINE FOR L=I3) + CALL LEAVE + STOP + 13 EXSGMR(L)=(TER2*EXSGMR(L-1))-(TER3*EXSGMI(L-1)) + 20 EXSGMI(L)=(TER2*EXSGMI(L-1))+(TER3*EXSGMR(L-1)) + IF (ISPILL) 14,15,14 + 14 WRITE OUTPUT TAPE 6,114, ISPILL + 114 FORMAT(23H UNDERFLOW OCCURRED AT I6,21H IN EXSGML SUBROUTINE) + 15 IF (JSPILL) 16,17,16 + 16 WRITE OUTPUT TAPE 6,116,JSPILL + 116 FORMAT(22H OVERFLOW OCCURRED AT I6,21H IN EXSGML SUBROUTINE) + CALL LEAVE + STOP + 17 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 080.png---Folio 75------- + +\begin{lstlisting} + SUBROUTINE RHOTB + DRHO(1)=DRHOIN(1) + RHO(1)=RHOIN(1) + N=1 + I=1 + 20 RHO(I+1)=RHO(I)+DRHOIN(N) + IF (RHO(I+1)-RHOIN(NMAX))30,50,70 + 30 IF(ABSF(RHO(I+1)-RHOIN(N+1))-.5*DRHOIN(N)) 35,35,40 + 35 N=XMINOF(N+1,NMAX-1) + 40 DRHO(I+1)=DRHOIN(N) + I=I+1 + GO TO 20 + 50 ILAST=I+1 + 60 RHO(ILAST)=RHOIN(NMAX) + DRHO(ILAST-1)=RHO(ILAST)-RHO(ILAST-1) + RHOMAX=RHOIN(NMAX) + DRHOL=DRHOIN(NMAX-1) + IF(ISPILL) 80,81,80 + 80 WRITE OUTPUT TAPE 6,180,ISPILL + 180 FORMAT(23H UNDERFLOW OCCURRED AT I6,21H IN RHOTB SUBROUTINE) + 81 IF(JSPILL)82,83,82 + 82 WRITE OUTPUT TAPE 6,182,JSPILL + 182 FORMAT(22H OVERFLOW OCCURRED AT I6,21H IN RHOTB SUBROUTINE) + CALL LEAVE + STOP + 83 RETURN + 70 IF((RHO(I+1)-RHOIN(NMAX))-.5*DRHOIN(N))50,50,75 + 75 ILAST=I + GO TO 60 +\end{lstlisting} +\clearpage + +%% -----File: 081.png---Folio 76------- + +\begin{lstlisting} + SUBROUTINE COULFN + IF DIVIDE CHECK 50,51 + 50 WRITE OUTPUT TAPE 6,150 + 150 FORMAT (60H DIVIDE CHECK TRIGGER FOUND ON AT START OF COULFN SUBRO + 1UTINE) + CALL LEAVE + STOP + 51 ISPILL=0 + JSPILL=0 + IKTRL=KTRL(13) + LMAX=LMAXM+1 + ETA2=ETA**2 + SQ=SQRTF(1.+ETA2) + 1 IJ = 1 + AR(1)=-ETA + AI(1)=0. + AR(2)=-.5*ETA2 + AI(2)=.5*ETA + 2 SI=0. + SR=0. + PR= RHOMAX + DO 10 K=2,49 + T= PR*FLOATF(1-K) + TR=AR(K)/T + TI=AI(K)/T + IF DIVIDE CHECK 52,53 + 52 WRITE OUTPUT TAPE 6,152 + 152 FORMAT(57H DIVISOR T IS ZERO IN FIRST DIVISION OF COULFN SUBROUTIN + 1E) + CALL LEAVE + STOP + 53 SQN=TR**2+TI**2 + IF(K-2) 4,4,3 + 3 IF(SQN-SQO) 4,4,11 + 4 TR=SR+TR + TI=SI+TI + IF(TR-SR) 6,5,6 + 5 IF(TI-SI) 6,13,6 + 6 SR=TR + SI=TI + AR(K+1)=0. + AI(K+1)=0. + KP=K/2 + DO 7 M=1,KP + KM=K+1-M + AR(K+1)=AR(K+1)-AR(M)*AR(KM)+AI(W)*AI(KM) + AI(K+1)=AI(K+1)-AI(KM)*AR(M)-AI(M)*AR(KM) + IF(K-2*KP) 8,9,8 + AR(K+1)=AR(K+1)-.5*(AR(KP+1)**2-AI(KP+1)**2) + AI(K+1)=AI(K+1)-AR(KP+1)*AI(KP+1) +\end{lstlisting} +%% -----File: 082.png---Folio 77------- +\begin{lstlisting} + 9 FK=.5*FLOATF(K) + AI(K+1)=AI(K+1)-FK*AR(K) + AR(K+1)=AR(K+1)+FK*AI(K) + PR= PR*RHOMAX + 10 SQO=SQN + GO TO 101 + 11 T=SR**2+SI**2 + IF(T) 105,105,12 + 12 IF(ABSF(SQO/T)-EPS3) 13,13,106 + 13 GO TO (14,15),IJ + 14 PAR=RHOMAX-ETA*LOGF(2.*RHOMAX) + PHI0R=PAR+SIGMA0+SR + PHI0I=SI + AR(2)=-1.+AR(2) + IJ=2 + GO TO 2 + 15 PHI1R=PAR+SIGMA1-1.570796325+SR + PHI1I=SI + 25 T1=EXPF(-PHI0I) + T2=EXPF(-PHI1I) + G(1)=T1*COSF(PHI0R) + G(2)=T2*COSF(PHI1R) + F1=T1*SINF(PHI0R) + F2=T2*SINF(PHI1R) + IF(ABSF(F1*G(2)-F2*G(1)-1./SQ)-EPS1) 31,31,102 + 31 IDEC=11 + 32 I=LMAX+IDEC + FBAR(I)=.1 + FBAR(I+1)=0. + LIMIT=LMAXM+IDEC + FL=LMAX+11 + T1=SQRTF((FL+1.)**2+ETA2) + IF(JSPILL) 139,133,139 + 139 WRITE OUTPUT TAPE 6,1390,JSPILL + 1390 FORMAT(23H OVERFLOW2 OCCURRED AT I6,21H IN COULFN SUBROUTINE) + CALL LEAVE + STOP + 133 DO 33 I=1,LIMIT + L=LMAX+IDEC-I + FL=L + T2=SQRTF(FL**2+ETA2) + FBAR(L)=((2.*FL+1.)*(ETA+FL*(FL+1.)/RHOMAX)*FBAR(L+l)-FL*T1*FBAR(L + 1+2))/((FL+1.)*T2) + IF DIVIDE CHECK 54,600 + 54 WRITE OUTPUT TAPE 6,154 + 154 FORMAT(56H DIVISOR IS ZERO IN SECOND DIVISION OF COULFN SUBROUTINE + 1) + CALL LEAVE + STOP + 600 IF(JSPILL) 601,33,601 +\end{lstlisting} +%% -----File: 083.png---Folio 78------- +\begin{lstlisting} + 601 WRITE OUTPUT TAPE 6,1601,JSPILL + 1601 FORMAT(22H OVERFLOW OCCURRED AT I6,21H IN COULFN SUBROUTINE,24H MU + 1LTIPLY FBAR(I) BY 0.1) + K=LMAX+IDEC + FBAR(K)=FBAR(K)*0.1 + JSPILL=0 + GO TO 133 + 33 T1=T2 + ALPHA=1./((FBAR(1)*G(2)-FBAR(2)*G(1))*SQ) + IF DIVIDE CHECK 55,43 + 55 WRITE OUTPUT TAPE 6,155 + 155 FORMAT (55H DIVISOR IS ZERO IN THIRD DIVISION OF COULFN SUBROUTINE + 1) + CALL LEAVE + STOP + 43 LMAXP=LMAX+1 + DO 34 I=1,LMAXP + 34 FBAR(I)=ALPHA*FBAR(I) + IF(IDEC-11) 371,35,371 + 371 IF(ABSF(F1/FBAR(1)-1.)-EPS2) 37,37,35 + 35 DO 36 I=1,LMAXP + 36 F(I)=FBAR(I) + IDEC=IDEC+5 + IF (IDEC-40) 32,32,103 + 37 DO 38 I=1,LMAXP + IF(ABSF(F(I)/FBAR(I)-1.)-EPS2) 44,44,35 + 44 IF DIVIDE CHECK 56,38 + 56 WRITE OUTPUT TAPE 6,156,L,I + 156 FORMAT(74H DIVISOR FBAR(I)-1. IS ZERO IN FOURTH DIVISION OF COULFN + 1 SUBROUTINE FOR L=I3,7H AND I=I3) + CALL LEAVE + STOP + 38 CONTINUE + DO 381 I=1,MAXP + 381 F(I)=FBAR(I) + 382 T1=SQ + DO 40 L=1,LMAX + FL=L + T2=SQRTF((FL+1.)**2+ETA2) + G(L+2)=((2.*FL+1.)*(ETA+FL*(FL+1.)/RHOWAX)*G(L+1)-(FL+1.)*T1*G(L)) + 1/(FL*T2) + TS=FL/T1 + IF DIVIDE CHECK 57,45 + 57 WRITE OUTPUT TAPE 6,157 + 157 FORMAT(58H DIVISOR T1 IS ZERO IN FIFTH DIVISION OF COULFN SUBROUTI + 1NE) + CALL LEAVE + STOP + 45 IF(ABSF(F(L)*G(L+1)-F(L+1)*G(L)-TS)-EPS1) 40,40,104 + 40 T1=T2 +\end{lstlisting} +%% -----File: 084.png---Folio 79------- +\begin{lstlisting} + 41 DO 42 L=1,LMAX + FL=L + T=FL**2 + T1=T/RHOMAX+ETA + IF DIVIDE CHECK 58,46 + 58 WRITE OUTPUT TAPE 6,158 + 158 FORMAT (62H DIVISOR RHOMAX IS ZERO IN SIXTH DIVISION OF COULFN SUB + 1ROUTINE) + CALL LEAVE + STOP + 46 T2=SQRTF(T+ETA2) + FP(L)=(T1*F(L)-T2*F(L+1))/FL + 42 GP(L)=(T1*G(L)-T2*G(L+1))/FL + IF DIVIDE CHECK 59,47 + 59 WRITE OUTPUT TAPE 6,159 + 159 FORMAT(60H DIVISOR FL IS ZERO IN SEVENTH DIVISION OF COULFN SUBROU + 1TINE) + CALL LEAVE + STOP + 47 IF(ISPILL) 60,61,60 + 60 WRITE OUTPUT TAPE 6,160,ISPILL + 160 FORMAT(23H UNDERFLOW OCCURRED AT I6,21H IN COULFN SUBROUTINE) + 61 IF(JSPILL) 62,63,62 + 62 WRITE OUTPUT TAPE 6,162,JSPILL + 162 FORMAT(22H OVERFLOW OCCURRED AT I6,21H IN COULFN SUBROUTINE) + CALL LEAVE + STOP + 63 RETURN + 101 WRITE OUTPUT TAPE 6,121,RHOMAX,DRHOL + GO TO (110,110,109,109),IKTRL + 109 WRITE OUTPUT TAPE 6,114 + GO TO 13 + 102 WRITE OUTPUT TAPE 6,122,RHOMAX,DRHOL + GO TO(110,110,111,111),IKTRL + 111 WRITE OUTPUT TAPE 6,114 + GO TO 31 + 103 WRITE OUTPUT TAPE 6,123,RHOMAX,DRHOL + GO TO (110,110,112,112),IKTRL + 112 WRITE OUTPUT TAPE 6,114 + GO TO 382 + 104 WRITE OUTPUT TAPE 6,124,RHOMAX,DRHOL ,L + GO TO (110,110,113,113),IKTRL + 113 WRITE OUTPUT TAPE 6,114 + GO TO 40 + 105 WRITE OUTPUT TAPE 6,125,RHOMAX,DRHOL + GO TO (110,110,115,115),IKTRL + 115 WRITE OUTPUT TAPE 6,114 + GO TO 12 + 106 WRITE OUTPUT TAPE 6,126,RHOMAX,DRHOL + GO TO (110,110,116,116),IKTRL +\end{lstlisting} +%% -----File: 085.png---Folio 80------- +\begin{lstlisting} + 116 WRITE OUTPUT TAPE 6,114 + GO TO 13 + 110 RHOMAX=RHOMAX+DRHOL + GO TO 1 + 121 FORMAT(18H INCREASE RHO MAX=E11.4,2H+ E11.4,35H A OR B SERIES CONV + 1ERGES TOO SLOWLY) + 122 FORMAT(18H INCREASE RHO MAX=E11.4,2H+ E11.4,22H BAD INITIAL WRONSK + 1IAN) + 123 FORMAT(18H INCREASE RHO MAX=E11.4,2H+ E11.4,24H L TOO LARGE IN FBA + 1R (L)) + 124 FORMAT(18H INCREASE RHO MAX=E11.4,2H+ E11.4,21H BAD WRONSKIAN FOR + 1L=I3) + 125 FORMAT(67H SERIES IN PHI0 OR PHI1 IS ZERO, CHECK DATA, IF OK INCRE + 1ASE RHOMAX=E11.4,2H+ E11.4) + 126 FORMAT(52H A OR B SERIES DIVERGES TOO QUICKLY INCREASE RHOMAX=E11. + 14,2H+ E11.4) + 114 FORMAT(42H RHOMAX INCREASE NOT PERMITTED BY KTRL(13)) + + + + + + SUBROUTINE RMXINC + 3 IF (RHOMAX-RHO(ILAST)) 1,2,1 + 1 ILAST=ILAST+1 + RHO(ILAST)=RHO(ILAST-1)+DRHOL + DRHO(ILAST-1)=DRHOL + GO TO 3 + 2 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 086.png---Folio 81------- + +\begin{lstlisting} + SUBROUTINE PGEN4 + IF DIVIDE CHECK 60,61 + 60 WRITE OUTPUT TAPE 6,160 + 160 FORMAT (59H DIVIDE CHECK TRIGGER FOUND ON AT START OF PGEN4 SUBROU + 1TINE) + CALL LEAVE + STOP + 61 ISPILL=0 + JSPILL=0 + IF(KTRL(1)) 3,4,3 + 3 KTRL(7)=0 + KTRL(8)=0 + KTRL(9)=0 + KTRL(10)=0 + 4 T1=V/ECM + T2=W/ECM + T10=VS/ECM + T11=WS/ECM + T12=FKAY*BG + T3=2.*FKAY/A + IF DIVIDE CHECK 62,65 + 62 WRITE OUTPUT TAPE 6,162 + 162 FORMAT (65H DIVISORS ECM OR A WERE WRONGLY INPUT AS ZERO IN PGEN4 + 1SUBROUTINE) + CALL LEAVE + STOP + 65 T4=T10*T3 + T5=T11*T3 + T6=FKAY*A + T7=ETA/RHOBC + IF DIVIDE CHECK 63,64 + 63 WRITE OUTPUT TAPE 6,163 + 163 FORMAT(61H DIVISOR RHOBC IS ZERO IN SECOND DIVISION OF PGEN4 SUBRO + 1UTINE) + CALL LEAVE + STOP + 64 T8=RHOBC**2 + T9=ETA*2. + I=1 + 40 EX=EXPF((RHO(I)-RHOBN)/T6) + IF DIVIDE CHECK 80,66 + 80 WRITE OUTPUT TAPE 6,165 + 165 FORMAT (58H QUANTITY T6 IS ZERO IN THIRD DIVISION OF PGEN4 SUBROUT + 1INE) + CALL LEAVE + STOP + 66 K=1 + 41 IF(I-1) 42,43,42 + 42 IF(DRHO(I)-DRHO(I-1)) 43,44,43 + 43 HDRHO=DRHO(I)*.5 +\end{lstlisting} +%% -----File: 087.png---Folio 82------- +\begin{lstlisting} + DEX=EXPF(HDRHO/T6) + 44 IF(KTRL(1)-2)53,52,53 + 52 IF(RHO(I)-RHOBN) 54,55,55 + 54 S1=1.0 + GO TO 68 + 55 S1=0.0 + GO TO 68 + 53 S1=1./(1.+EX) + IF DIVIDE CHECK 67,68 + 67 WRITE OUTPUT TAPE 6,167 + 167 FORMAT(60H DIVISOR 1.+EX IS ZERO IN FOURTH DIVISION OF PGEN4 SUBRO + 1UTINE) + CALL LEAVE + STOP + 68 S2=EX*(S1**2) + S4=S2/RHO(I) + IF DIVIDE CHECK 69,70 + 69 WRITE OUTPUT TAPE 6,169,I + 169 FORMAT(58H DIVISOR RHO IS ZERO IN FIFTH DIVISION OF PGEN4 SUBROUTI + 1NE) + CALL LEAVE + STOP + 70 IF (RHO(I)-RHOBC) 9,9,10 + 9 S3=T7*(3.-(RHO(I)**2)/T8) + GO TO 11 + 10 S3=T9/RHO(I) + 11 IF (KTRL(7)) 350,300,350 + 300 UCRB(I)=-1.-T1*S1+S3 + FFCR(I)=S1 + 301 IF (KTRL(8)) 355,302,355 + 302 IF(KTRL(1)-1) 309,308,309 + 308 S1=EXPF(-((RHO(I)-RHOBNG)/T12)**2) + IF DIVIDE CHECK 82,309 + 82 WRITE OUTPUT TAPE 6,182 + 182 FORMAT(22H BG IS ZERO IN PGEN SR) + CALL LEAVE + STOP + 309 UCIB(I)=-T2*S1 + FFCI(I)=S1 + 303 IF (KTRL(9)) 360,304,360 + 304 USRB(I)=T4*S4 + FFSR(I)=S4 + 305 IF (KTRL(11)) 501,500,501 + 500 IF (KTRL(10))365,306,365 + 306 USIB(I)=T5*S4 + FFSI(I)=S4 + 307 IF (I-ILAST) 50,200,200 + 350 ITT=1 + GO TO 340 + 355 ITT=2 +\end{lstlisting} +%% -----File: 088.png---Folio 83------- +\begin{lstlisting} + GO TO 340 + 340 ITQ=1 + IF(ITT-1) 380,380,381 + 380 IF (KTRL(7)-1) 352,351,352 + 351 TW=HA + TRM=RMA + TN1=FN1A + TN2=FN2A + GO TO 400 + 352 TH=HB + TRM=RMB + TN1=FN1B + TN2=FN2B + GO TO 400 + 381 IF (KTRL(8)-1) 352,351,352 + 400 IF (RHO(I)-RHOBN) 410,410,411 + 410 TTN=TN1 + GO TO 412 + 411 TTN=TN2 + 412 T20=RHO(I)/RHOBN + IF (TTN*LOGF(T20)-80.) 403,403,409 + 403 TQ=(T20**TTN-1.)*RHOBN/(TTN*FKAY*A) + IF DIVIDE CHECK 405,406 + 405 TG=T20**(RHOBN/(FKAY*A)) + GO TO 407 + 406 IF (TQ-80.) 408,408,409 + 408 TG=EXPF(TQ) + GO TO 407 + 409 TF=0. + GO TO 422 + 407 TFN=1./(1.+TG) + IF (RHO(I)-TRM) 420,420,419 + 419 TF=TFN + GO TO 418 + 420 T21=RHO(I)/TRM + THH=TH*(1.+(2.*T21))*((1.-T21)**2) + TF=TFN*(1.+THH) + 418 TFF=TF + 421 GO TO (422,423),ITQ + 422 GO TO (425,426,427,428),ITT + 425 FFCR(I)=TF + UCRB(I)=-1.-T1*FFCR(I)+S3 + GO TO 301 + 426 FFCI(I)=TF + UCIB(I)=-T2*FFCI(I) + GO TO 303 + 427 FFSR(I)=TF + IF (ITQ-1) 470,470,471 + 471 USRB(I)=FKAY*A*T4*FFSR(I) + GO TO 305 +\end{lstlisting} +%% -----File: 089.png---Folio 84------- +\begin{lstlisting} + 470 USRB(I)=(T4/2.)*FFSR(I) + GO TO 305 + 428 FFSI(I)=TF + IF(ITQ-1) 472,472,473 + 473 USIB(I)=FKAY*A*T5*FFSI(I) + GO TO 307 + 360 ITT=3 + IF (KTRL(9)-1) 431,431,430 + 430 ITQ=1 + GO TO 352 + 365 ITT=4 + IF (KTRL(10)-1) 431,431,430 + 472 USIB(I)=(T5/2.)*FFSI(I) + GO TO 307 + 431 ITQ=2 + GO TO 351 + 423 T23=(RHOBN/(FKAY*A))*(T20**TTN)*TG*((TFN/RHO(I))**2) + T25=T23 + IF(RHO(I)-TRM) 460,460,461 + 460 T24=6.*TH*(1.-T21)/(TRM**2) + T25=(T24*TFN)+((1.+THH)*T23) + 461 TF=T25 + IF(ITT-3) 427,427,428 + 501 T30=0.004927*ETA*ECM + IF(RHO(I)-RHOBC) 502,502,503 + 502 SOCOUL=T30/(RHOBC**3) + GO TO 504 + 503 SOCOUL=T30/(RHO(I)**3) + 504 USRB(I)=USRB(I)+SOCOUL + GO TO 500 + 50 I=I+1 + EX=EX*DEX + RHOM=RHO(I-1)+HDRHO + IF(KTRL(1)-2) 153,152,153 + 152 IF(RHOM-RHOBN)34,35,35 + 34 S1=1.0 + GO TO 72 + 35 S1=0.0 + GO TO 72 + 153 S1=1./(1.+EX) + IF DIVIDE CHECK 71,72 + 71 WRITE OUTPUT TAPE 6,171 + 171 FORMAT(54H DIVISOR 15 ZERO IN SIXTH DIVISION OF PGEN4 SUBROUTINE) + CALL LEAVE + STOP + 72 S2=EX*(S1**2) + S4=S2/RHOM + IF DIVIDE CHECK 73,74 + 73 WRITE OUTPUT TAPE 6,173 + 173 FORMAT (62H QUANTITY RHOM IS ZERO IN SEVENTH DIVISION OF PGEN4 SUB +\end{lstlisting} +%% -----File: 090.png---Folio 85------- +\begin{lstlisting} + 1ROUTINE) + CALL LEAVE + STOP + 74 IF(RHOM-RHOBC) 21,21,22 + 21 S3=T7*(3.-(RHOM**2)/T8) + GO TO 23 + 22 S3=T9/RHOM + 23 IF (KTRL(7))1350,1300,1350 + 1300 UCRM(I-1)=-1.-T1*S1+S3 + FFCRM(I-1)=51 + 1301 IF (KTRL(8)) 1355,1302,1355 + 1302 IF(KTRL(1)-1) 1309,1308,1309 + 1308 S1=EXPF(-((RHOM-RHOBNG)/T12)**2) + 1309 UCIM(I-1)=-T2*S1 + FFCIM(I-1)=S1 + 1303 IF (KTRL(9)) 1360,1304,1360 + 1304 USRM(I-1)=T4*S4 + FFSRM(I-1)=S4 + 1305 IF (KTRL(I1)) 1501,1500,1501 + 1500 IF (KTRL(I0))1365,1306,1365 + 1306 USIM(I-1)=T5*S4 + FFSIM(I-1)=S4 + 1307 IF (K-10) 24,40,40 + 1350 ITT=1 + GO TO 1340 + 1355 ITT=2 + GO TO 1340 + 1340 ITQ=1 + IF (ITT-1)1380,1380,1381 + 1380 IF (KTRL(7)-1) 1352,1351,1352 + 1351 TH=HA + TRM=RMA + TN1=FN1A + TN2=FN2A + GO TO 1400 + 1352 TH=HB + TRM=RMB + TN1=FN1B + TN2=FN2B + GO TO 1400 + 1381 IF (KTRL(8)-1) 1352,1351,1352 + 1400 IF (RHOM-RHOBN) 1410,1410,1411 + 1410 TTN=TN1 + GO TO 1412 + 1411 TTN=TN2 + 1412 T20=RHOM/RHOBN + IF (TTN*LOGF(T20)-80.) 1403,1403,1409 + 1403 TQ=(T20**TTN-1.)*RHOBN/(TTN*FKAY*A) + IF DIVIDE CHECK 1405,1406 + 1405 TG=T20**(RHOBN/(FKAY*A)) +\end{lstlisting} +%% -----File: 091.png---Folio 86------- +\begin{lstlisting} + GO TO 1407 + 1406 IF (TQ-80.) 1408,1408,1409 + 1408 TG=EXPF(TQ) + GO TO 1407 + 1409 TF=0. + GO TO 1422 + 1407 TFN=1./(1.+TG) + IF (RHOM-TRM) 1420,1420,1419 + 1419 TF=TFN + GO TO 1418 + 1420 T21=RHOM/TRM + TRH=TH*(1.+(2.*T21))*((1.-T21)**2) + TF=TFN*(1.+THH) + 1418 TFF=TF + 1421 GO TO (1422,1423),ITQ + 1422 GO TO (1425,1426,1427,1428),ITT + 1425 FFCRM(I-1)=TF + UCRM(I-1)=-1.-T1*FFCRM(I-1)+S3 + GO TO 1301 + 1426 FFCIM(I-1)=TF + UCIM(I-1)=-T2*FFCIM(I-1) + GO TO 1303 + 1427 FFSRM(I-1)=TF + IF (ITQ-1) 1470,1470,1471 + 1471 USRM(I-1)=FKAY*A*T4*FFSRM(I-1) + GO TO 1305 + 1470 USRM(I-1)=(T4/2.)*FFSRM(I-1) + GO TO 1305 + 1428 FFSIM(I-1)=TF + IF (ITQ-1) 1472,1472,1473 + 1473 USIM(I-1)=FKAY*A*T5*FFSIM(I-1) + GO TO 1307 + 1360 ITT=3 + IF (KTRL(9)-1) 1431,1431,1430 + 1430 ITQ=1 + GO TO 1352 + 1365 IIT=4 + IF (KTRL(10)-1) 1431,1431,1430 + 1472 USIM(I-1)=(T5/2.)*FFSIM(I-1) + GO TO 1307 + 1431 ITQ=2 + GO TO 1351 + 1423 T23=(RHOBN/(FKAY*A))*(T20**TTN)*TG*((TFN/RHOM)**2) + T25=T23 + IF(RHOM-TRM) 1460,1460,1461 + 1460 T24=6.*TH*(1.-T21)/(TRM**2) + T25=(T24*TFN)+((1.+THH)*T23) + 1461 TF=T25 + IF (ITT-3) 1427,1427,1428 + 1501 T30=0.004927*ETA*ECM +\end{lstlisting} +%% -----File: 092.png---Folio 87------- +\begin{lstlisting} + IF (RHOM-RHOBC) 1502,1502,1503 + 1502 SOCOUL=T30/(RHOBC**3) + GO TO 1504 + 1503 SOCOUL=T30/(RHOM**3) + 1504 USRM(I-1)=USRM(I-1)+SOCOUL + GO TO 1500 + 24 K=K+1 + EX=EX*DEX + GO TO 42 + 200 IF(ISPILL) 75,76,75 + 75 WRITE OUTPUT TAPE 6,175,ISPILL + 175 FORMAT(23H UNDERFLOW OCCURRED AT I6,20H IN PGEN4 SUBROUTINE) + 76 IF (JSPILL) 77,51,77 + 77 WRITE OUTPUT TAPE 6,177, JSPILL + 177 FORMAT(22H OVERFLOW OCCURRED AT I6,20H IN PGEN4 SUBROUTINE) + CALL LEAVE + STOP + 51 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 093.png---Folio 88------- + +\begin{lstlisting} + SUBROUTINE INTCTR + DO1 L=1,LMAX + IFIRST=IIN(L) + T=RHO(IFIRST)**(L-1) + XC1=T*RHO(IFIRST) + XD1=XC1 + FL=L + XCP1=FL*T + XDP1=XCP1 + YC1=0. + YD1=0. + YCP1=0. + YDP1=0. + CALL RKINT + X1(L)=XC1 + X2(L)=XD1 + Y1(L)=YC1 + Y2(L)=YD1 + X1P(L)=XCP1 + X2P(L)=XDP1 + Y1P(L)=YCP1 + 1 Y2P(L)=YDP1 + RETURN +\end{lstlisting} +\clearpage + +%% -----File: 094.png---Folio 89------- + +\begin{lstlisting} + SUBROUTINE RKINT + IF DIVIDE CHECK 10,11 + 10 WRITE OUTPUT TAPE 6,110,L,I + 110 FORMAT(66H DIVIDE CHECK TRIGGER FOUND ON AT START OF RKINT SUBROUT + 1INE FOR L=I3,7H AND I=I3) + CALL LEAVE + STOP + 11 ISPILL=0 + JSPILL=0 + 1 FL=L-1 + F2L=-1.-FL + F3L=FL*(FL+1.) + TB=UCRB(IFIRST)+F3L/(RHO(IFIRST)**2) + IF DIVIDE CHECK 12,13 + 12 WRITE OUTPUT TAPE 6,112,L,I + 112 FORMAT(76H DIVISOR RHO(IFIRST)**2 IS ZERO IN FIRST DIVISION OF RKI + 1NT SUBROUTINE FOR L=I3,7H AND I=I3) + CALL LEAVE + STOP + 13 PCB=TB+USRB(IFIRST)*FL + PDB=TB+USRB(IFIRST)*F2L + QCB=UCIB(IFIRST)+USIB(IFIRST)*FL + QDB=UCIB(IFIRST)+USIB(IFIRST)*F2L + IK=ILAST-1 + DO 6 I=IFIRST,IK + 2 HDRHO=.5*DRHO(I) + DRHO2=(DRHO(I)**2)*.5 + RHOM=RHO(I)+HDRHO + TM=UCRM(I)+F3L/(RHOM**2) + IF DIVIDE CHECK 14,15 + 14 WRITE OUTPUT TAPE 6,114,L,I + 114 FORMAT(70H DIVISOR RHOM**2 IS ZERO IN SECOND DIVISION OF RKINT SUB + 1ROUTINE FOR L=I3,7H AND I=I3) + CALL LEAVE + STOP + 15 PCM=TM+USRM(I)*FL + PDM=TM+USRM(I)*F2L + QCM=UCIM(I)+USIM(I)*FL + QDM=UCIM(I)+USIM(I)*F2L + XCPP1=PCB*XC1-QCB*YC1 + YCPP1=QCB*XC1+PCB*YC1 + XDPP1=PDB*XD1-QDB*YD1 + YDPP1=QDB*XD1+PDB*YD1 + XC2=XC1+XCP1*HDRHO + YC2=YC1+YCP1*HDRHO + XD2=XD1+XDP1*HDRHO + YD2=YD1+YDP1*HDRHO + XCPP2=PCM*XC2-QCM*YC2 + YCPP2=QCM*XC2+PCM*YC2 + XDPP2=PDM*XD2-QDM*YD2 +\end{lstlisting} +%% -----File: 095.png---Folio 90------- +\begin{lstlisting} + YDPP2=QDM*XD2+PDM*YD2 + DRHO4=.5*DRHO2 + SDRHO=.33333333*HDRHO + XC3=XC2+XCPP1*DRHO4 + YC3=YC2+YCPP1*DRHO4 + XD3=XD2+XDPP1*DRHO4 + YD3=YD2+YDPP1*DRHO4 + XCPP3=PCM*XC3-QCW*YC3 + YCPP3=QCM*XC3+PCM*YC3 + XDPP3=PDM*XD3-QDM*YD3 + YDPP3=QDM*XD3+PDW*YD3 + XC4=XC2+XCPP2*DRHO2+XCP1*HDRHO + YC4=YC2+YCPP2*DRHO2+YCP1*HDRHO + XD4=XD2+XDPP2*DRHO2+XDP1*HDRHO + YD4=YD2+YDPP2*DRHO2+YDP1*HDRHO + TB=UCRB(I+1)+F3L/(RHO(I+1)**2) + IF DIVIDE CHECK 16,17 + 16 WRITE OUTPUT TAPE 6,116,L,I + 116 FORMAT(74H DIVISOR RHO(I+1)**2 IS ZERO IN THIRD DIVISION FOR RKINT + 1 SUBROUTINE FOR L=I3,7H AND I=I3) + CALL LEAVE + STOP + 17 PCB=TB+USRB(I+1)*FL + PDB=TB+USRB(I+1)*F2L + QCB=UCIB(I+1)+USIB(I+1)*FL + QDB=UCI8(I+1)+USIB(I+1)*F2L + XCPP4=PCB*XC4-QCB*YC4 + YCPP4=QCB*XC4+PCB*YC4 + XDPP4=PDB*XD4-QDB*YD4 + YDPP4=QDB*XD4+PDB*YD4 + SXC=XCPP2+XCPP3 + SYC=YCPP2+YCPP3 + SXD=XDPP2+XDPP3 + SYD=YDPP2+YDPP3 + TXC=SXC+XCPP1 + TYC=SYC+YCPP1 + TXD=SXD+XDPP1 + TYD=SYD+YDPP1 + TXC1=XC1+DRHO(I)*(XCP1+SDRHO*TXC) + TYC1=YC1+DRHO(I)*(YCP1+SDRHO*TYC) + TXD1=XD1+DRHO(I)*(XDP1+SDRHO*TXD) + TYD1=YD1+DRWO(I)*(YDP1+SDRHO*TYD) + TXCP1=XCP1+SDRHO*(TXC+SXC+XCPP4) + TYCP1=YCP1+SDRHO*(TYC+SYC+YCPP4) + TXDP1=XDP1+SDRHO*(TXD+SXD+XDPP4) + TYDP1=YDP1+SDRHO*(TYD+SYD+YDPP4) + IF (JSPILL) 20,21,20 + 20 RENORM=MAX1F(ABSF(XC1),ABSF(YC1),ABSF(XCP1),ABSF(YCP1),ABSF(XD1), + 1ABSF(YD1),ABSF(XDP1),ABSF(YDP1)) + XC1=XC1/RENORM +\end{lstlisting} +%% -----File: 096.png---Folio 91------- +\begin{lstlisting} + YC1=YC1/RENORM + XCP1=XCP1/RENORM + YCP1=YCP1/RENORM + XD1=XD1/RENORM + YD1=YD1/RENORM + XDP1=XDP1/RENORM + YDP1=YDP1/RENORM + WRITE OUTPUT TAPE 6,200,RENORM,L,RHO(I) + 200 FORMAT(24H RENORMALIZATION FACTOR=E16.9,22H IN RKINT FOR CODED L=I + 13,9H AND RHO=E16.9) + JSPILL=0 + GO TO2 + 21 XC1=TXC1 + YC1=TYC1 + XD1=TXD1 + YD1=TYD1 + XCP1=TXCP1 + YCP1=TYCP1 + XDP1=TXDP1 + YDP1=TYDP1 + 6 CONTINUE + IF (ISPILL) 30,31,30 + 30 WRITE OUTPUT TAPE 6,130, ISPILL,L,I + 130 FORMAT(23H UNDERFLOW OCCURRED AT I6,27H IN RKINT SUBROUTINE FOR L= + 1I3.7H AND I=I3) + 31 IF (JSPILL) 32,4,32 + 32 WRITE OUTPUT TAPE 6,132, JSPILL,L,I + 132 FORMAT(22H OVERFLOW OCCURRED AT I6,27H IN RKINT SUBROUTINE FOR L=I + 13,7H AND I=I3) + CALL LEAVE + STOP + 4 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 097.png---Folio 92------- + +\begin{lstlisting} + SUBROUTINE CSUBL + IF DIVIDE CHECK 50,51 + 50 WRITE OUTPUT TAPE 6,150 + 150 FORMAT (59H DIVIDE CHECK TRIGGER FOUND ON AT START OF CSUBL SUBROU + 1TINE) + CALL LEAVE + STOP + 51 ISPILL=0 + JSPILL=0 + DO 40 L=1,LMAX + XNORM1=MAX1F(ABSF(X1(L))*ABSF(Y1(L)),ABSF(X1P(L)),ABSF(Y1P(L))) + TX1L=N1(L)/XNORM1 + TY1L=Y1(L)/XNORM1 + TX1PL=N1P(L)/XNORM1 + TY1PL=Y1P(L)/XNORM1 + FNORM=MAX1F(F(L),G(L),FP(L),GP(L)) + TFL=F(L)/FNORM + TGL=G(L)/FNORM + TFPL=FP(L)/FNORM + TGPL=GP(L)/FNORM + CO1=TFL*TY1PL-TFPL*TY1L + CO2=TFPL*TX1L-TFL*TX1PL + CO3=TY1L*TGPL-TY1PL*TGL+TX1L*TFPL-TX1PL*TFL + CO4=TX1PL*TGL-TX1L*TGPL+TY1L*TFPL-TY1PL*TFL + CO7=1.0/(CO3**2+CO4**2) + IF DIVIDE CHECK 52,53 + 52 WRITE OUTPUT TAPE 6,152 + 152 FORMAT(54H DIVISOR IS ZERO IN FIRST DIVISION OF CSUBL SUBROUTINE) + CALL LEAVE + STOP + 53 CR1(L)=(CO1*CO3+CO2*CO4)*CO7 + CI1(L)=(CO2*CO3-CO1*CO4)*CO7 + XNORM2=MAX1F(ABSF(X2(L)),ABSF(Y2(L)),ABSF(X2P(L)),ABSF(Y2P(L))) + TX2L=N2(L)/XNORM2 + TY2L=Y2(L)/XNORM2 + TX2PL=N2P(L)/XNORM2 + TY2PL=Y2P(L)/XNORM2 + CO1=TFL*TY2PL-TFPL*TY2L + CO2=TFPL*TX2L-TFL*TX2PL + CO3=TY2L*TGPL-TY2PL*TGL+TX2L*TFPL-TX2PL*TFL + CO4=TX2PL*TGL-TX2L*TGPL+TY2L*TFPL-TY2PL*TFL + CO7=1.0/(CO3**2+CO4**2) + IF DIVIDE CHECK 54,55 + 54 WRITE OUTPUT TAPE 6,154 + 154 FORMAT (55H DIVISOR IS ZERO IN SECOND DIVISION OF CSUBL SUBROUTINE + 1) + CALL LEAVE + STOP + 55 CR2(L)=(CO1*CO3+CO2*CO4)*CO7 + 40 CI2(L)=(CO2*CO3-CO1*CO4)*CO7 +\end{lstlisting} +%% -----File: 098.png---Folio 93------- +\begin{lstlisting} + IF (ISPILL) 56,57,56 + 56 WRITE OUTPUT TAPE 6,156,ISPILL,L + 156 FORMAT (23H UNDERFLOW OCCURRED AT I6,27H IN CSUBL SUBROUTINE FOR L + 1=I3) + 57 IF (JSPILL) 58,59,58 + 58 WRITE OUTPUT TAPE 6,158, JSPILL, L + 158 FORMAT (22H OVERFLOW OCCURRED AT I6,27H IN CSUBL SUBROUTINE FOR L= + 1I3) + CALL LEAVE + STOP + 59 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 099.png---Folio 94------- + +\begin{lstlisting} + SUBROUTINE AB + IF DIVIDE CHECK 1,2 + 1 WRITE OUTPUT TAPE 6,101 + 101 FORMAT (56H DIVIDE CHECK TRIGGER FOUND ON AT START OF AB SUBROUTIN + 1E) + CALL LEAVE + STOP + 2 ISPILL=0 + JSPILL=0 + FKAYD=1./FKAY + IF DIVIDE CHECK 3,4 + 3 WRITE OUTPUT TAPE 6,103 + 103 FORMAT(38H DIVISOR FKAY IS ZERO IN AB SUBROUTINE) + CALL LEAVE + STOP + 4 DO 20 J=1,JMAX + ASUMR=0. + ASUMI=0. + BSUMR=0. + BSUMI=0. + DO 10 L=1,LMAX + FL=L + ATR1=FL*CR1(L)+(FL-1.)*CR2(L) + ATI1=FL*CI1(L)+(FL-1.)*CI2(L) + BTR1=CR1(L)-CR2(L) + BTI1=CI1(L)-CI2(L) + ATR2=ATR1*EXSGMR(L)-(ATI1*EXSGMI(L)) + ATI2=ATR1*EXSGMI(L)+(ATI1*EXSGMR(L)) + BTR2=BTR1*EXSGMR(L)-(BTI1*EXSGMI(L)) + BTI2=BTR1*EXSGMI(L)+(BTI1*EXSGMR(L)) + ASUMR=ASUMR+(ATR2*P(L,J)) + ASUMI=ASUMI+(ATI2*P(L,J)) + BSUMR=BSUMR+(BTR2*PP(L,J)) + 10 BSUMI=BSUMI+(BTI2*PP(L,J)) + AR(J)= FCR(J)+(FKAYD*ASUMR) + AI(J)=FCI(J)+(FKAYD*ASUMI) + BR(J)= FKAYD*BSUMI + 20 BI(J)= -FKAYD*BSUMR + IF (ISPILL) 30,31,30 + 30 WRITE OUTPUT TAPE 6,130, ISPILL + 130 FORMAT(23H UNDERFLOW OCCURRED AT I6,17H IN AB SUBROUTINE) + 31 IF (JSPILL) 32,33,32 + 32 WRITE OUTPUT TAPE 6,132,JSPILL + 132 FORMAT (22H OVERFLOW OCCURRED AT I6,17H IN AB SUBROUTINE) + CALL LEAVE + STOP + 33 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 100.png---Folio 95------- + +\begin{lstlisting} + SUBROUTINE SGSGCP + IF DIVIDE CHECK 10,11 + 10 WRITE OUTPUT TAPE 6,110 + 110 FORMAT (60H DIVIDE CHECK TRIGGER FOUND ON AT START OF SGSGCP SUBRO + 1UTINE) + CALL LEAVE + STOP + 11 ISPILL=0 + JSPILL=0 + DO 5 J=1,JMAX + SGMATH(J)=AR(J)**2.+AI(J)**2.+BR(J)**2.+BI(J)**2. + POLTH(J)= (2.*(AR(J)*BR(J)+AI(J)*BI(J)))/SGMATH(J) + IF DIVIDE CHECK 12,13 + 12 WRITE OUTPUT TAPE 6,112,J + 112 FORMAT(30H DIVISOR SGMATH IS ZERO FOR J=13,21H IN SGSGCP SUBROUTIN + 1E) + CALL LEAVE + STOP + 13 SGMAC(J)=FCR(J)**2.+FCI(J)**2. + IF(ETA) 7,7,8 + 8 SRATIO(J)=SGMATH(J)/SGMAC(J) + IF DIVIDE CHECK 14,15 + 14 WRITE OUTPUT TAPE 6,114,J + 114 FORMAT(29H DIVISOR SGMAC IS ZERO FOR J=13,21H IN SGSGCP SUBROUTINE + 1) + CALL LEAVE + STOP + 15 GO TO 5 + 7 SRATIO(J)=0. + 5 CONTINUE + IF (ISPILL) 16,17,16 + 16 WRITE OUTPUT TAPE 6,116,ISPILL + 116 FORMAT (23H UNDERFLOW OCCURRED AT 16,21H IN SGSGCP SUBROUTINE) + 17 IF (JSPILL) 18,19,18 + 18 WRITE OUTPUT TAPE 6,118,JSPILL + 118 FORMAT(22H OVERFLOW OCCURRED AT 16,21H IN SGSGCP SUBROUTINE) + CALL LEAVE + STOP + 19 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 101.png---Folio 96------- + +\begin{lstlisting} + SUBROUTINE SIGMAR + ISPILL=0 + JSPILL=0 + FL=0. + SGMRTH=0. + CPI=(12.56637060)/(FKAY**2) + DO 20 L=I,LMAX + SGMRTH=SGMRTH+FL*(C12(L)-(C12(L))**2-(CR2(L))**2) + FL=FL+1.0 + 20 SGMRTH=SGMRTH+FL*(CI1(L)-(CI1(L))**2-(CR1(L))**2) + SGMRTH=CPI*SGMRTH + IF(ISPILL) 10,11,10 + 10 WRITE OUTPUT TAPE 6,110,ISPILL + 110 FORMAT(23H UNDERFLOW OCCURRED AT 16,21H IN SIGMAR SUBROUTINE) + 11 IF(JSPILL) 12,13,12 + 12 WRITE OUTPUT TAPE 6,112,JSPILL + 112 FORMAT(22H OVERFLOW OCCURRED AT 16,21H IN SIGMAR SUBROUTINE) + CALL LEAVE + STOP + 13 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 102.png---Folio 97------- + +\begin{lstlisting} + SUBROUTINE CHISQ + IF DIVIDE CHECK 10,11 + 10 WRITE OUTPUT TAPE 6,110 + 110 FORMAT(59H DIVIDE CHECK TRIGGER FOUND ON AT START OF CHISQ SUBROUT + 1INE) + CALL LEAVE + STOP + 11 ISPILL=0 + JSPILL=0 + CHI2ST=0 + CHI2PT=0 + DO 20 J=1,JMAX + CHI2S(J)= ((SGMATH(J)-SGMAEX(J))/DSGMEX(J))**2. + CHI2P(J)= ((POLTH(J)-POLEX(J))/DPOLEX(J))**2. + IF DIVIDE CHECK 14,15 + 14 WRITE OUTPUT TAPE 6,114,J + 114 FORMAT(40H DIVISOR DSGMEX OR DPOLEX IS ZERO FOR J=13,20H IN CHISQ + 1SUBROUTINE) + CALL LEAVE + STOP + 15 CHI2ST=CHI2ST + CHI2S(J) + CHI2(J)=CHI25(J)+CHI2P(J) + 20 CHI2PT=CHI2PT+CHI2P(J) + CHI2T=CHI2ST+CHI2PT + IF (ISPILL) 16,17,16 + 16 WRITE OUTPUT TAPE 6,116, ISPILL + 116 FORMAT(23H UNDERFLOW OCCURRED AT 16,20H IN CHISQ SUBROUTINE) + 17 IF(ISPILL) 18,19,18 + 18 WRITE OUTPUT TAPE 6,118,JSPILL + 118 FORMAT(22H OVERFLOW OCCURRED AT 16,20H IN CHISQ SUBROUTINE) + CALL LEAVE + STOP + 19 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 103.png---Folio 98------- + +\begin{lstlisting} + SUBROUTINE OUTPT4 + NPGS=0 + CALL SKIP(K,NPGS,NUMRUN) + WRITE OUTPUT TAPE 6,245,NUMPRG + 245 FORMAT (16H0PROGRAM NUMBER I5) + DO 8 I=1,13 + WRITE OUTPUT TAPE 6,250,I,(KTRL(I)) + 250 FORMAT (6H KTRL(I2,2H)=I2) + 8 CONTINUE + WRITE OUTPUT TAPE 6,12 + 12 FORMAT (11H0BASIC DATA) + FKAYA=FKAY*A + FKAYB=FKAY*BG + WRITE OUTPUT TAPE 6,14,FMI,FMB,ELAB,ZZ,V,W,A,RO,VS,WS,RC,BG,RG, + 14 FORMAT(7H0MSUBI=E16.9,10H MSUBB=E16.9,10H ELAB=E16.9,10H + 1 ZZP=E16.9/7H0 V=E16.9,10H W=E16.9,10H A=E16.9, + 210H RO=E16.9/7H0 VS=E16.9,10H WS=E16.9,36H + 3 RC=E16.9/59H0 + 4 BG=E16.9,10H RG=E16.9) + WRITE OUTPUT TAPE 6,16,RHOBN,RHOBC,RHOBNG,ECM,ETA,FKAY,FKAYA,FKAYB + 16 FORMAT(7H0RHOBN=E16.9,10H RHOBC=E16.9,10H RHOBNG=E16.9,10H + 1 ECM=E16.9/7H0 ETA=E16.9,10H K=E16.9/10H KA=E16.9, + 210H KB=E16.9) + KT=KTRL(7)+KTRL(8)+KTRL(9)+KTRL(10) + IF (KT) 13,1818,13 + 13 WRITE OUTPUT TAPE 6,150,HA,RMA,FN1A,FN2A,PMA,HB,RMB,FN1B,FN2B,PMB + 150 FORMAT(7H0 HA=E16.9,7H RMA=E16.9,7H N1A=E16.9,7H N2A=E16.9 + 1,7H PMA=E16.9/7H HB=E16.9,7H RMB=E16.9,7H N1B=E16.9,7H + 2N2B=E16.9,7H PMB=E16.9) + 1818 WRITE OUTPUT TAPE 6,18,RHOMAX,LMAXM + 18 FORMAT (17H0INTEGRATION DATA/8H0RHOMAX=E16.9,10H LMAXM=I5) + WRITE OUTPUT TAPE 6,220,NMAX + 220 FORMAT (6H0NMAX=I5) + WRITE OUTPUT TAPE 6,24 + 24 FORMAT (6H0RHOIN) + NOLINE=50 + K=20 + DO 40 I=1, NMAX,6 + IF(K-NOLINE) 30,29,29 + 29 CALL SKIP(K,NPGS,NUMRUN) + 30 M=XMINOF(I+5,NMAX) + K=K+1 + WRITE OUTPUT TAPE 6,32,(RHOIN(J),J=I,M) + 32 FORMAT(1H E19.9,5E20.9) + 40 CONTINUE + WRITE OUTPUT TAPE 6,41 + 41 FORMAT (7H0DRHOIN) + DO 60 I=1,NMAX,6 + IF(K-NOLINE) 45,43,43 + 43 CALL SKIP(K,NPGS,NUMRUN) +\end{lstlisting} +%% -----File: 104.png---Folio 99------- +\begin{lstlisting} + 45 M=XMINOF(I+5,NMAX-1) + K=K+1 + WRITE OUTPUT TAPE 6,32,(DRHOIN(J),J=I,M) + 60 CONTINUE + WRITE OUTPUT TAPE 6,118,SGMRTH + 118 FORMAT(12H0SIGMAR(TH)=E16.9) + 15 IF(KTRL(2)-1) 1900,20,1900 + 20 WRITE OUTPUT TAPE 6,119,CHI2ST,CHI2PT,CHI2T + 119 FORMAT (25H0SUM OF CHI SQUARE SIGMA=E16.9/23H0SUM OF CHI SQUARE PO + 1L=E16.9/25H0SUM OF CHI SQUARE TOTAL=E16.9) + 21 CALL SKIP(K,NPGS,NUMRUN) + WRITE OUTPUT TAPE 6,200 + 200 FORMAT (113H THETA SIGMATH SIG-SIGC + 1 POL TH SIGMA EX POL EX) + DO 90 I=1,JMAX + IF(K-NOLINE)75,70,70 + 70 CALL SKIP(K,NPGS,NUMRUN) + 75 K=K+1 + WRITE OUTPUT TAPE 6,32,THETAD(I),SGMATH(I),SRATIO(I),POLTH(I), + 1SGMAEX(I),POLEX(I) + 90 CONTINUE + GO TO 299 + 1900 CALL SKIP (K,NPGS,NUMRUN) + WRITE OUTPUT TAPE 6,1905 + 1905 FORMAT (120H THETA SIGMATH + 1 SIG-SIGC POL TH + 2) + DO 1920 I=1,JMAX + IF (K-NOLINE) 1910,1908,1908 + 1908 CALL SKIP (K,NPGS,NUMRUN) + 1910 K=K+1 + WRITE OUTPUT TAPE 6,1919,THETAD(I),SGMATH(I),SRATIO(I),POLTH(I) + 1919 FORMAT (1H E20.9,3E30.9) + 1920 CONTINUE + 299 IF(KTRL(6)-1) 300,121,300 + 300 IF(KTRL(12)-1) 25,1700,25 + 1700 CALL SKIP(K,NPGS,NUMRUN) + WRITE OUTPUT TAPE 6,1701 + 1701 FORMAT (92H RHO(I) FFCR FFCI + 1 FFSR FFSI) + DO 1709 I=1,ILAST + IF (K-NOLINE) 1703,1702,1702 + 1702 CALL SKIP (K,NPGS,NUMRUN) + 1703 WRITE OUTPUT TAPE 6,158,RHO(I),FFCR(I),FFCI(I),FFSR(I),FFSI(I) + 158 FORMAT(1H 5E20.9) + 1709 CONTINUE + 25 IF(KTRL(2)-1) 23,22,23 + 22 CALL SKIP (K,NPGS,NUMRUN) + WRITE OUTPUT TAPE 6,95 + 95 FORMAT(120H THETA DSIGMA EX DPOL EX +\end{lstlisting} +%% -----File: 105.png---Folio 100------- +\begin{lstlisting} + 1 CHI SQUARE SIGMA CHI SQUARE POL CHI SQUARE TOTAL ) + DO 120 J=1,JMAX + IF(K-NOLINE) 97,96,96 + 96 CALL SKIP(K,NPGS,NUMRUN) + 97 K=K+1 + WRITE OUTPUT TAPE 6,32,THETAD(J),DSGMEX(J),DPOLEX(J)*CHI2S(J), + 1CHI2P(J))CHI2(J) + 120 CONTINUE + 23 CALL SKIP(K,NPGS,NUMRUN) + 1623 WRITE OUTPUT TAPE 6,1150 + 1150 FORMAT (120H L REAL C(L+l/2) IMA + 1G C(L+1/2) REAL C(L-1/2) IMAG C(L-1/2) + 2) + DO 160 L=1,LMAX + IF (K-NOLINE) 155,153,153 + 153 CALL SKIP (K,NPGS,NUMRUN) + 155 K=K+1 + L1=L-1 + WRITE OUTPUT TAPE 6,1156,L1,CR1(L),CI1(L),CR2(L),CI2(L) + 1156 FORMAT (1H I11,E30.9,3E25.9) + 160 CONTINUE + 121 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 106.png---Folio 101------- + +\begin{lstlisting} + SUBROUTINE SKIP(K,NPGS,NUMRUN) + NPGS=NPGS+1 + WRITE OUTPUT TAPE 6,1510, (NUMRUN(I),I=1,5),NPGS + 1510 FORMAT(12H1RUN NUMBER=I2,1H-I2,1H-I4,3H -I3,3H -I3,79H + 1 PA + 2GE 15/) + K=0 + RETURN + + + + + + SUBROUTINE LEAVE + CALL PDUMP(A,ZZ) + CALL CTRL4 + RETURN +\end{lstlisting} +\clearpage + +%% -----File: 107.png---Folio 102------- + +\begin{lstlisting} +* CARDS COLUMN +* FAP + COUNT 43 +*SPILL SUBROUTINE + ENTRY SPILL + SPILL STZ* 1,4 STORE ZERO IN JSPILL + STZ* 2,4 STORE ZERO IN ISPILL + STZ 0 STORE ZERO IN LOCATION 00000 + CAL 1,4 + STA AA41 SET ADDRESS AA41, + STA AA36 AA36 TO JSPILL + CAL 2,4 SET ADDRESS AA31 + STA AA31 TO ISPILL + CLA* 3,4 SET COMMON STORAGE + STO AA45 + CLA* 4,4 SET COMMON STORAGE + STO AA46 + CAL AA47 PLACE TRANSFER + SLW 8 INSTRUCTION IN LOCATION 8 + TRA 5,4 EXIT TO MAIN PROGRAM + AA16 LDI 0 ENTRY IN CASE OF OVER-OR UNDERFLOW + LFT 4 TEST FOR OVERFLOW + TRA AA36 TRANSFER IN CASE OF OVERFLOW + LFT 16 + TRA AA24 TRANSFER IN CASE OF UNDERFLOW + TRA* 0 TRANSFER TO MAIN PROGRAM, NO UFLOW + AA24 LNT 1 TEST FOR UNDERFLOW + TRA* 0 UNDERFLOW IN AC ONLY + CAL 0 PLACE LOCATION AT WHICH + SUB AA35 UNDERFLOW OCCURRED IN AC + LLS 18 SHIFT LEFT 18 + AA31 STD AA31 STORE IN ISPILL + CLA AA46 SET AC, MQ WITH + LDQ AA46 SPECIFIED CONSTANTS + TRA* 0 EXIT TO MAIN PROGRAM + AA35 HTR 1 CONSTANT + AA36 CLA AA36 TEST IF JSPILL ZERO + TNZ AA42 TRANSFER IN CASE JSPILL NON-ZERO + CAL 0 PLACE LOCATION AT WHICH OVERFLOW OCCURRED + SUB AA35 IN AC + LLS 18 SHIFT LEFT 18 + AA41 STD AA41 STORE IN JSPILL + AA42 CLA AA45 SET AC,MQ WITH SPECIFIED CONSTANTS + LDQ AA45 + TRA* 0 EXIT TO MAIN PROGRAM + AA45 HTR 0 COMMON STORAGE + AA46 HTR 0 COMMON STORAGE + AA47 TRA AA16 INSTRUCTION TO BE INSERTED AT LOC. 8 + END +\end{lstlisting} + +%% -----File: 108.png---Folio 103------- + + +\Chapter{VII.}{Typical Input and Output} + +\Section{A.}{Input Data for Protons against Copper at +\texorpdfstring{$9.75$~\MeV}{9.75 MeV}} +\begin{multicols}{4} +\begin{lstlisting}[basicstyle=\WideDatasize] + 3 + 22 + 1960 + 0 + 0 + 4 + 0 + 1 + 1 + 0 + 1 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 1 ++0.10000000 +01 ++0.64000000 +02 ++0.97500000 +01 ++0.29000000 +02 ++0.12000000 +01 ++0.62000000 +02 ++0.85000000 +01 ++0.12000000 +01 ++0.52000000 +00 +-0.40000000 +01 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 + 1 + 1 + 1 + 1 +\end{lstlisting} +%% -----File: 109.png---Folio 104------- +\begin{lstlisting}[basicstyle=\WideDatasize] + 1 + 1 + 3 ++0.62500000 -01 ++0.50000000 +00 ++0.10000000 +02 ++0.62500000 -01 ++0.25000000 +00 + 10 + 32 ++0.15200000 +02 ++0.20300000 +02 ++0.25400000 +02 ++0.28000000 +02 ++0.30400000 +02 ++0.33000000 +02 ++0.35500000 +02 ++0.39000000 +02 ++0.40600000 +02 ++0.43000000 +02 ++0.45600000 +02 ++0.47000000 +02 ++0.507000000+02 ++0.51500000 +02 ++0.54000000 +02 ++0.55700000 +02 ++0.57000000 +02 ++0.60000000 +02 ++0.60800000 +02 ++0.65500000 +02 ++0.65800000 +02 ++0.69000000 +02 ++0.70800000 +02 ++0.75500000 +02 ++0.75900000 +02 ++0.80900000 +02 ++0.85900000 +02 ++0.86000000 +02 ++0.90900000 +02 ++0.95500000 +02 ++0.95900000 +02 ++0.10000000 +03 ++0.38650000 +04 ++0.97340000 +03 ++0.42470000 +03 ++0.00000000 +00 ++0.22690000 +03 ++0.00000000 +00 ++0.13460000 +03 ++0.00000000 +00 +\end{lstlisting} +%% -----File: 110.png---Folio 105------- +\begin{lstlisting}[basicstyle=\WideDatasize] ++0.82920000 +02 ++0.00000000 +00 ++0.47660000 +02 ++0.00000000 +00 ++0.22870000 +02 ++0.00000000 +00 ++0.00000000 +00 ++0.12410000 +02 ++0.00000000 +00 ++0.00000000 +00 ++0.64560000 +01 ++0.00000000 +00 ++0.40750000 +01 ++0.00000000 +00 ++0.33390000 +01 ++0.00000000 +00 ++0.33560000 +01 ++0.37570000 +01 ++0.38570000 +01 ++0.00000000 +00 ++0.38460000 +01 ++0.00000000 +00 ++0.37570000 +01 ++0.00000000 +00 ++0.39800000 +03 ++0.35500000 +02 ++0.16700000 +02 ++0.10000000 +30 ++0.90800000 +01 ++0.10000000 +30 ++0.53800000 +01 ++0.10000000 +30 ++0.37300000 +01 ++0.10000000 +30 ++0.19100000 +01 ++0.10000000 +30 ++0.91500000 +00 ++0.10000000 +30 ++0.10000000 +30 ++0.49600000 +00 ++0.10000000 +30 ++0.10000000 +30 ++0.25800000 +00 ++0.10000000 +30 ++0.16300000 +00 ++0.10000000 +30 ++0.13400000 +00 ++0.10000000 +30 ++0.13400000 +00 ++0.15000000 +00 +\end{lstlisting} +%% -----File: 111.png---Folio 106------- +\begin{lstlisting}[basicstyle=\WideDatasize] ++0.15400000 +00 ++0.10000000 +30 ++0.15400000 +00 ++0.10000000 +30 ++0.15000000 +00 ++0.10000000 +30 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 +-0.20000000 -01 ++0.00000000 +00 ++0.10000000 -01 ++0.00000000 +00 +-0.30000000 -01 ++0.00000000 +00 +-0.60000000 -01 ++0.00000000 +00 +-0.10000000 +00 ++0.00000000 +00 +-0.16000000 +00 +-0.20000000 +00 ++0.00000000 +00 +-0.17000000 +00 +-0.17000000 +00 ++0.00000000 +00 +-0.10000000 +00 ++0.00000000 +00 ++0.10000000 -01 ++0.00000000 +00 ++0.20000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.13000000 +00 ++0.00000000 +00 ++0.70000000 -01 ++0.00000000 +00 +-0.20000000 -01 ++0.10000000 +30 ++0.10000000 +30 ++0.10000000 +30 ++0.30000000 -01 ++0.10000000 +30 ++0.40000000 -01 ++0.10000000 +30 ++0.30000000 -01 ++0.10000000 +30 ++0.30000000 -01 ++0.10000000 +30 ++0.30000000 -01 +\end{lstlisting} +%% -----File: 112.png---Folio 107------- +\begin{lstlisting}[basicstyle=\WideDatasize] ++0.10000000 +30 ++0.40000000 -01 ++0.40000000 -01 ++0.10000000 +30 ++0.40000000 -01 ++0.30000000 -01 ++0.10000000 +30 ++0.50000000 -01 ++0.10000000 +30 ++0.40000000 -01 ++0.10000000 +30 ++0.60000000 -01 ++0.10000000 +30 ++0.10000000 +30 ++0.10000000 +30 ++0.60000000 -01 ++0.10000000 +30 ++0.50000000 -01 ++0.10000000 +30 ++0.60000000 -01 + 100 +\end{lstlisting} +\end{multicols} + +%% -----File: 113.png---Folio 108------- + + +\Section{B.}{Output Listing} + +\begin{lstlisting}[basicstyle=\VeryWideDatasize] +RUN NUMBER= 2-40-1961 - 1 - 1 PAGE 1 + +PROGRAM NUMBER 4 + +KTRL( 1)=0 +KTRL( 2)=1 +KTRL( 3)=1 +KTRL( 4)=0 +KTRL( 5)=1 +KTRL( 6)=0 +KTRL( 7)=0 +KTRL( 8)=0 +KTRL( 9)=0 +KTRL(10)=0 +KTRL(11)=0 +KTRL(12)=0 +KTRL(13)=1 + +BASIC DATA + +MSUB1= 0.099999994E 01 MSUBB= 0.639999993E 02 ELAB= 0.974999994E 01 ZZP= 0.289999999E 02 + + V= 0.619999997E 02 W= 0.849999994E 01 A= 0.519999996E 00 RO= 0.119999997E 01 + + VS=-0.399999999E 01 WS= 0. RC= 0.119999997E 01 + + 9 BG= 0. RG= 0. + +RHOBN= 0.393980615E 01 RHOBC= 0.323980615E 01 RHOBNG= 0. ECM= 0.959999986E 01 + + ETA= 0.146788672E 01 K= 0.674959674E 00 KA= 0.350979023E-00 KB= 0. + +INTEGRATION DATA + +RHOMAX= 0.099999994E 02 LMAXM= 10 + +NMAX= 3 + +RHOIN + + 0.625000000E-01 0.500000000E 00 0.099999994E 02 + +DRHOIN + + 0.625000000E-01 0.250000000E-00 + +SIGMAR(TH)= 0.668857820E 02 + +SUM OF CHI SQUARE SIGMA= 0.587550342E 02 + +SUM OF CHI SQUARE POL= 0.999665476E 02 + +SUM OF CHI SQUARE TOTAL= 0.158721581E 03 +\end{lstlisting} + +%% -----File: 114.png---Folio 109------- + +\begin{landscape} +\begin{lstlisting}[basicstyle=\VeryWideDatasize] +RUN NUMBER= 2-40-1961 - 1 - 1 PAGE 2 + + THETA SIGMATH SIG-SIGC POL TH SIGMA EX POL EX + 0.151999995E 02 0.366688885E 04 0.948844409E 00 0.624454483E-03 0.386499993E 04 0. + 0.202999994E 02 0.107591100E 04 0.877576292E 00 -0.488765538E-02 0.973399989E 03 0. + 0.253999993E 02 0.437771246E 03 0.864875652E 00 -0.126092605E-01 0.424699992E 03 0. + 0.279999994E 02 0.302826010E 03 0.877252147E 00 -0.152099080E-01 0. 0.199999996E-01 + 0.303999998E 02 0.223364875E 03 0.892697871E 00 -0.161199562E-01 0.226899996E 03 0. + 0.329999998E 02 0.164800696E 03 0.906894624E 00 -0.153716959E-01 0. -0.999999985E-02 + 0.354999997E 02 0.124848992E 03 0.912098765E 00 -0.130572930E-01 0.134599991E 03 0. + 0.389999993E 02 0.854579188E 02 0.897354133E 00 -0.757811405E-02 0. 0.299999997E-01 + 0.405999996E 02 0.718648233E 02 0.880526960E 00 -0.435241245E-02 0.829199985E 02 0. + 0.430000006E 02 0.552558191E 02 0.843160637E 00 0.115248807E-02 0. 0.599999994E-01 + 0.455999993E 02 0.412997656E 02 0.787652783E 00 0.776244439E-02 0.476599991E 02 0. + 0.469999999E 02 0.351879030E 02 0.752354726E 00 0.114611000E-01 0. 0.999999993E-01 + 0.506999992E 02 0.227685094E 02 0.647046342E 00 0.208112434E-01 0.228699997E 02 0. + 0.514999993E 02 0.206800543E 02 0.623049393E 00 0.225530863E-01 0. 0.159999996E-00 + 0.539999999E 02 0.152632877E 02 0.548359923E 00 0.265358075E-01 0. 0.199999996E-00 + 0.556999996E 02 0.124075061E 02 0.499775782E-00 0.272366613E-01 0.124100000E 02 0. + 0.569999993E 02 0.106054634E 02 0.464955918E-00 0.261134841E-01 0. 0.169999994E-00 + 0.599999994E 02 0.749187976E 01 0.396005623E-00 0.156014524E-01 0. 0.169999994E-00 + 0.607999995E 02 0.686953478E 01 0.380956881E-00 0.104624555E-01 0.645599991E 01 0. + 0.654999994E 02 0.452632517E 01 0.327856168E-00 -0.413961068E-01 0. 0.999999993E-01 + 0.657999992E 02 0.443769753E 01 0.326697305E-00 -0.457080074E-01 0.407499999E 01 0. + 0.689999998E 02 0.381219082E 01 0.331831254E-00 -0.927333571E-01 0. -0.999999985E-02 + 0.707999989E 02 0.366038024E 01 0.348589554E-00 -0.115995258E-00 0.333899997E 01 0. + 0.754999995E 02 0.365827605E 01 0.434639670E-00 -0.151801050E-00 0. -0.199999996E-00 + 0.758999996E 02 0.367384672E 01 0.444403417E-00 -0.153142102E-00 0.335599996E 01 0. + 0.808999993E 02 0.392783776E 01 0.588552453E 00 -0.153684869E-00 0.375699997E 01 0. + 0.858999990E 02 0.411561452E 01 0.750190347E 00 -0.136236615E-00 0.385699995E 01 0. + 0.859999999E 02 0.411754631E 01 0.753359631E 00 -0.135786600E-00 0. -0.129999995E-00 + 0.908999994E 02 0.410156414E 01 0.894658349E 00 -0.110665120E-00 0.384599999E 01 0. + 0.954999998E 02 0.388636135E 01 0.986762404E 00 -0.826589502E-01 0. -0.699999988E-01 + 0.958999991E 02 0.385919407E 01 0.992326975E 00 -0.800342456E-01 0.375699997E 01 0. + 0.099999994E 03 0.351563454E 01 0.102388248E 01 -0.512336008E-01 0. 0.199999996E-01 +\end{lstlisting} +\end{landscape} + +%% -----File: 115.png---Folio 110------- + +\begin{landscape} +\begin{lstlisting}[basicstyle=\VeryWideDatasize] +RUN NUMBER= 2-40-1961 - 1 - 1 PAGE 3 + THETA DSIGMA EX DPOL EX CHI SQUARE SIGMA CHI SQUARE POL CHI SQUARE TOTAL + 0.151999995E 02 0.397999994E 03 0.099999994E 30 0.247771524E-00 0. 0.247771524E-00 + 0.202999994E 02 0.354999997E 02 0.099999994E 30 0.833843596E 01 0. 0.833843596E 01 + 0.253999993E 02 0.166999996E 02 0.099999994E 30 0.612634748E 00 0. 0.612634748E 00 + 0.279999994E 02 0.099999994E 30 0.299999997E-01 0. 0.137748629E 01 0.137748629E 01 + 0.303999998E 02 0.907999992E 01 0.099999994E 30 0.151578002E-00 0. 0.151578002E-00 + 0.329999998E 02 0.099999994E 30 0.399999991E-01 0. 0.180344537E-01 0.180344537E-01 + 0.354999997E 02 0.537999995E 01 0.099999994E 30 0.328498974E 01 0. 0.328498974E 01 + 0.389999993E 02 0.099999994E 30 0.299999997E-01 0. 0.156901620E 01 0.156901620E 01 + 0.405999996E 02 0.372999996E 01 0.099999994E 30 0.878443092E 01 0. 0.878443092E 01 + 0.430000000E 02 0.099999994E 30 0.299999997E-01 0. 0.384781063E 01 0.384781063E 01 + 0.455999993E 02 0.191000000E 01 0.099999994E 30 0.110886693E 02 0. 0.110886693E 02 + 0.469999999E 02 0.099999994E 30 0.299999997E-01 0. 0.871015161E 01 0.871015161E 01 + 0.506999992E 02 0.914999999E 00 0.099999994E 30 0.123029307E-01 0. 0.123029307E-01 + 0.514999993E 02 0.099999994E 30 0.399999991E-01 0. 0.118072823E 02 0.118072823E 02 + 0.539999999E 02 0.099999994E 30 0.399999991E-01 0. 0.188061401E 02 0.188061401E 02 + 0.556999996E 02 0.495999999E-00 0.099999994E 30 0.232838377E-04 0. 0.232838377E-04 + 0.569999993E 02 0.099999994E 30 0.399999991E-01 0. 0.129395790E 02 0.129395790E 02 + 0.599999994E 02 0.099999994E 30 0.299999997E-01 0. 0.264876761E 02 0.264876761E 02 + 0.607999995E 02 0.257999994E-00 0.099999994E 30 0.256912217E 01 0. 0.256912217E 01 + 0.654999994E 02 0.099999994E 30 0.499999993E-01 0. 0.799714297E 01 0.799714297E 01 + 0.657999992E 02 0.162999995E-00 0.099999994E 30 0.495124198E 01 0. 0.495124198E 01 + 0.689999998E 02 0.099999994E 30 0.399999991E-01 0. 0.427800477E 01 0.427800477E 01 + 0.707999989E 02 0.133999996E-00 0.099999994E 30 0.575213231E 01 0. 0.575213231E 01 + 0.754999995E 02 0.099999994E 30 0.599999994E-01 0. 0.645316236E 00 0.645316236E 00 + 0.758999996E 02 0.133999996E-00 0.099999994E 30 0.562634163E 01 0. 0.562634163E 01 + 0.808999993E 02 0.149999999E-00 0.099999994E 30 0.129713513E 01 0. 0.129713513E 01 + 0.858999990E 02 0.153999999E-00 0.099999994E 30 0.282009937E 01 0. 0.282009937E 01 + 0.859999999E 02 0.099999994E 30 0.599999994E-01 0. 0.930132821E-02 0.930132821E-02 + 0.908999994E 02 0.153999999E-00 0.099999994E 30 0.275396556E 01 0. 0.275396556E 01 + 0.954999998E 02 0.099999994E 30 0.499999993E-01 0. 0.640996160E-01 0.640996180E-01 + 0.958999991E 02 0.149999999E-00 0.099999994E 30 0.464161523E-00 0. 0.464161523E-00 + 0.099999994E 03 0.099999994E 30 0.599999994E-01 0. 0.140950717E 01 0.140950717E 01 +\end{lstlisting} +\end{landscape} + +%% -----File: 116.png---Folio 111------- + +\begin{landscape} +\begin{lstlisting}[basicstyle=\VeryWideDatasize] +RUN NUMBER= 2-40-1961 - 1 - 1 PAGE 4 + L REAL C(L+1/2) IMAG C(L+1/2) REAL C(L-1/2) IMAG C(L-1/2) + 0 -0.149473831E-00 0.621800341E 00 -0.139704145E-00 0.618552327E 00 + 1 -0.890974633E-01 0.280818105E-00 -0.112762213E-00 0.266789824E-00 + 2 -0.187045686E-00 0.241325634E-00 -0.174136B25E-00 0.274325125E-00 + 3 0.670826085E-01 0.135792047E-00 0.546362303E-01 0.848520368E-01 + 4 0.756759964E-02 0.149855547E-01 0.229124613E-02 0.170210496E-01 + 5 0.503797509E-02 0.559476413E-02 0.384988777E-02 0.176129699E-02 + 6 0.628714196E-03 0.123979807E-03 0.362633042E-03 0.807685591E-04 + 7 0.627130263E-04 0.826003924E-05 0.370286375E-04 0.729130283E-05 + 8 0.713366367E-05 0.780125931E-06 0.441690803E-05 0.750615060E-06 + 9 0.130098701E-05 0.808378339E-07 0.101125993E-05 0.797655620E-07 + 10 0.413292557E-06 0.833891876E-08 0.381933421E-06 0.844628319E-08 +\end{lstlisting} +\end{landscape} + +%% -----File: 117.png---Folio 112------- + + +\Chapter{VIII.}{Further Subroutines and Programs in Preparation} + +The following subroutines are presently being prepared at UCLA: + +\Subroutine{\Code{TV}} + +This subroutine is designed to output on CRT and on film various required +curves such as $\sigma(\theta)$ vs~$\theta$, $\sigma(\theta)/\sigma_c(\theta)$ vs~$\theta$, $P(\theta)$ vs~$\theta$. + +\Subroutine{\Code{RHOBEG}} + +This subroutine will make use of the quantities \Code{IIN(L)} to allow the +numerical integrations to start at different values of~$\rho$ depending upon~$\ell$ +in order to speed up the numerical integration. + +\Subroutine{\Code{FLUX}} + +This subroutine will if desired compute the normalized total wave functions, +the scattered flux~$\vec{j}$, the divergence and the curl of~$\vec{j}$ at specified +values of~$\rho$ and~$\theta$. + +All the above subroutines will of course require some modification of +the basic program. + +The following programs are presently being prepared at UCLA: + +\Program{\SCAT{3}} + +This program will be similar to program \SCAT{4} except that it will treat +incident and target particles of zero spin, thus speeding up the calculation +for that case. + +\Program{\SCAT{5}} + +This is a modified version of program \SCAT{4} offering a simplified input +and using only as many $\ell$'s as may be significant in the $C_\ell$'s calculations. + +\Program{\SCAT{K}} + +This is a modified version of program \SCAT{4} designed to analyze the scattering +of K-mesons against complex nuclei, including the use of an approximate +Klein-Gordon equation, relativistic kinematic corrections, and averaging of +the cross sections over angles, energies, and representative nuclei. + +%% -----File: 118.png---Folio 113------- + +\Program{\SCAT{6}} + +This is a modified version of program \SCAT{4} designed to calculate cross +sections and polarization of spin~$1$ particles scattered by $0$~spin targets. + +\Program{\Acro{SEEK~4}} + +This is a program designed to search automatically the parameter space +so as to minimize $\chi^{2}$. + +%% -----File: 119.png---Folio 114------- + +\clearpage +\section*{\centering\normalsize\bfseries BIBLIOGRAPHY OF DIFFUSE SURFACE OPTICAL MODEL +ANALYSES BY MACHINE CALCULATIONS} +\phantomsection\pdfbookmark[0]{Bibliography}{Bibliography} + +\begin{Biblio} +\item[] R.~D.~Albert, $(p,n)$ Cross Sections and Proton Optical-Model Parameters in + 4- to 5.5-\MeV\ Energy Region, UCRL-5488 (1959). + +\item[] H.~J.~Amster, Optical Model Evidence for Surface Absorption of Neutrons, + Phys.\ Rev.\ \textbf{113}, 911 (1959). + +\item[] H.~J.~Amster and L.~M.~Culpepper, Surface Modified Nuclear Optical Model: + Description of the \Code{SUMNUM} Code for the \Acro{NORC} Computer, WAPD-TM-87, + Bettis Plant of the AEC, Pittsburgh, Pa. + +\item[] Baker, Byfield, and Rainwater, Theoretical Calculations of the Scattering + of $\pi$-Mesons by Complex Nuclei, Phys.\ Rev.\ \textbf{112}, 1773 (1958). + +\item[] H.~R.~Beyster, Predictions of Fast Neutrons Scattering Data with a Diffuse + Surface Potential Well, LA-2099 (1956). + +\item[] Beyster, Walt and Salmi, Interaction of 1.0-, 2.5-, 3.25-, and 7.0-\MeV\ + Neutrons with Nuclei Phys.\ Rev.\ \textbf{104}, 1319 (1956). + +\item[] Bjorklund, Blandford and Fernbach, Analysis of Elastic Scattering and + Polarization of 300-\MeV\ Protons, Phys.\ Rev.\ \textbf{108}, 795 (1957). + +\item[] F.~Bjorklund and S.~Fernbach, Elastic Scattering of 7-\MeV\ Neutrons + (Theoretical Curves), UCRL-4927-T (1957). + +\item[] F.~Bjorklund and S.~Fernbach, Optical-Model Analysis of Scattering of 4.1-, + 7-, and 14-\MeV\ Neutrons by Complex Nuclei, Phys.\ Rev.\ \textbf{109}. 1295 (1958). + +\item[] F.~Bjorklund and S.~Fernbach, Exact Phase-Shift Calculation for Nucleon-Nuclear + Scattering, UCRL-5028 (1958). + +\item[] Bjorklund, Fernbach and Sherman, Optical Model of Nucleus with Absorbing + Surface, Phys.\ Rev.\ \textbf{101}, 1832 (1956). + +\item[] W.~B.~Cheston and A.~E.~Glassgold, Elastic Scattering % [** PP: Typo Scatering] + of Alpha-Particles with + the Optical Model, Phys.\ Rev.\ \textbf{106}, 1215 (1957). + +\item[] Culler, Fernbach and Sherman, Optical Model Analysis of Scattering of 14-\MeV\ + Neutrons, Phys.\ Rev.\ \textbf{101}, 1047 (1956). + +\item[] Eisberg, Gugelot and Porter, Conference on the Statistical Aspects of the + Nucleus, Brookhaven National Laboratory (1955). + +\item[] W.~S.~Emmerich, Cross Section Calculations for Fast Neutron Scattering, + Westinghouse Research Report 60-94511-6-R17 (1957). + +\item[] W.~S.~Emmerich, Optical Model Theory of Neutron Scattering and Reactions, + Westinghouse Research Report 6-94511-6-R20 (1958). + +%% -----File: 120.png---Folio 115------- + +\item[] Franklin, Margolis and Oberthal, Scattering of $\mu$-Mesons by Nuclei, Phys.\ Rev.\ + \textbf{111}, 296 (1958). + +\item[] Glassgold, Cheston, Stein, Schuld and Erickson, Analysis of Proton-Nucleus + Scattering at 9.8~\MeV, Phys.\ Rev.\ \textbf{106}, 1207 (1958). + +\item[] A.~E.~Glassgold, Interaction of Antiprotons with Complex Nuclei, Phys.\ Rev.\ + \textbf{110}, 220 (1958). + +\item[] A.~E.~Glassgold and P.~J.~Kellogg, Proton-Nucleus Scattering at 17~\MeV, + Phys.\ Rev.\ \textbf{107}, 1372 (1957). + +\item[] A.~E.~Glassgold and P.~J.~Kellogg, Nuclear Scattering of 40- and 95-\MeV\ + Protons, Phys.\ Rev.\ \textbf{109}, 1291 (1958). + +\item[] Green, Porter and Saxon, Proceedings of the International Conference on the + Nuclear Optical Model, Florida State University, Tallahassee (1959). + +\item[] G.~Igo, Optical-Model Analysis of the Elastic Scattering of Alpha Particles, + Phys.\ Rev.\ \textbf{106}, 126 (1957). + +\item[] G.~Igo, Optical Model Potential at the Nuclear Surface for the Elastic + Scattering of Alpha Particles, Phys.\ Rev.\ Let.\ \textbf{1}, 72 (1958). + +\item[] G.~Igo, Optical Model Analysis of the Scattering of Alpha Particles from + Helium (in press). + +\item[] G.~Igo, Optical-Model Analysis of Excitation Function Data and Theoretical + Reaction Cross Sections for Alpha Particles, Phys.\ Rev.\ \textbf{115}, 1665 (1959). + +\item[] Igo, Ravenhall, Tiemann, Chupp, Goldhaber, Goldhaber, Lanutti and Thaler, + The Scattering of $K^+$-Mesons in Emulsion, Phys.\ Rev.\ \textbf{109}, 2133 (1958). + +\item[] R.~Jastrow and I.~Harris, Nuclear Cross Sections for the Scattering of + Neutrons and Protons, Proceedings of the ONR Decennial Symposium (1957). + +\item[] Lukyanov, Orlov and Turovstev, Optical Model of the Interaction between + Intermediate Energy Neutrons and Nuclei, Nucl.\ Phys.\ \textbf{8}, 325 (1958). + +\item[] I.~E.~McCarthy, Flux of Particles in the Optical Model, Nucl.\ Phys.\ \textbf{10}, + 583 (1959). + +\item[] Melkanoff, Moszkowski, Nodvik and Saxon, Energy Dependence of the Optical + Model Parameters, Phys.\ Rev.\ \textbf{101}, 507 (1956). + +\item[] Melkanoff, Nodvik and Saxon, Diffuse-Surface Optical Model Analysis of + Elastic Scattering of 17- and 31.5-\MeV\ Protons, Phys.\ Rev.\ \textbf{106}, 793 (1957). + +\item[] Melkanoff, Price, Stork and Ticho, Optical Model Analysis of Elastic + Scattering of 125-\MeV\ $K^+$-Mesons in Nuclear Emulsions, Phys.\ Rev.\ \textbf{113}, + 1303 (1959). + +\item[] University of Minnesota Annual Progress Report 1956-1957, 1957-1958, 1958, + University of Minnesota Linear Accelerator Laboratory, Minneapolis, Minn. + +%% -----File: 121.png---Folio 116------- + +\item[] J.~S.~Nodvik and D.~S.~Saxon, Analysis of Elastic Cross Sections and + Polarization of 10 \MeV\ Protons (in press). + +\item[] C.~E.~Porter, Nitrogen-Nitrogen Elastic Scattering, Phys.\ Rev.\ \textbf{112}, 1722 + (1958). + +\item[] H.~M.~Shey, Scattering of Neutrons by Non-spherical Nuclei, Phys.\ Rev.\ + \textbf{113}, 900 (1959). + +\item[] R.~D.~Woods and D.~S.~Saxon, Diffuse Surface Optical Model for Nucleon-Nuclei + Scattering, Phys.\ Rev.\ \textbf{95}, 577 (1954). +\end{Biblio} + +%%%%%%%%%%%%%%%%%%%%%%% BACK MATTER %%%%%%%%%%%%%%%%%%%%%%%%% + +\clearpage + +\phantomsection +\pdfbookmark[0]{PG License}{Project Gutenberg License} +\fancyhead[C]{\textit{LICENSING}} + +\begin{PGtext} +End of the Project Gutenberg EBook of A Fortran Program for Elastic +Scattering Analyses with the Nuclear Optical Model, by Michel A. Melkanoff +and David S. Saxon and John S. Nodvik and David G. Cantor + +*** END OF THIS PROJECT GUTENBERG EBOOK ELASTIC SCATTERING ANALYSES *** + +***** This file should be named 29784-pdf.pdf or 29784-pdf.zip ***** +This and all associated files of various formats will be found in: + http://www.gutenberg.org/2/9/7/8/29784/ + +Produced by David Starner, Andrew D. Hwang, and the Online +Distributed Proofreading Team at http://www.pgdp.net + + +Updated editions will replace the previous one--the old editions +will be renamed. + +Creating the works from public domain print editions means that no +one owns a United States copyright in these works, so the Foundation +(and you!) can copy and distribute it in the United States without +permission and without paying copyright royalties. Special rules, +set forth in the General Terms of Use part of this license, apply to +copying and distributing Project Gutenberg-tm electronic works to +protect the PROJECT GUTENBERG-tm concept and trademark. Project +Gutenberg is a registered trademark, and may not be used if you +charge for the eBooks, unless you receive specific permission. If you +do not charge anything for copies of this eBook, complying with the +rules is very easy. You may use this eBook for nearly any purpose +such as creation of derivative works, reports, performances and +research. They may be modified and printed and given away--you may do +practically ANYTHING with public domain eBooks. Redistribution is +subject to the trademark license, especially commercial +redistribution. + + + +*** START: FULL LICENSE *** + +THE FULL PROJECT GUTENBERG LICENSE +PLEASE READ THIS BEFORE YOU DISTRIBUTE OR USE THIS WORK + +To protect the Project Gutenberg-tm mission of promoting the free +distribution of electronic works, by using or distributing this work +(or any other work associated in any way with the phrase "Project +Gutenberg"), you agree to comply with all the terms of the Full Project +Gutenberg-tm License (available with this file or online at +http://gutenberg.org/license). + + +Section 1. General Terms of Use and Redistributing Project Gutenberg-tm +electronic works + +1.A. By reading or using any part of this Project Gutenberg-tm +electronic work, you indicate that you have read, understand, agree to +and accept all the terms of this license and intellectual property +(trademark/copyright) agreement. If you do not agree to abide by all +the terms of this agreement, you must cease using and return or destroy +all copies of Project Gutenberg-tm electronic works in your possession. +If you paid a fee for obtaining a copy of or access to a Project +Gutenberg-tm electronic work and you do not agree to be bound by the +terms of this agreement, you may obtain a refund from the person or +entity to whom you paid the fee as set forth in paragraph 1.E.8. + +1.B. "Project Gutenberg" is a registered trademark. It may only be +used on or associated in any way with an electronic work by people who +agree to be bound by the terms of this agreement. There are a few +things that you can do with most Project Gutenberg-tm electronic works +even without complying with the full terms of this agreement. See +paragraph 1.C below. There are a lot of things you can do with Project +Gutenberg-tm electronic works if you follow the terms of this agreement +and help preserve free future access to Project Gutenberg-tm electronic +works. See paragraph 1.E below. + +1.C. The Project Gutenberg Literary Archive Foundation ("the Foundation" +or PGLAF), owns a compilation copyright in the collection of Project +Gutenberg-tm electronic works. Nearly all the individual works in the +collection are in the public domain in the United States. If an +individual work is in the public domain in the United States and you are +located in the United States, we do not claim a right to prevent you from +copying, distributing, performing, displaying or creating derivative +works based on the work as long as all references to Project Gutenberg +are removed. Of course, we hope that you will support the Project +Gutenberg-tm mission of promoting free access to electronic works by +freely sharing Project Gutenberg-tm works in compliance with the terms of +this agreement for keeping the Project Gutenberg-tm name associated with +the work. You can easily comply with the terms of this agreement by +keeping this work in the same format with its attached full Project +Gutenberg-tm License when you share it without charge with others. + +1.D. The copyright laws of the place where you are located also govern +what you can do with this work. Copyright laws in most countries are in +a constant state of change. If you are outside the United States, check +the laws of your country in addition to the terms of this agreement +before downloading, copying, displaying, performing, distributing or +creating derivative works based on this work or any other Project +Gutenberg-tm work. The Foundation makes no representations concerning +the copyright status of any work in any country outside the United +States. + +1.E. Unless you have removed all references to Project Gutenberg: + +1.E.1. The following sentence, with active links to, or other immediate +access to, the full Project Gutenberg-tm License must appear prominently +whenever any copy of a Project Gutenberg-tm work (any work on which the +phrase "Project Gutenberg" appears, or with which the phrase "Project +Gutenberg" is associated) is accessed, displayed, performed, viewed, +copied or distributed: + +This eBook is for the use of anyone anywhere at no cost and with +almost no restrictions whatsoever. You may copy it, give it away or +re-use it under the terms of the Project Gutenberg License included +with this eBook or online at www.gutenberg.org + +1.E.2. If an individual Project Gutenberg-tm electronic work is derived +from the public domain (does not contain a notice indicating that it is +posted with permission of the copyright holder), the work can be copied +and distributed to anyone in the United States without paying any fees +or charges. If you are redistributing or providing access to a work +with the phrase "Project Gutenberg" associated with or appearing on the +work, you must comply either with the requirements of paragraphs 1.E.1 +through 1.E.7 or obtain permission for the use of the work and the +Project Gutenberg-tm trademark as set forth in paragraphs 1.E.8 or +1.E.9. + +1.E.3. If an individual Project Gutenberg-tm electronic work is posted +with the permission of the copyright holder, your use and distribution +must comply with both paragraphs 1.E.1 through 1.E.7 and any additional +terms imposed by the copyright holder. Additional terms will be linked +to the Project Gutenberg-tm License for all works posted with the +permission of the copyright holder found at the beginning of this work. + +1.E.4. Do not unlink or detach or remove the full Project Gutenberg-tm +License terms from this work, or any files containing a part of this +work or any other work associated with Project Gutenberg-tm. + +1.E.5. Do not copy, display, perform, distribute or redistribute this +electronic work, or any part of this electronic work, without +prominently displaying the sentence set forth in paragraph 1.E.1 with +active links or immediate access to the full terms of the Project +Gutenberg-tm License. + +1.E.6. You may convert to and distribute this work in any binary, +compressed, marked up, nonproprietary or proprietary form, including any +word processing or hypertext form. However, if you provide access to or +distribute copies of a Project Gutenberg-tm work in a format other than +"Plain Vanilla ASCII" or other format used in the official version +posted on the official Project Gutenberg-tm web site (www.gutenberg.org), +you must, at no additional cost, fee or expense to the user, provide a +copy, a means of exporting a copy, or a means of obtaining a copy upon +request, of the work in its original "Plain Vanilla ASCII" or other +form. Any alternate format must include the full Project Gutenberg-tm +License as specified in paragraph 1.E.1. + +1.E.7. Do not charge a fee for access to, viewing, displaying, +performing, copying or distributing any Project Gutenberg-tm works +unless you comply with paragraph 1.E.8 or 1.E.9. + +1.E.8. You may charge a reasonable fee for copies of or providing +access to or distributing Project Gutenberg-tm electronic works provided +that + +- You pay a royalty fee of 20% of the gross profits you derive from + the use of Project Gutenberg-tm works calculated using the method + you already use to calculate your applicable taxes. The fee is + owed to the owner of the Project Gutenberg-tm trademark, but he + has agreed to donate royalties under this paragraph to the + Project Gutenberg Literary Archive Foundation. Royalty payments + must be paid within 60 days following each date on which you + prepare (or are legally required to prepare) your periodic tax + returns. Royalty payments should be clearly marked as such and + sent to the Project Gutenberg Literary Archive Foundation at the + address specified in Section 4, "Information about donations to + the Project Gutenberg Literary Archive Foundation." + +- You provide a full refund of any money paid by a user who notifies + you in writing (or by e-mail) within 30 days of receipt that s/he + does not agree to the terms of the full Project Gutenberg-tm + License. You must require such a user to return or + destroy all copies of the works possessed in a physical medium + and discontinue all use of and all access to other copies of + Project Gutenberg-tm works. + +- You provide, in accordance with paragraph 1.F.3, a full refund of any + money paid for a work or a replacement copy, if a defect in the + electronic work is discovered and reported to you within 90 days + of receipt of the work. + +- You comply with all other terms of this agreement for free + distribution of Project Gutenberg-tm works. + +1.E.9. If you wish to charge a fee or distribute a Project Gutenberg-tm +electronic work or group of works on different terms than are set +forth in this agreement, you must obtain permission in writing from +both the Project Gutenberg Literary Archive Foundation and Michael +Hart, the owner of the Project Gutenberg-tm trademark. Contact the +Foundation as set forth in Section 3 below. + +1.F. + +1.F.1. Project Gutenberg volunteers and employees expend considerable +effort to identify, do copyright research on, transcribe and proofread +public domain works in creating the Project Gutenberg-tm +collection. Despite these efforts, Project Gutenberg-tm electronic +works, and the medium on which they may be stored, may contain +"Defects," such as, but not limited to, incomplete, inaccurate or +corrupt data, transcription errors, a copyright or other intellectual +property infringement, a defective or damaged disk or other medium, a +computer virus, or computer codes that damage or cannot be read by +your equipment. + +1.F.2. LIMITED WARRANTY, DISCLAIMER OF DAMAGES - Except for the "Right +of Replacement or Refund" described in paragraph 1.F.3, the Project +Gutenberg Literary Archive Foundation, the owner of the Project +Gutenberg-tm trademark, and any other party distributing a Project +Gutenberg-tm electronic work under this agreement, disclaim all +liability to you for damages, costs and expenses, including legal +fees. YOU AGREE THAT YOU HAVE NO REMEDIES FOR NEGLIGENCE, STRICT +LIABILITY, BREACH OF WARRANTY OR BREACH OF CONTRACT EXCEPT THOSE +PROVIDED IN PARAGRAPH F3. YOU AGREE THAT THE FOUNDATION, THE +TRADEMARK OWNER, AND ANY DISTRIBUTOR UNDER THIS AGREEMENT WILL NOT BE +LIABLE TO YOU FOR ACTUAL, DIRECT, INDIRECT, CONSEQUENTIAL, PUNITIVE OR +INCIDENTAL DAMAGES EVEN IF YOU GIVE NOTICE OF THE POSSIBILITY OF SUCH +DAMAGE. + +1.F.3. LIMITED RIGHT OF REPLACEMENT OR REFUND - If you discover a +defect in this electronic work within 90 days of receiving it, you can +receive a refund of the money (if any) you paid for it by sending a +written explanation to the person you received the work from. If you +received the work on a physical medium, you must return the medium with +your written explanation. The person or entity that provided you with +the defective work may elect to provide a replacement copy in lieu of a +refund. If you received the work electronically, the person or entity +providing it to you may choose to give you a second opportunity to +receive the work electronically in lieu of a refund. If the second copy +is also defective, you may demand a refund in writing without further +opportunities to fix the problem. + +1.F.4. Except for the limited right of replacement or refund set forth +in paragraph 1.F.3, this work is provided to you 'AS-IS' WITH NO OTHER +WARRANTIES OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO +WARRANTIES OF MERCHANTIBILITY OR FITNESS FOR ANY PURPOSE. + +1.F.5. Some states do not allow disclaimers of certain implied +warranties or the exclusion or limitation of certain types of damages. +If any disclaimer or limitation set forth in this agreement violates the +law of the state applicable to this agreement, the agreement shall be +interpreted to make the maximum disclaimer or limitation permitted by +the applicable state law. The invalidity or unenforceability of any +provision of this agreement shall not void the remaining provisions. + +1.F.6. INDEMNITY - You agree to indemnify and hold the Foundation, the +trademark owner, any agent or employee of the Foundation, anyone +providing copies of Project Gutenberg-tm electronic works in accordance +with this agreement, and any volunteers associated with the production, +promotion and distribution of Project Gutenberg-tm electronic works, +harmless from all liability, costs and expenses, including legal fees, +that arise directly or indirectly from any of the following which you do +or cause to occur: (a) distribution of this or any Project Gutenberg-tm +work, (b) alteration, modification, or additions or deletions to any +Project Gutenberg-tm work, and (c) any Defect you cause. + + +Section 2. Information about the Mission of Project Gutenberg-tm + +Project Gutenberg-tm is synonymous with the free distribution of +electronic works in formats readable by the widest variety of computers +including obsolete, old, middle-aged and new computers. It exists +because of the efforts of hundreds of volunteers and donations from +people in all walks of life. + +Volunteers and financial support to provide volunteers with the +assistance they need, are critical to reaching Project Gutenberg-tm's +goals and ensuring that the Project Gutenberg-tm collection will +remain freely available for generations to come. In 2001, the Project +Gutenberg Literary Archive Foundation was created to provide a secure +and permanent future for Project Gutenberg-tm and future generations. +To learn more about the Project Gutenberg Literary Archive Foundation +and how your efforts and donations can help, see Sections 3 and 4 +and the Foundation web page at http://www.pglaf.org. + + +Section 3. Information about the Project Gutenberg Literary Archive +Foundation + +The Project Gutenberg Literary Archive Foundation is a non profit +501(c)(3) educational corporation organized under the laws of the +state of Mississippi and granted tax exempt status by the Internal +Revenue Service. The Foundation's EIN or federal tax identification +number is 64-6221541. Its 501(c)(3) letter is posted at +http://pglaf.org/fundraising. Contributions to the Project Gutenberg +Literary Archive Foundation are tax deductible to the full extent +permitted by U.S. federal laws and your state's laws. + +The Foundation's principal office is located at 4557 Melan Dr. S. +Fairbanks, AK, 99712., but its volunteers and employees are scattered +throughout numerous locations. Its business office is located at +809 North 1500 West, Salt Lake City, UT 84116, (801) 596-1887, email +business@pglaf.org. Email contact links and up to date contact +information can be found at the Foundation's web site and official +page at http://pglaf.org + +For additional contact information: + Dr. Gregory B. Newby + Chief Executive and Director + gbnewby@pglaf.org + + +Section 4. Information about Donations to the Project Gutenberg +Literary Archive Foundation + +Project Gutenberg-tm depends upon and cannot survive without wide +spread public support and donations to carry out its mission of +increasing the number of public domain and licensed works that can be +freely distributed in machine readable form accessible by the widest +array of equipment including outdated equipment. Many small donations +($1 to $5,000) are particularly important to maintaining tax exempt +status with the IRS. + +The Foundation is committed to complying with the laws regulating +charities and charitable donations in all 50 states of the United +States. Compliance requirements are not uniform and it takes a +considerable effort, much paperwork and many fees to meet and keep up +with these requirements. We do not solicit donations in locations +where we have not received written confirmation of compliance. To +SEND DONATIONS or determine the status of compliance for any +particular state visit http://pglaf.org + +While we cannot and do not solicit contributions from states where we +have not met the solicitation requirements, we know of no prohibition +against accepting unsolicited donations from donors in such states who +approach us with offers to donate. + +International donations are gratefully accepted, but we cannot make +any statements concerning tax treatment of donations received from +outside the United States. U.S. laws alone swamp our small staff. + +Please check the Project Gutenberg Web pages for current donation +methods and addresses. Donations are accepted in a number of other +ways including checks, online payments and credit card donations. +To donate, please visit: http://pglaf.org/donate + + +Section 5. General Information About Project Gutenberg-tm electronic +works. + +Professor Michael S. Hart is the originator of the Project Gutenberg-tm +concept of a library of electronic works that could be freely shared +with anyone. For thirty years, he produced and distributed Project +Gutenberg-tm eBooks with only a loose network of volunteer support. + + +Project Gutenberg-tm eBooks are often created from several printed +editions, all of which are confirmed as Public Domain in the U.S. +unless a copyright notice is included. Thus, we do not necessarily +keep eBooks in compliance with any particular paper edition. + + +Most people start at our Web site which has the main PG search facility: + + http://www.gutenberg.org + +This Web site includes information about Project Gutenberg-tm, +including how to make donations to the Project Gutenberg Literary +Archive Foundation, how to help produce our new eBooks, and how to +subscribe to our email newsletter to hear about new eBooks. +\end{PGtext} + +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % +% % +% End of the Project Gutenberg EBook of A Fortran Program for Elastic % +% Scattering Analyses with the Nuclear Optical Model, by Michel A. Melkanoff +% and David S. Saxon and John S. Nodvik and David G. Cantor % +% % +% *** END OF THIS PROJECT GUTENBERG EBOOK ELASTIC SCATTERING ANALYSES *** % +% % +% ***** This file should be named 29784-t.tex or 29784-t.zip ***** % +% This and all associated files of various formats will be found in: % +% http://www.gutenberg.org/2/9/7/8/29784/ % +% % +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % + +\end{document} + +### +@ControlwordReplace = ( + ['\\MeV', 'MeV'] + ); + +@ControlwordArguments = ( + ['\\hyperref', 0, 0, '', ''], + ['\\Chapter', 0, 0, '', '', 1, 1, 'Chapter ', ' ', 1, 1, '', ' '], + ['\\Section', 0, 0, '', '', 1, 1, '', ' ', 1, 1, '', ''], + ['\\Subsection', 0, 0, '', '', 1, 1, '', ' ', 1, 1, '', ''], + ['\\Subsubsection', 0, 0, '', '', 1, 1, '', ' ', 1, 1, '', ''], + ['\\Subsubsubsection', 0, 0, '', '', 1, 1, '', ' ', 1, 1, '', ''], + ['\\ChapRef', 1, 1, 'Chapter ', ''], + ['\\Figure', 1, 1, '[Illustration: Fig. ', ']', 1, 0, '', ''], + ['\\FigRef', 1, 1, 'Fig. ', ''], + ['\\Eqref', 0, 0, '', '', 1, 1, '(', ')'], + ['\\Eqrefs', 0, 0, '', '', 1, 1, '(', ')'], + ['\\Eqno', 1, 1, '(', ')'] + ); +### +This is pdfTeXk, Version 3.141592-1.40.3 (Web2C 7.5.6) (format=pdflatex 2009.8.25) 25 AUG 2009 13:35 +entering extended mode + %&-line parsing enabled. +**29784-t.tex +(./29784-t.tex +LaTeX2e <2005/12/01> +Babel <v3.8h> and hyphenation patterns for english, usenglishmax, dumylang, noh +yphenation, arabic, farsi, croatian, ukrainian, russian, bulgarian, czech, slov +ak, danish, dutch, finnish, basque, french, german, ngerman, ibycus, greek, mon +ogreek, ancientgreek, hungarian, italian, latin, mongolian, norsk, icelandic, i +nterlingua, turkish, coptic, romanian, welsh, serbian, slovenian, estonian, esp +eranto, uppersorbian, indonesian, polish, portuguese, spanish, catalan, galicia +n, swedish, ukenglish, pinyin, loaded. +(/usr/share/texmf-texlive/tex/latex/base/book.cls +Document Class: book 2005/09/16 v1.4f Standard LaTeX document class +(/usr/share/texmf-texlive/tex/latex/base/bk12.clo +File: bk12.clo 2005/09/16 v1.4f Standard LaTeX file (size option) +) +\c@part=\count79 +\c@chapter=\count80 +\c@section=\count81 +\c@subsection=\count82 +\c@subsubsection=\count83 +\c@paragraph=\count84 +\c@subparagraph=\count85 +\c@figure=\count86 +\c@table=\count87 +\abovecaptionskip=\skip41 +\belowcaptionskip=\skip42 +\bibindent=\dimen102 +) (/usr/share/texmf-texlive/tex/latex/base/inputenc.sty +Package: inputenc 2006/05/05 v1.1b Input encoding file +\inpenc@prehook=\toks14 +\inpenc@posthook=\toks15 +(/usr/share/texmf-texlive/tex/latex/base/latin1.def +File: latin1.def 2006/05/05 v1.1b Input encoding file +)) (/usr/share/texmf-texlive/tex/latex/base/fontenc.sty +Package: fontenc 2005/09/27 v1.99g Standard LaTeX package +(/usr/share/texmf-texlive/tex/latex/base/t1enc.def +File: t1enc.def 2005/09/27 v1.99g Standard LaTeX file +LaTeX Font Info: Redeclaring font encoding T1 on input line 43. +)) (/usr/share/texmf-texlive/tex/latex/amsfonts/amssymb.sty +Package: amssymb 2002/01/22 v2.2d +(/usr/share/texmf-texlive/tex/latex/amsfonts/amsfonts.sty +Package: amsfonts 2001/10/25 v2.2f +\@emptytoks=\toks16 +\symAMSa=\mathgroup4 +\symAMSb=\mathgroup5 +LaTeX Font Info: Overwriting math alphabet `\mathfrak' in version `bold' +(Font) U/euf/m/n --> U/euf/b/n on input line 132. +)) (/usr/share/texmf-texlive/tex/latex/amsmath/amsmath.sty +Package: amsmath 2000/07/18 v2.13 AMS math features +\@mathmargin=\skip43 +For additional information on amsmath, use the `?' option. +(/usr/share/texmf-texlive/tex/latex/amsmath/amstext.sty +Package: amstext 2000/06/29 v2.01 +(/usr/share/texmf-texlive/tex/latex/amsmath/amsgen.sty +File: amsgen.sty 1999/11/30 v2.0 +\@emptytoks=\toks17 +\ex@=\dimen103 +)) (/usr/share/texmf-texlive/tex/latex/amsmath/amsbsy.sty +Package: amsbsy 1999/11/29 v1.2d +\pmbraise@=\dimen104 +) (/usr/share/texmf-texlive/tex/latex/amsmath/amsopn.sty +Package: amsopn 1999/12/14 v2.01 operator names +) +\inf@bad=\count88 +LaTeX Info: Redefining \frac on input line 211. +\uproot@=\count89 +\leftroot@=\count90 +LaTeX Info: Redefining \overline on input line 307. +\classnum@=\count91 +\DOTSCASE@=\count92 +LaTeX Info: Redefining \ldots on input line 379. +LaTeX Info: Redefining \dots on input line 382. +LaTeX Info: Redefining \cdots on input line 467. +\Mathstrutbox@=\box26 +\strutbox@=\box27 +\big@size=\dimen105 +LaTeX Font Info: Redeclaring font encoding OML on input line 567. +LaTeX Font Info: Redeclaring font encoding OMS on input line 568. +\macc@depth=\count93 +\c@MaxMatrixCols=\count94 +\dotsspace@=\muskip10 +\c@parentequation=\count95 +\dspbrk@lvl=\count96 +\tag@help=\toks18 +\row@=\count97 +\column@=\count98 +\maxfields@=\count99 +\andhelp@=\toks19 +\eqnshift@=\dimen106 +\alignsep@=\dimen107 +\tagshift@=\dimen108 +\tagwidth@=\dimen109 +\totwidth@=\dimen110 +\lineht@=\dimen111 +\@envbody=\toks20 +\multlinegap=\skip44 +\multlinetaggap=\skip45 +\mathdisplay@stack=\toks21 +LaTeX Info: Redefining \[ on input line 2666. +LaTeX Info: Redefining \] on input line 2667. +) (/usr/share/texmf-texlive/tex/latex/jknapltx/mathrsfs.sty +Package: mathrsfs 1996/01/01 Math RSFS package v1.0 (jk) +\symrsfs=\mathgroup6 +) (/usr/share/texmf-texlive/tex/latex/fancyhdr/fancyhdr.sty +\fancy@headwidth=\skip46 +\f@ncyO@elh=\skip47 +\f@ncyO@erh=\skip48 +\f@ncyO@olh=\skip49 +\f@ncyO@orh=\skip50 +\f@ncyO@elf=\skip51 +\f@ncyO@erf=\skip52 +\f@ncyO@olf=\skip53 +\f@ncyO@orf=\skip54 +) (/usr/share/texmf-texlive/tex/latex/tools/longtable.sty +Package: longtable 2004/02/01 v4.11 Multi-page Table package (DPC) +\LTleft=\skip55 +\LTright=\skip56 +\LTpre=\skip57 +\LTpost=\skip58 +\LTchunksize=\count100 +\LTcapwidth=\dimen112 +\LT@head=\box28 +\LT@firsthead=\box29 +\LT@foot=\box30 +\LT@lastfoot=\box31 +\LT@cols=\count101 +\LT@rows=\count102 +\c@LT@tables=\count103 +\c@LT@chunks=\count104 +\LT@p@ftn=\toks22 +) (/usr/share/texmf-texlive/tex/latex/tools/array.sty +Package: array 2005/08/23 v2.4b Tabular extension package (FMi) +\col@sep=\dimen113 +\extrarowheight=\dimen114 +\NC@list=\toks23 +\extratabsurround=\skip59 +\backup@length=\skip60 +) (/usr/share/texmf-texlive/tex/latex/tools/multicol.sty +Package: multicol 2006/05/18 v1.6g multicolumn formatting (FMi) +\c@tracingmulticols=\count105 +\mult@box=\box32 +\multicol@leftmargin=\dimen115 +\c@unbalance=\count106 +\c@collectmore=\count107 +\doublecol@number=\count108 +\multicoltolerance=\count109 +\multicolpretolerance=\count110 +\full@width=\dimen116 +\page@free=\dimen117 +\premulticols=\dimen118 +\postmulticols=\dimen119 +\multicolsep=\skip61 +\multicolbaselineskip=\skip62 +\partial@page=\box33 +\last@line=\box34 +\mult@rightbox=\box35 +\mult@grightbox=\box36 +\mult@gfirstbox=\box37 +\mult@firstbox=\box38 +\@tempa=\box39 +\@tempa=\box40 +\@tempa=\box41 +\@tempa=\box42 +\@tempa=\box43 +\@tempa=\box44 +\@tempa=\box45 +\@tempa=\box46 +\@tempa=\box47 +\@tempa=\box48 +\@tempa=\box49 +\@tempa=\box50 +\@tempa=\box51 +\@tempa=\box52 +\@tempa=\box53 +\@tempa=\box54 +\@tempa=\box55 +\c@columnbadness=\count111 +\c@finalcolumnbadness=\count112 +\last@try=\dimen120 +\multicolovershoot=\dimen121 +\multicolundershoot=\dimen122 +\mult@nat@firstbox=\box56 +\colbreak@box=\box57 +) (/usr/share/texmf-texlive/tex/latex/graphics/lscape.sty +Package: lscape 2000/10/22 v3.01 Landscape Pages (DPC) +(/usr/share/texmf-texlive/tex/latex/graphics/graphics.sty +Package: graphics 2006/02/20 v1.0o Standard LaTeX Graphics (DPC,SPQR) +(/usr/share/texmf-texlive/tex/latex/graphics/trig.sty +Package: trig 1999/03/16 v1.09 sin cos tan (DPC) +) (/etc/texmf/tex/latex/config/graphics.cfg +File: graphics.cfg 2007/01/18 v1.5 graphics configuration of teTeX/TeXLive +) +Package graphics Info: Driver file: pdftex.def on input line 90. +(/usr/share/texmf-texlive/tex/latex/pdftex-def/pdftex.def +File: pdftex.def 2007/01/08 v0.04d Graphics/color for pdfTeX +\Gread@gobject=\count113 +))) (/usr/share/texmf-texlive/tex/latex/base/alltt.sty +Package: alltt 1997/06/16 v2.0g defines alltt environment +) (/usr/share/texmf-texlive/tex/latex/base/textcomp.sty +Package: textcomp 2005/09/27 v1.99g Standard LaTeX package +Package textcomp Info: Sub-encoding information: +(textcomp) 5 = only ISO-Adobe without \textcurrency +(textcomp) 4 = 5 + \texteuro +(textcomp) 3 = 4 + \textohm +(textcomp) 2 = 3 + \textestimated + \textcurrency +(textcomp) 1 = TS1 - \textcircled - \t +(textcomp) 0 = TS1 (full) +(textcomp) Font families with sub-encoding setting implement +(textcomp) only a restricted character set as indicated. +(textcomp) Family '?' is the default used for unknown fonts. +(textcomp) See the documentation for details. +Package textcomp Info: Setting ? sub-encoding to TS1/1 on input line 71. +(/usr/share/texmf-texlive/tex/latex/base/ts1enc.def +File: ts1enc.def 2001/06/05 v3.0e (jk/car/fm) Standard LaTeX file +) +LaTeX Info: Redefining \oldstylenums on input line 266. +Package textcomp Info: Setting cmr sub-encoding to TS1/0 on input line 281. +Package textcomp Info: Setting cmss sub-encoding to TS1/0 on input line 282. +Package textcomp Info: Setting cmtt sub-encoding to TS1/0 on input line 283. +Package textcomp Info: Setting cmvtt sub-encoding to TS1/0 on input line 284. +Package textcomp Info: Setting cmbr sub-encoding to TS1/0 on input line 285. +Package textcomp Info: Setting cmtl sub-encoding to TS1/0 on input line 286. +Package textcomp Info: Setting ccr sub-encoding to TS1/0 on input line 287. +Package textcomp Info: Setting ptm sub-encoding to TS1/4 on input line 288. +Package textcomp Info: Setting pcr sub-encoding to TS1/4 on input line 289. +Package textcomp Info: Setting phv sub-encoding to TS1/4 on input line 290. +Package textcomp Info: Setting ppl sub-encoding to TS1/3 on input line 291. +Package textcomp Info: Setting pag sub-encoding to TS1/4 on input line 292. +Package textcomp Info: Setting pbk sub-encoding to TS1/4 on input line 293. +Package textcomp Info: Setting pnc sub-encoding to TS1/4 on input line 294. +Package textcomp Info: Setting pzc sub-encoding to TS1/4 on input line 295. +Package textcomp Info: Setting bch sub-encoding to TS1/4 on input line 296. +Package textcomp Info: Setting put sub-encoding to TS1/5 on input line 297. +Package textcomp Info: Setting uag sub-encoding to TS1/5 on input line 298. +Package textcomp Info: Setting ugq sub-encoding to TS1/5 on input line 299. +Package textcomp Info: Setting ul8 sub-encoding to TS1/4 on input line 300. +Package textcomp Info: Setting ul9 sub-encoding to TS1/4 on input line 301. +Package textcomp Info: Setting augie sub-encoding to TS1/5 on input line 302. +Package textcomp Info: Setting dayrom sub-encoding to TS1/3 on input line 303. +Package textcomp Info: Setting dayroms sub-encoding to TS1/3 on input line 304. + +Package textcomp Info: Setting pxr sub-encoding to TS1/0 on input line 305. +Package textcomp Info: Setting pxss sub-encoding to TS1/0 on input line 306. +Package textcomp Info: Setting pxtt sub-encoding to TS1/0 on input line 307. +Package textcomp Info: Setting txr sub-encoding to TS1/0 on input line 308. +Package textcomp Info: Setting txss sub-encoding to TS1/0 on input line 309. +Package textcomp Info: Setting txtt sub-encoding to TS1/0 on input line 310. +Package textcomp Info: Setting futs sub-encoding to TS1/4 on input line 311. +Package textcomp Info: Setting futx sub-encoding to TS1/4 on input line 312. +Package textcomp Info: Setting futj sub-encoding to TS1/4 on input line 313. +Package textcomp Info: Setting hlh sub-encoding to TS1/3 on input line 314. +Package textcomp Info: Setting hls sub-encoding to TS1/3 on input line 315. +Package textcomp Info: Setting hlst sub-encoding to TS1/3 on input line 316. +Package textcomp Info: Setting hlct sub-encoding to TS1/5 on input line 317. +Package textcomp Info: Setting hlx sub-encoding to TS1/5 on input line 318. +Package textcomp Info: Setting hlce sub-encoding to TS1/5 on input line 319. +Package textcomp Info: Setting hlcn sub-encoding to TS1/5 on input line 320. +Package textcomp Info: Setting hlcw sub-encoding to TS1/5 on input line 321. +Package textcomp Info: Setting hlcf sub-encoding to TS1/5 on input line 322. +Package textcomp Info: Setting pplx sub-encoding to TS1/3 on input line 323. +Package textcomp Info: Setting pplj sub-encoding to TS1/3 on input line 324. +Package textcomp Info: Setting ptmx sub-encoding to TS1/4 on input line 325. +Package textcomp Info: Setting ptmj sub-encoding to TS1/4 on input line 326. +) (/usr/share/texmf-texlive/tex/latex/tools/indentfirst.sty +Package: indentfirst 1995/11/23 v1.03 Indent first paragraph (DPC) +) (/usr/share/texmf-texlive/tex/latex/base/ifthen.sty +Package: ifthen 2001/05/26 v1.1c Standard LaTeX ifthen package (DPC) +) (/usr/share/texmf-texlive/tex/latex/listings/listings.sty (/usr/share/texmf-t +exlive/tex/latex/graphics/keyval.sty +Package: keyval 1999/03/16 v1.13 key=value parser (DPC) +\KV@toks@=\toks24 +) +\lst@mode=\count114 +\lst@gtempboxa=\box58 +\lst@token=\toks25 +\lst@length=\count115 +\lst@currlwidth=\dimen123 +\lst@column=\count116 +\lst@pos=\count117 +\lst@lostspace=\dimen124 +\lst@width=\dimen125 +\lst@newlines=\count118 +\lst@lineno=\count119 +\c@lstlisting=\count120 +\lst@maxwidth=\dimen126 +(/usr/share/texmf-texlive/tex/latex/listings/lstpatch.sty +File: lstpatch.sty 2004/10/17 1.3b (Carsten Heinz) +) (/usr/share/texmf-texlive/tex/latex/listings/lstmisc.sty +File: lstmisc.sty 2004/09/07 1.3 (Carsten Heinz) +\c@lstnumber=\count121 +\lst@skipnumbers=\count122 +\lst@framebox=\box59 +) (/usr/share/texmf-texlive/tex/latex/listings/listings.cfg +File: listings.cfg 2004/09/05 1.3 listings configuration +)) +Package: listings 2004/10/17 1.3b (Carsten Heinz) +(/usr/share/texmf-texlive/tex/latex/rotating/rotating.sty +Package: rotating 1997/09/26, v2.13 Rotation package +(/usr/share/texmf-texlive/tex/latex/graphics/graphicx.sty +Package: graphicx 1999/02/16 v1.0f Enhanced LaTeX Graphics (DPC,SPQR) +\Gin@req@height=\dimen127 +\Gin@req@width=\dimen128 +) +\c@r@tfl@t=\count123 +\rot@float@box=\box60 +) (/usr/share/texmf/tex/latex/pgf/frontendlayer/tikz.sty (/usr/share/texmf/tex/ +latex/pgf/basiclayer/pgf.sty (/usr/share/texmf/tex/latex/pgf/utilities/pgfrcs.s +ty (/usr/share/texmf/tex/generic/pgf/utilities/pgfutil-common.tex +\pgfutil@everybye=\toks26 +) (/usr/share/texmf/tex/generic/pgf/utilities/pgfutil-latex.def) (/usr/share/te +xmf/tex/generic/pgf/utilities/pgfrcs.code.tex +Package: pgfrcs 2008/02/20 v2.00 (rcs-revision 1.21) +)) +Package: pgf 2008/01/15 v2.00 (rcs-revision 1.12) +(/usr/share/texmf/tex/latex/pgf/basiclayer/pgfcore.sty (/usr/share/texmf/tex/la +tex/pgf/systemlayer/pgfsys.sty (/usr/share/texmf/tex/generic/pgf/systemlayer/pg +fsys.code.tex +Package: pgfsys 2008/02/07 v2.00 (rcs-revision 1.31) +(/usr/share/texmf/tex/generic/pgf/utilities/pgfkeys.code.tex +\pgfkeys@pathtoks=\toks27 +\pgfkeys@temptoks=\toks28 +) +\pgf@x=\dimen129 +\pgf@y=\dimen130 +\pgf@xa=\dimen131 +\pgf@ya=\dimen132 +\pgf@xb=\dimen133 +\pgf@yb=\dimen134 +\pgf@xc=\dimen135 +\pgf@yc=\dimen136 +\c@pgf@counta=\count124 +\c@pgf@countb=\count125 +\c@pgf@countc=\count126 +\c@pgf@countd=\count127 +(/usr/share/texmf/tex/generic/pgf/systemlayer/pgf.cfg +File: pgf.cfg 2008/01/13 (rcs-revision 1.6) +) +Package pgfsys Info: Driver file for pgf: pgfsys-pdftex.def on input line 885. +(/usr/share/texmf/tex/generic/pgf/systemlayer/pgfsys-pdftex.def +File: pgfsys-pdftex.def 2007/12/20 (rcs-revision 1.20) +(/usr/share/texmf/tex/generic/pgf/systemlayer/pgfsys-common-pdf.def +File: pgfsys-common-pdf.def 2007/12/17 (rcs-revision 1.8) +))) (/usr/share/texmf/tex/generic/pgf/systemlayer/pgfsyssoftpath.code.tex +File: pgfsyssoftpath.code.tex 2008/01/23 (rcs-revision 1.6) +\pgfsyssoftpath@smallbuffer@items=\count128 +\pgfsyssoftpath@bigbuffer@items=\count129 +) (/usr/share/texmf/tex/generic/pgf/systemlayer/pgfsysprotocol.code.tex +File: pgfsysprotocol.code.tex 2006/10/16 (rcs-revision 1.4) +)) (/usr/share/texmf/tex/latex/xcolor/xcolor.sty +Package: xcolor 2007/01/21 v2.11 LaTeX color extensions (UK) +(/etc/texmf/tex/latex/config/color.cfg +File: color.cfg 2007/01/18 v1.5 color configuration of teTeX/TeXLive +) +Package xcolor Info: Driver file: pdftex.def on input line 225. +Package xcolor Info: Model `cmy' substituted by `cmy0' on input line 1337. +Package xcolor Info: Model `hsb' substituted by `rgb' on input line 1341. +Package xcolor Info: Model `RGB' extended on input line 1353. +Package xcolor Info: Model `HTML' substituted by `rgb' on input line 1355. +Package xcolor Info: Model `Hsb' substituted by `hsb' on input line 1356. +Package xcolor Info: Model `tHsb' substituted by `hsb' on input line 1357. +Package xcolor Info: Model `HSB' substituted by `hsb' on input line 1358. +Package xcolor Info: Model `Gray' substituted by `gray' on input line 1359. +Package xcolor Info: Model `wave' substituted by `hsb' on input line 1360. +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcore.code.tex +Package: pgfcore 2008/01/15 v2.00 (rcs-revision 1.6) +(/usr/share/texmf/tex/generic/pgf/math/pgfmath.code.tex (/usr/share/texmf/tex/g +eneric/pgf/math/pgfmathcalc.code.tex (/usr/share/texmf/tex/generic/pgf/math/pgf +mathutil.code.tex +\pgfmath@box=\box61 +) (/usr/share/texmf/tex/generic/pgf/math/pgfmathparser.code.tex +\pgfmath@stack=\toks29 +\c@pgfmath@parsecounta=\count130 +\c@pgfmath@parsecountb=\count131 +\c@pgfmath@parsecountc=\count132 +\pgfmath@parsex=\dimen137 +) (/usr/share/texmf/tex/generic/pgf/math/pgfmathoperations.code.tex (/usr/share +/texmf/tex/generic/pgf/math/pgfmathtrig.code.tex) (/usr/share/texmf/tex/generic +/pgf/math/pgfmathrnd.code.tex)) (/usr/share/texmf/tex/generic/pgf/math/pgfmathb +ase.code.tex))) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorepoints.code +.tex +File: pgfcorepoints.code.tex 2008/02/03 (rcs-revision 1.13) +\pgf@picminx=\dimen138 +\pgf@picmaxx=\dimen139 +\pgf@picminy=\dimen140 +\pgf@picmaxy=\dimen141 +\pgf@pathminx=\dimen142 +\pgf@pathmaxx=\dimen143 +\pgf@pathminy=\dimen144 +\pgf@pathmaxy=\dimen145 +\pgf@xx=\dimen146 +\pgf@xy=\dimen147 +\pgf@yx=\dimen148 +\pgf@yy=\dimen149 +\pgf@zx=\dimen150 +\pgf@zy=\dimen151 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorepathconstruct.code.tex +File: pgfcorepathconstruct.code.tex 2008/02/13 (rcs-revision 1.14) +\pgf@path@lastx=\dimen152 +\pgf@path@lasty=\dimen153 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorepathusage.code.tex +File: pgfcorepathusage.code.tex 2008/01/23 (rcs-revision 1.11) +\pgf@shorten@end@additional=\dimen154 +\pgf@shorten@start@additional=\dimen155 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorescopes.code.tex +File: pgfcorescopes.code.tex 2008/01/15 (rcs-revision 1.26) +\pgfpic=\box62 +\pgf@hbox=\box63 +\pgf@layerbox@main=\box64 +\pgf@picture@serial@count=\count133 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcoregraphicstate.code.tex +File: pgfcoregraphicstate.code.tex 2007/12/12 (rcs-revision 1.8) +\pgflinewidth=\dimen156 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcoretransformations.code.tex +File: pgfcoretransformations.code.tex 2008/02/04 (rcs-revision 1.10) +\pgf@pt@x=\dimen157 +\pgf@pt@y=\dimen158 +\pgf@pt@temp=\dimen159 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorequick.code.tex +File: pgfcorequick.code.tex 2006/10/11 (rcs-revision 1.2) +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcoreobjects.code.tex +File: pgfcoreobjects.code.tex 2006/10/11 (rcs-revision 1.2) +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorepathprocessing.code.tex +File: pgfcorepathprocessing.code.tex 2008/01/23 (rcs-revision 1.7) +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorearrows.code.tex +File: pgfcorearrows.code.tex 2007/06/07 (rcs-revision 1.8) +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcoreshade.code.tex +File: pgfcoreshade.code.tex 2007/12/10 (rcs-revision 1.9) +\pgf@max=\dimen160 +\pgf@sys@shading@range@num=\count134 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcoreimage.code.tex +File: pgfcoreimage.code.tex 2008/01/15 (rcs-revision 1.1) +\pgfexternal@startupbox=\box65 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorelayers.code.tex +File: pgfcorelayers.code.tex 2008/01/15 (rcs-revision 1.1) +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcoretransparency.code.tex +File: pgfcoretransparency.code.tex 2008/01/17 (rcs-revision 1.2) +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorepatterns.code.tex +File: pgfcorepatterns.code.tex 2008/01/15 (rcs-revision 1.1) +))) (/usr/share/texmf/tex/generic/pgf/modules/pgfmoduleshapes.code.tex +File: pgfmoduleshapes.code.tex 2008/02/13 (rcs-revision 1.4) +\pgfnodeparttextbox=\box66 +\toks@savedmacro=\toks30 +) (/usr/share/texmf/tex/generic/pgf/modules/pgfmoduleplot.code.tex +File: pgfmoduleplot.code.tex 2008/01/15 (rcs-revision 1.1) +\pgf@plotwrite=\write3 +) (/usr/share/texmf/tex/latex/pgf/compatibility/pgfcomp-version-0-65.sty +Package: pgfcomp-version-0-65 2007/07/03 v2.00 (rcs-revision 1.7) +\pgf@nodesepstart=\dimen161 +\pgf@nodesepend=\dimen162 +) (/usr/share/texmf/tex/latex/pgf/compatibility/pgfcomp-version-1-18.sty +Package: pgfcomp-version-1-18 2007/07/23 v2.00 (rcs-revision 1.1) +)) (/usr/share/texmf/tex/latex/pgf/utilities/pgffor.sty (/usr/share/texmf/tex/g +eneric/pgf/utilities/pgffor.code.tex +Package: pgffor 2007/11/07 v2.00 (rcs-revision 1.8) +\pgffor@iter=\dimen163 +\pgffor@skip=\dimen164 +)) (/usr/share/texmf/tex/generic/pgf/frontendlayer/tikz/tikz.code.tex +Package: tikz 2008/02/13 v2.00 (rcs-revision 1.27) +(/usr/share/texmf/tex/generic/pgf/libraries/pgflibraryplothandlers.code.tex +File: pgflibraryplothandlers.code.tex 2007/03/09 v2.00 (rcs-revision 1.9) +\pgf@plot@mark@count=\count135 +\pgfplotmarksize=\dimen165 +) +\tikz@lastx=\dimen166 +\tikz@lasty=\dimen167 +\tikz@lastxsaved=\dimen168 +\tikz@lastysaved=\dimen169 +\tikzleveldistance=\dimen170 +\tikzsiblingdistance=\dimen171 +\tikz@figbox=\box67 +\tikz@tempbox=\box68 +\tikztreelevel=\count136 +\tikznumberofchildren=\count137 +\tikznumberofcurrentchild=\count138 +\tikz@fig@count=\count139 +(/usr/share/texmf/tex/generic/pgf/modules/pgfmodulematrix.code.tex +File: pgfmodulematrix.code.tex 2008/01/15 (rcs-revision 1.1) +\pgfmatrixcurrentrow=\count140 +\pgfmatrixcurrentcolumn=\count141 +\pgf@matrix@numberofcolumns=\count142 +) +\tikz@expandcount=\count143 + +(/usr/share/texmf/tex/generic/pgf/frontendlayer/tikz/libraries/tikzlibrarytopat +hs.code.tex +File: tikzlibrarytopaths.code.tex 2008/01/09 v2.00 (rcs-revision 1.1) +))) (/usr/share/texmf-texlive/tex/latex/geometry/geometry.sty +Package: geometry 2002/07/08 v3.2 Page Geometry +\Gm@cnth=\count144 +\Gm@cntv=\count145 +\c@Gm@tempcnt=\count146 +\Gm@bindingoffset=\dimen172 +\Gm@wd@mp=\dimen173 +\Gm@odd@mp=\dimen174 +\Gm@even@mp=\dimen175 +\Gm@dimlist=\toks31 +(/usr/share/texmf-texlive/tex/xelatex/xetexconfig/geometry.cfg)) (/usr/share/te +xmf-texlive/tex/latex/hyperref/hyperref.sty +Package: hyperref 2007/02/07 v6.75r Hypertext links for LaTeX +\@linkdim=\dimen176 +\Hy@linkcounter=\count147 +\Hy@pagecounter=\count148 +(/usr/share/texmf-texlive/tex/latex/hyperref/pd1enc.def +File: pd1enc.def 2007/02/07 v6.75r Hyperref: PDFDocEncoding definition (HO) +) (/etc/texmf/tex/latex/config/hyperref.cfg +File: hyperref.cfg 2002/06/06 v1.2 hyperref configuration of TeXLive +) (/usr/share/texmf-texlive/tex/latex/oberdiek/kvoptions.sty +Package: kvoptions 2006/08/22 v2.4 Connects package keyval with LaTeX options ( +HO) +) +Package hyperref Info: Option `hyperfootnotes' set `false' on input line 2238. +Package hyperref Info: Option `bookmarks' set `true' on input line 2238. +Package hyperref Info: Option `linktocpage' set `false' on input line 2238. +Package hyperref Info: Option `pdfdisplaydoctitle' set `true' on input line 223 +8. +Package hyperref Info: Option `pdfpagelabels' set `true' on input line 2238. +Package hyperref Info: Option `bookmarksopen' set `true' on input line 2238. +Package hyperref Info: Option `colorlinks' set `true' on input line 2238. +Package hyperref Info: Hyper figures OFF on input line 2288. +Package hyperref Info: Link nesting OFF on input line 2293. +Package hyperref Info: Hyper index ON on input line 2296. +Package hyperref Info: Plain pages OFF on input line 2303. +Package hyperref Info: Backreferencing OFF on input line 2308. +Implicit mode ON; LaTeX internals redefined +Package hyperref Info: Bookmarks ON on input line 2444. +(/usr/share/texmf-texlive/tex/latex/ltxmisc/url.sty +\Urlmuskip=\muskip11 +Package: url 2005/06/27 ver 3.2 Verb mode for urls, etc. +) +LaTeX Info: Redefining \url on input line 2599. +\Fld@menulength=\count149 +\Field@Width=\dimen177 +\Fld@charsize=\dimen178 +\Choice@toks=\toks32 +\Field@toks=\toks33 +Package hyperref Info: Hyper figures OFF on input line 3102. +Package hyperref Info: Link nesting OFF on input line 3107. +Package hyperref Info: Hyper index ON on input line 3110. +Package hyperref Info: backreferencing OFF on input line 3117. +Package hyperref Info: Link coloring ON on input line 3120. +\Hy@abspage=\count150 +\c@Item=\count151 +) +*hyperref using driver hpdftex* +(/usr/share/texmf-texlive/tex/latex/hyperref/hpdftex.def +File: hpdftex.def 2007/02/07 v6.75r Hyperref driver for pdfTeX +\Fld@listcount=\count152 +) (/usr/share/texmf-texlive/tex/latex/listings/lstlang1.sty +File: lstlang1.sty 2004/09/05 1.3 listings language file +) (/usr/share/texmf-texlive/tex/latex/listings/lstlang1.sty +File: lstlang1.sty 2004/09/05 1.3 listings language file +) +\TmpLen=\skip63 +(./29784-t.aux) +\openout1 = `29784-t.aux'. + +LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 435. +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 435. +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 435. +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 435. +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 435. +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 435. +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for TS1/cmr/m/n on input line 435. +LaTeX Font Info: Try loading font information for TS1+cmr on input line 435. + +(/usr/share/texmf-texlive/tex/latex/base/ts1cmr.fd +File: ts1cmr.fd 1999/05/25 v2.5h Standard LaTeX font definitions +) +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for PD1/pdf/m/n on input line 435. +LaTeX Font Info: ... okay on input line 435. +(/usr/share/texmf/tex/context/base/supp-pdf.tex +[Loading MPS to PDF converter (version 2006.09.02).] +\scratchcounter=\count153 +\scratchdimen=\dimen179 +\scratchbox=\box69 +\nofMPsegments=\count154 +\nofMParguments=\count155 +\everyMPshowfont=\toks34 +\MPscratchCnt=\count156 +\MPscratchDim=\dimen180 +\MPnumerator=\count157 +\everyMPtoPDFconversion=\toks35 +) +-------------------- Geometry parameters +paper: letterpaper +landscape: -- +twocolumn: -- +twoside: true +asymmetric: -- +h-parts: 79.49689pt, 455.30121pt, 79.4969pt +v-parts: 57.81598pt, 650.43pt, 86.72401pt +hmarginratio: 1:1 +vmarginratio: 2:3 +lines: -- +heightrounded: -- +bindingoffset: 0.0pt +truedimen: -- +includehead: -- +includefoot: -- +includemp: -- +driver: pdftex +-------------------- Page layout dimensions and switches +\paperwidth 614.295pt +\paperheight 794.96999pt +\textwidth 455.30121pt +\textheight 650.43pt +\oddsidemargin 7.2269pt +\evensidemargin 7.22691pt +\topmargin -46.3278pt +\headheight 12.0pt +\headsep 19.8738pt +\footskip 30.0pt +\marginparwidth 98.0pt +\marginparsep 7.0pt +\columnsep 10.0pt +\skip\footins 10.8pt plus 4.0pt minus 2.0pt +\hoffset 0.0pt +\voffset 0.0pt +\mag 1000 +\@twosidetrue \@mparswitchtrue +(1in=72.27pt, 1cm=28.45pt) +----------------------- +Package hyperref Info: Link coloring ON on input line 435. +(/usr/share/texmf-texlive/tex/latex/hyperref/nameref.sty +Package: nameref 2006/12/27 v2.28 Cross-referencing by name of section +(/usr/share/texmf-texlive/tex/latex/oberdiek/refcount.sty +Package: refcount 2006/02/20 v3.0 Data extraction from references (HO) +) +\c@section@level=\count158 +) +LaTeX Info: Redefining \ref on input line 435. +LaTeX Info: Redefining \pageref on input line 435. +(./29784-t.out) (./29784-t.out) +\@outlinefile=\write4 +\openout4 = `29784-t.out'. + +LaTeX Font Info: Try loading font information for T1+cmtt on input line 446. + +(/usr/share/texmf-texlive/tex/latex/base/t1cmtt.fd +File: t1cmtt.fd 1999/05/25 v2.5h Standard LaTeX font definitions +) +LaTeX Font Info: Try loading font information for U+msa on input line 473. +(/usr/share/texmf-texlive/tex/latex/amsfonts/umsa.fd +File: umsa.fd 2002/01/19 v2.2g AMS font definitions +) +LaTeX Font Info: Try loading font information for U+msb on input line 473. +(/usr/share/texmf-texlive/tex/latex/amsfonts/umsb.fd +File: umsb.fd 2002/01/19 v2.2g AMS font definitions +) +LaTeX Font Info: Try loading font information for U+rsfs on input line 473. +(/usr/share/texmf-texlive/tex/latex/jknapltx/ursfs.fd +File: ursfs.fd 1998/03/24 rsfs font definition file (jk) +) [1 + +{/var/lib/texmf/fonts/map/pdftex/updmap/pdftex.map}] [2 + +] [3 + +] [4 + +] [5 + +] (./29784-t.toc) +\tf@toc=\write5 +\openout5 = `29784-t.toc'. + +[6 + +] [1 + + +] [2 + +] [3] [4] [5] (./images/014a.eepic) [6] [7] [8] [9] [10] [11] [12] [13] [14] (. +/images/026a.eepic) (./images/027a.eepic) (./images/028a.eepic) [15] [16] [17] +[18] (./images/030a.eepic) (./images/031a.eepic) (./images/032a.eepic) [19] [20 +] [21] [22] [23] [24] [25] [26] [27] [28] [29 + +] [30] +Overfull \hbox (4.28531pt too wide) in paragraph at lines 2627--2637 +\T1/cmr/m/n/12 of num-bers used or be-cause of an er-ror in the in-put data is +fol-lowed by an []. + [] + +[31] +Overfull \hbox (6.18356pt too wide) in paragraph at lines 2723--2724 +[]\T1/cmr/m/n/12 Calls [], [], [], [], [], [], [], [], []. + [] + +[32] [33] [34] [35] +Overfull \hbox (2.73161pt too wide) in paragraph at lines 3044--3051 +[] + [] + +[36] +Overfull \hbox (2.07898pt too wide) in paragraph at lines 3066--3072 +[] + [] + + +Overfull \hbox (2.73161pt too wide) in paragraph at lines 3073--3080 +[] + [] + +[37] [38] [39] [40] [41] (./images/057a.eepic) +Overfull \hbox (3.06024pt too wide) in paragraph at lines 3461--3465 + \T1/cmr/bx/n/12 Note:[] \T1/cmr/m/n/12 The iden-ti-fi-ca-tion which con-sists +of the five quan-ti-ties [], [], + [] + + +Overfull \hbox (4.32056pt too wide) in paragraph at lines 3468--3479 +[] + [] + +[42 + +] [43] [44] +Underfull \hbox (badness 5388) in paragraph at lines 3717--3720 +[]|\T1/cmr/m/n/12 Mass num-ber of in-ci-dent par-ti-cle + [] + + +Underfull \hbox (badness 3449) in paragraph at lines 3721--3724 +[]|\T1/cmr/m/n/12 Reduced mass of in-ci-dent par-ti-cle + [] + +[45 + +] +Underfull \hbox (badness 10000) in paragraph at lines 3765--3767 +[]|\T1/cmr/m/n/12 Total num-ber of an-gles in-put + [] + +[46] +Underfull \hbox (badness 4899) in paragraph at lines 3806--3809 +[]|\T1/cmr/m/n/12 Total num-ber of in-put val-ues of + [] + +[47] [48] [49] [50] [51] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[52 + +] [53] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[54 + +] [55] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[56 + +] [57] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[58 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[59] [60] [61 + +] [62 + +] [63 + +] [64 + +] [65 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[66 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[67] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[68] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[69] [70] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[71 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[72] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[73] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[74] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[75] [76] [77 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[78 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[79] [80] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[81 + +] [82] [83 + +] [84 + +] [85 + +] [86 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[87 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[88] [89] [90 + +] [91 + +] +Underfull \vbox (badness 7344) has occurred while \output is active [] + +[92 + +] +Overfull \hbox (90.27046pt too wide) in paragraph at lines 5995--5997 +[][][][][][][][][][][][][][][][][][][][][][][][][] + [] + + +Overfull \hbox (49.48006pt too wide) in paragraph at lines 6015--6017 +[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][ +] + [] + + +Overfull \hbox (49.48006pt too wide) in paragraph at lines 6017--6019 +[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][ +][] + [] + + +Overfull \hbox (49.48006pt too wide) in paragraph at lines 6019--6021 +[][][][][][][][][][][][][][][][][][][][][][][][][][] + [] + + +Overfull \hbox (49.48006pt too wide) in paragraph at lines 6023--6025 +[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][] + [] + +[93] [94 + +] [95 + + +] [96 + + +] +LaTeX Font Info: Font shape `T1/cmtt/bx/n' in size <12> not available +(Font) Font shape `T1/cmtt/m/n' tried instead on input line 6182. +[97 + + +] +Overfull \hbox (20.49094pt too wide) in paragraph at lines 6261--6263 +[]\T1/cmr/m/n/12 Eisberg, Gugelot and Porter, Con-fer-ence on the Sta-tis-ti-ca +l As-pects of the Nu-cleus, Brookhaven + [] + +[98 + +] [99] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[100 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[101] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[102] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[103] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[104] [105] (./29784-t.aux) + + *File List* + book.cls 2005/09/16 v1.4f Standard LaTeX document class + bk12.clo 2005/09/16 v1.4f Standard LaTeX file (size option) +inputenc.sty 2006/05/05 v1.1b Input encoding file + latin1.def 2006/05/05 v1.1b Input encoding file + fontenc.sty + t1enc.def 2005/09/27 v1.99g Standard LaTeX file + amssymb.sty 2002/01/22 v2.2d +amsfonts.sty 2001/10/25 v2.2f + amsmath.sty 2000/07/18 v2.13 AMS math features + amstext.sty 2000/06/29 v2.01 + amsgen.sty 1999/11/30 v2.0 + amsbsy.sty 1999/11/29 v1.2d + amsopn.sty 1999/12/14 v2.01 operator names +mathrsfs.sty 1996/01/01 Math RSFS package v1.0 (jk) +fancyhdr.sty +longtable.sty 2004/02/01 v4.11 Multi-page Table package (DPC) + array.sty 2005/08/23 v2.4b Tabular extension package (FMi) +multicol.sty 2006/05/18 v1.6g multicolumn formatting (FMi) + lscape.sty 2000/10/22 v3.01 Landscape Pages (DPC) +graphics.sty 2006/02/20 v1.0o Standard LaTeX Graphics (DPC,SPQR) + trig.sty 1999/03/16 v1.09 sin cos tan (DPC) +graphics.cfg 2007/01/18 v1.5 graphics configuration of teTeX/TeXLive + pdftex.def 2007/01/08 v0.04d Graphics/color for pdfTeX + alltt.sty 1997/06/16 v2.0g defines alltt environment +textcomp.sty 2005/09/27 v1.99g Standard LaTeX package + ts1enc.def 2001/06/05 v3.0e (jk/car/fm) Standard LaTeX file +indentfirst.sty 1995/11/23 v1.03 Indent first paragraph (DPC) + ifthen.sty 2001/05/26 v1.1c Standard LaTeX ifthen package (DPC) +listings.sty 2004/10/17 1.3b (Carsten Heinz) + keyval.sty 1999/03/16 v1.13 key=value parser (DPC) +lstpatch.sty 2004/10/17 1.3b (Carsten Heinz) + lstmisc.sty 2004/09/07 1.3 (Carsten Heinz) +listings.cfg 2004/09/05 1.3 listings configuration +rotating.sty 1997/09/26, v2.13 Rotation package +graphicx.sty 1999/02/16 v1.0f Enhanced LaTeX Graphics (DPC,SPQR) + tikz.sty 2008/02/13 v2.00 (rcs-revision 1.27) + pgf.sty 2008/01/15 v2.00 (rcs-revision 1.12) + pgfrcs.sty 2008/02/20 v2.00 (rcs-revision 1.21) + pgfrcs.code.tex + pgfcore.sty 2008/01/15 v2.00 (rcs-revision 1.6) + pgfsys.sty 2008/02/07 v2.00 (rcs-revision 1.31) + pgfsys.code.tex +pgfsyssoftpath.code.tex 2008/01/23 (rcs-revision 1.6) +pgfsysprotocol.code.tex 2006/10/16 (rcs-revision 1.4) + xcolor.sty 2007/01/21 v2.11 LaTeX color extensions (UK) + color.cfg 2007/01/18 v1.5 color configuration of teTeX/TeXLive + pgfcore.code.tex +pgfcomp-version-0-65.sty 2007/07/03 v2.00 (rcs-revision 1.7) +pgfcomp-version-1-18.sty 2007/07/23 v2.00 (rcs-revision 1.1) + pgffor.sty 2007/11/07 v2.00 (rcs-revision 1.8) + pgffor.code.tex + tikz.code.tex +geometry.sty 2002/07/08 v3.2 Page Geometry +geometry.cfg +hyperref.sty 2007/02/07 v6.75r Hypertext links for LaTeX + pd1enc.def 2007/02/07 v6.75r Hyperref: PDFDocEncoding definition (HO) +hyperref.cfg 2002/06/06 v1.2 hyperref configuration of TeXLive +kvoptions.sty 2006/08/22 v2.4 Connects package keyval with LaTeX options (HO +) + url.sty 2005/06/27 ver 3.2 Verb mode for urls, etc. + hpdftex.def 2007/02/07 v6.75r Hyperref driver for pdfTeX +lstlang1.sty 2004/09/05 1.3 listings language file +lstlang1.sty 2004/09/05 1.3 listings language file + ts1cmr.fd 1999/05/25 v2.5h Standard LaTeX font definitions +supp-pdf.tex + nameref.sty 2006/12/27 v2.28 Cross-referencing by name of section +refcount.sty 2006/02/20 v3.0 Data extraction from references (HO) + 29784-t.out + 29784-t.out + t1cmtt.fd 1999/05/25 v2.5h Standard LaTeX font definitions + umsa.fd 2002/01/19 v2.2g AMS font definitions + umsb.fd 2002/01/19 v2.2g AMS font definitions + ursfs.fd 1998/03/24 rsfs font definition file (jk) +./images/014a.eepic +./images/026a.eepic +./images/027a.eepic +./images/028a.eepic +./images/030a.eepic +./images/031a.eepic +./images/032a.eepic +./images/057a.eepic + *********** + + ) +Here is how much of TeX's memory you used: + 16681 strings out of 94074 + 252407 string characters out of 1165153 + 493576 words of memory out of 1500000 + 17113 multiletter control sequences out of 10000+50000 + 37794 words of font info for 95 fonts, out of 1200000 for 2000 + 645 hyphenation exceptions out of 8191 + 46i,23n,49p,345b,1815s stack positions out of 5000i,500n,6000p,200000b,5000s +{/usr/share/texmf/fonts/enc/dvips/cm-super/cm-super-t1.enc}{/usr/share/texmf/ +fonts/enc/dvips/cm-super/cm-super-ts1.enc}</usr/share/texmf-texlive/fonts/type1 +/bluesky/cm/cmex10.pfb></usr/share/texmf-texlive/fonts/type1/bluesky/cm/cmmi10. +pfb></usr/share/texmf-texlive/fonts/type1/bluesky/cm/cmmi12.pfb></usr/share/tex +mf-texlive/fonts/type1/bluesky/cm/cmmi6.pfb></usr/share/texmf-texlive/fonts/typ +e1/bluesky/cm/cmmi8.pfb></usr/share/texmf-texlive/fonts/type1/bluesky/cm/cmr10. +pfb></usr/share/texmf-texlive/fonts/type1/bluesky/cm/cmr12.pfb></usr/share/texm +f-texlive/fonts/type1/bluesky/cm/cmr6.pfb></usr/share/texmf-texlive/fonts/type1 +/bluesky/cm/cmr8.pfb></usr/share/texmf-texlive/fonts/type1/bluesky/cm/cmsy10.pf +b></usr/share/texmf-texlive/fonts/type1/bluesky/cm/cmsy8.pfb></usr/share/texmf- +texlive/fonts/type1/bluesky/ams/msbm10.pfb></usr/share/texmf-texlive/fonts/type +1/hoekwater/rsfs/rsfs10.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfbi1 +000.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfbx0800.pfb></usr/share/ +texmf/fonts/type1/public/cm-super/sfbx1000.pfb></usr/share/texmf/fonts/type1/pu +blic/cm-super/sfbx1095.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfbx12 +00.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfbx2488.pfb></usr/share/t +exmf/fonts/type1/public/cm-super/sfcc1000.pfb></usr/share/texmf/fonts/type1/pub +lic/cm-super/sfcc1095.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfcc120 +0.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfrm0700.pfb></usr/share/te +xmf/fonts/type1/public/cm-super/sfrm0800.pfb></usr/share/texmf/fonts/type1/publ +ic/cm-super/sfrm1000.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfrm1095 +.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfrm1200.pfb></usr/share/tex +mf/fonts/type1/public/cm-super/sfrm1728.pfb></usr/share/texmf/fonts/type1/publi +c/cm-super/sfti1000.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfti1200. +pfb></usr/share/texmf/fonts/type1/public/cm-super/sftt0900.pfb></usr/share/texm +f/fonts/type1/public/cm-super/sftt1095.pfb></usr/share/texmf/fonts/type1/public +/cm-super/sftt1200.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfxc1000.p +fb></usr/share/texmf/fonts/type1/public/cm-super/sfxc1200.pfb></usr/share/texmf +/fonts/type1/public/cm-super/sfxc1440.pfb></usr/share/texmf/fonts/type1/public/ +cm-super/sfxc1728.pfb> +Output written on 29784-t.pdf (111 pages, 1269152 bytes). +PDF statistics: + 3919 PDF objects out of 4296 (max. 8388607) + 2516 named destinations out of 2984 (max. 131072) + 325 words of extra memory for PDF output out of 10000 (max. 10000000) + diff --git a/29784-t/images/014a.eepic b/29784-t/images/014a.eepic new file mode 100644 index 0000000..58e41e4 --- /dev/null +++ b/29784-t/images/014a.eepic @@ -0,0 +1,82 @@ +%% Generated from 014a.xp on Sat May 16 11:52:54 EDT 2009 by +%% ePiX-1.2.6 +%% +%% Cartesian bounding box: [0,6] x [-1,1] +%% Actual size: 6 x 2in +%% Figure offset: left by 0in, down by 0in +%% +%% usepackages tikz +%% +\xdefinecolor{rgb_000000}{rgb}{0,0,0}% +\xdefinecolor{rgb_ffffff}{rgb}{1,1,1}% +\begin{tikzpicture} +\pgfsetlinewidth{0.4pt} +\useasboundingbox (0in,0in) rectangle (6in,2in); +\draw (1in,1in)--(0.133975in,0.5in); +\draw (1in,1in)--(6in,1in); +\draw (3.5in,1in)--(5.84923in,1.85505in); +\pgfsetfillcolor{rgb_000000} +\draw [fill](5.76878in,1.82577in)--(5.74906in,1.7965in)-- + (5.84923in,1.85505in)--(5.73486in,1.83551in)--(5.76878in,1.82577in)--cycle; +\draw (3.5in,1in)--(5.84923in,0.14495in); +\draw [fill](5.76878in,0.174232in)--(5.73486in,0.164489in)-- + (5.84923in,0.14495in)--(5.74906in,0.203497in)--(5.76878in,0.174232in)--cycle; +\draw (1.51962in,1.3in)--(1.53389in,1.27379in)-- + (1.54684in,1.24691in)--(1.55844in,1.21941in)-- + (1.56866in,1.19138in)--(1.57747in,1.16286in)-- + (1.58486in,1.13395in)--(1.59079in,1.1047in)--(1.59527in,1.0752in)-- + (1.59827in,1.04551in)--(1.59979in,1.01571in); +\draw [fill](1.59761in,1.05846in)--(1.58652in,1.07218in)-- + (1.59979in,1.01571in)--(1.60725in,1.07324in)--(1.59761in,1.05846in)--cycle; +\draw (4.1in,1in)--(4.09936in,1.02767in)--(4.09745in,1.05527in)-- + (4.09426in,1.08276in)--(4.08982in,1.11008in)-- + (4.08411in,1.13716in)--(4.07717in,1.16394in)--(4.06899in,1.19038in); +\draw [fill](4.08164in,1.14948in)--(4.09577in,1.13892in)-- + (4.06899in,1.19038in)--(4.07594in,1.13279in)--(4.08164in,1.14948in)--cycle; +\draw (4.1in,1in)--(4.09936in,0.972334in)--(4.09745in,0.944727in)--(4.09426in,0.917237in)--(4.08982in,0.889923in)-- + (4.08411in,0.862844in)--(4.07717in,0.836056in)--(4.06899in,0.809617in); +\draw [fill](4.08164in,0.850516in)--(4.07594in,0.867214in)-- + (4.06899in,0.809617in)--(4.09577in,0.861083in)--(4.08164in,0.850516in)--cycle; +\draw (0.480385in,0.7in)--(0.523686in,0.725in); +\draw [fill](0.44954in,0.682192in)--(0.435202in,0.649948in)-- + (0.523686in,0.725in)--(0.414447in,0.685897in)--(0.44954in,0.682192in)--cycle; +\draw (2.5in,1in)--(2.55in,1in); +\draw [fill](2.46438in,1in)--(2.43584in,0.979244in)--(2.55in,1in)-- + (2.43584in,1.02076in)--(2.46438in,1in)--cycle; +\draw (1in,1in)--(1.03093in,1.01786in); +\draw (1.09279in,1.05357in)--(1.12372in,1.07143in); +\draw (1.12372in,1.07143in)--(1.15465in,1.08929in); +\draw (1.21651in,1.125in)--(1.24744in,1.14286in); +\draw (1.24744in,1.14286in)--(1.27837in,1.16071in); +\draw (1.34022in,1.19643in)--(1.37115in,1.21429in); +\draw (1.37115in,1.21429in)--(1.40208in,1.23214in); +\draw (1.46394in,1.26786in)--(1.49487in,1.28571in); +\draw (1.49487in,1.28571in)--(1.5258in,1.30357in); +\draw (1.58766in,1.33929in)--(1.61859in,1.35714in); +\draw (1.61859in,1.35714in)--(1.64952in,1.375in); +\draw (1.71138in,1.41071in)--(1.74231in,1.42857in); +\draw (1.74231in,1.42857in)--(1.77324in,1.44643in); +\draw (1.8351in,1.48214in)--(1.86603in,1.5in); +\pgftext[at={\pgfpoint{0.508059in}{0.672326in}}] {\makebox(0,0)[tl]{\hbox{\color{rgb_000000}$\vec{k}_0$}}} +\pgftext[at={\pgfpoint{2.5in}{0.944652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\vec{k}_1$}}} +\pgftext[at={\pgfpoint{5.87691in}{1.85505in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\vec{k}_2^\ell$}}} +\pgftext[at={\pgfpoint{5.87691in}{0.14495in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\vec{k}_2^r$}}} +\pgftext[at={\pgfpoint{1.6349in}{1.12762in}}] {\makebox(0,0)[bl]{\hbox{\color{rgb_000000}$\theta_1$}}} +\pgftext[at={\pgfpoint{4.14623in}{1.07651in}}] {\makebox(0,0)[bl]{\hbox{\color{rgb_000000}$\theta_2$}}} +\pgftext[at={\pgfpoint{4.14623in}{0.923485in}}] {\makebox(0,0)[tl]{\hbox{\color{rgb_000000}$\theta_2$}}} +\filldraw[color=rgb_ffffff] (4.90954in,1.51303in) circle(0.0518888in); +\draw[color=rgb_000000] (4.90954in,1.51303in) circle(0.0518888in); +\pgftext[at={\pgfpoint{4.90954in}{1.51303in}}] {\makebox(0,0){\hbox{\color{rgb_000000}$\times$}}} +\pgftext[at={\pgfpoint{4.93721in}{1.48536in}}] {\makebox(0,0)[tl]{\hbox{\color{rgb_000000}$\vec{n}_2^\ell$}}} +\filldraw[color=rgb_ffffff] (4.90954in,0.48697in) circle(0.0518888in); +\draw[color=rgb_000000] (4.90954in,0.48697in) circle(0.0518888in); +\filldraw[color=rgb_000000] (4.90954in,0.48697in) circle(0.0103778in); +\pgftext[at={\pgfpoint{4.93721in}{0.514644in}}] {\makebox(0,0)[bl]{\hbox{\color{rgb_000000}$\vec{n}_2^r$}}} +\filldraw[color=rgb_ffffff] (2in,1in) circle(0.0518888in); +\draw[color=rgb_000000] (2in,1in) circle(0.0518888in); +\filldraw[color=rgb_000000] (2in,1in) circle(0.0103778in); +\pgftext[at={\pgfpoint{2.02767in}{0.916978in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\vec{n}_1$}}} +\pgftext[at={\pgfpoint{4.41202in}{1.36969in}}] {\makebox(0,0)[br]{\hbox{\color{rgb_000000}$\ell$~Beam}}} +\pgftext[at={\pgfpoint{4.41202in}{0.630306in}}] {\makebox(0,0)[tr]{\hbox{\color{rgb_000000}$r$~Beam}}} +\pgftext[at={\pgfpoint{3in}{-0.027674in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}\textsc{Fig.~1}}}} +\end{tikzpicture} diff --git a/29784-t/images/026a.eepic b/29784-t/images/026a.eepic new file mode 100644 index 0000000..4db0808 --- /dev/null +++ b/29784-t/images/026a.eepic @@ -0,0 +1,403 @@ +%% Generated from 026a.xp on Sun May 17 12:43:46 EDT 2009 by +%% ePiX-1.2.6 +%% +%% Cartesian bounding box: [0,8] x [0,6] +%% Actual size: 8 x 6in +%% Figure offset: left by 0in, down by 0in +%% +%% usepackages tikz +%% +\xdefinecolor{rgb_000000}{rgb}{0,0,0}% +\xdefinecolor{rgb_ffffff}{rgb}{1,1,1}% +\begin{tikzpicture} +\pgfsetlinewidth{0.4pt} +\useasboundingbox (0in,0in) rectangle (8in,6in); +\draw (1.125in,0.5in)--(8in,0.5in); +\draw (8in,4.25in)-- + (1.125in,4.25in)--(1.125in,0.5in); +\draw (2.375in,0.5in)--(2.375in,4.25in); +\draw (3.625in,0.5in)--(3.625in,4.25in); +\draw (4.875in,0.5in)--(4.875in,4.25in); +\draw (6.125in,0.5in)--(6.125in,4.25in); +\draw (7.375in,0.5in)--(7.375in,4.25in); +\draw (1.125in,1.75in)--(8in,1.75in); +\draw (1.125in,3in)--(8in,3in); +\pgfsetlinewidth{0.8pt} +\draw (1.125in,0.5in)--(8in,0.5in)--(8in,4.25in)-- + (1.125in,4.25in)--(1.125in,0.5in)--cycle; +\draw (1.125in,0.5in)--(7.375in,0.5in); +\pgftext[at={\pgfpoint{1.125in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.375in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.625in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.875in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.125in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.375in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.75in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.375in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.625in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.25in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.875in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.5in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.125in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.75in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.375in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$0$}}} +\pgftext[at={\pgfpoint{2.375in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$1$}}} +\pgftext[at={\pgfpoint{3.625in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$2$}}} +\pgftext[at={\pgfpoint{4.875in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$3$}}} +\pgftext[at={\pgfpoint{6.125in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$4$}}} +\pgftext[at={\pgfpoint{7.375in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$5$}}} +\draw (1.125in,0.5in)--(1.125in,3.625in); +\pgftext[at={\pgfpoint{1.125in}{0.5in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{1.125in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{1.75in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{2.375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{3in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{3.625in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.06965in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0$}}} +\pgftext[at={\pgfpoint{1.06965in}{1.125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.2$}}} +\pgftext[at={\pgfpoint{1.06965in}{1.75in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.4$}}} +\pgftext[at={\pgfpoint{1.06965in}{2.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.6$}}} +\pgftext[at={\pgfpoint{1.06965in}{3in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.8$}}} +\pgftext[at={\pgfpoint{1.06965in}{3.625in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$1$}}} +\draw (1.125in,4.25in)--(7.375in,4.25in); +\pgftext[at={\pgfpoint{1.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.375in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.625in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.875in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.375in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.75in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.375in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.625in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.25in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.875in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.5in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.75in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.375in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\draw (8in,0.5in)--(8in,3.625in); +\pgftext[at={\pgfpoint{8in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.75in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.625in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\draw (1.125in,3.6219in)--(1.14783in,3.62189in)-- + (1.17378in,3.62188in)--(1.19973in,3.62187in)-- + (1.22568in,3.62186in)--(1.25162in,3.62185in)-- + (1.27757in,3.62185in)--(1.30352in,3.62185in)-- + (1.32946in,3.62185in)--(1.35541in,3.62185in)-- + (1.38136in,3.62187in)--(1.40731in,3.62188in)-- + (1.43325in,3.62191in)--(1.4592in,3.62193in)-- + (1.48515in,3.62197in)--(1.5111in,3.622in)--(1.53704in,3.62203in)-- + (1.56299in,3.62206in)--(1.58894in,3.62208in)-- + (1.61489in,3.62209in)--(1.64083in,3.62209in)-- + (1.66678in,3.62207in)--(1.69273in,3.62204in)-- + (1.71867in,3.62198in)--(1.74462in,3.62191in)-- + (1.77057in,3.6218in)--(1.79652in,3.62167in)-- + (1.82246in,3.62151in)--(1.84841in,3.62133in)-- + (1.87436in,3.62112in)--(1.90031in,3.62088in)-- + (1.92625in,3.62061in)--(1.9522in,3.62031in)-- + (1.97815in,3.61998in)--(2.00409in,3.61962in)-- + (2.03004in,3.61923in)--(2.05599in,3.61881in)-- + (2.08194in,3.61836in)--(2.10788in,3.61788in)-- + (2.13383in,3.61738in)--(2.15978in,3.61687in)-- + (2.18573in,3.61633in)--(2.21167in,3.61579in)-- + (2.23762in,3.61525in)--(2.26357in,3.61471in)-- + (2.28952in,3.61417in)--(2.31546in,3.61364in)-- + (2.34141in,3.61312in)--(2.36736in,3.61262in)-- + (2.3933in,3.61215in)--(2.41925in,3.61169in)--(2.4452in,3.61124in)-- + (2.47115in,3.61079in)--(2.49709in,3.61033in)-- + (2.52304in,3.60987in)--(2.54899in,3.60938in)-- + (2.57494in,3.60887in)--(2.60088in,3.60833in)-- + (2.62683in,3.60775in)--(2.65278in,3.60712in)-- + (2.67873in,3.60644in)--(2.70467in,3.60569in)-- + (2.73062in,3.60488in)--(2.75657in,3.60399in)-- + (2.78251in,3.60301in)--(2.80846in,3.60194in)-- + (2.83441in,3.60076in)--(2.86036in,3.59947in)-- + (2.8863in,3.59805in)--(2.91225in,3.5965in)--(2.9382in,3.59481in)-- + (2.96415in,3.59297in)--(2.99009in,3.59097in)-- + (3.01604in,3.5888in)--(3.04199in,3.58649in)-- + (3.06793in,3.58405in)--(3.09388in,3.58151in)-- + (3.11983in,3.57889in)--(3.14578in,3.57621in)-- + (3.17172in,3.57348in)--(3.19767in,3.57074in)--(3.22362in,3.568in)-- + (3.24957in,3.56529in)--(3.27551in,3.56262in)-- + (3.30146in,3.56002in)--(3.32741in,3.5575in)-- + (3.35336in,3.55503in)--(3.3793in,3.55255in)-- + (3.40525in,3.55003in)--(3.4312in,3.54742in)-- + (3.45714in,3.54468in)--(3.48309in,3.54176in)-- + (3.50904in,3.53861in)--(3.53499in,3.5352in)-- + (3.56093in,3.53147in)--(3.58688in,3.52738in)-- + (3.61283in,3.5229in)--(3.63878in,3.51797in)-- + (3.66472in,3.51259in)--(3.69067in,3.50675in)-- + (3.71662in,3.50046in)--(3.74256in,3.4937in)-- + (3.76851in,3.48648in)--(3.79446in,3.47879in)-- + (3.82041in,3.47063in)--(3.84635in,3.46199in)-- + (3.8723in,3.45287in)--(3.89825in,3.44326in)--(3.9242in,3.43317in)-- + (3.95014in,3.42258in)--(3.97609in,3.41147in)-- + (4.00204in,3.39982in)--(4.02799in,3.3876in)-- + (4.05393in,3.37478in)--(4.07988in,3.36133in)-- + (4.10583in,3.34724in)--(4.13177in,3.33247in)-- + (4.15772in,3.31699in)--(4.18367in,3.30079in)-- + (4.20962in,3.28383in)--(4.23556in,3.26609in)-- + (4.26151in,3.24754in)--(4.28746in,3.22816in)-- + (4.31341in,3.20794in)--(4.33935in,3.18684in)-- + (4.3653in,3.16486in)--(4.39125in,3.14198in)--(4.4172in,3.11816in)-- + (4.44314in,3.09341in)--(4.46909in,3.06768in)-- + (4.49504in,3.04098in)--(4.52098in,3.01326in)-- + (4.54693in,2.98453in)--(4.57288in,2.95476in)-- + (4.59883in,2.92396in)--(4.62477in,2.89216in)-- + (4.65072in,2.85937in)--(4.67667in,2.82561in)-- + (4.70262in,2.7909in)--(4.72856in,2.75526in)-- + (4.75451in,2.71871in)--(4.78046in,2.68126in)-- + (4.8064in,2.64294in)--(4.83235in,2.60376in)--(4.8583in,2.56374in)-- + (4.88425in,2.52289in)--(4.91019in,2.48117in)-- + (4.93614in,2.43855in)--(4.96209in,2.39497in)-- + (4.98804in,2.3504in)--(5.01398in,2.30479in)-- + (5.03993in,2.25809in)--(5.06588in,2.21027in)-- + (5.09183in,2.16127in)--(5.11777in,2.11106in)-- + (5.14372in,2.05959in)--(5.16967in,2.00681in)-- + (5.18264in,1.97994in)--(5.19561in,1.95285in)-- + (5.20859in,1.92568in)--(5.22156in,1.89854in)-- + (5.23454in,1.87155in)--(5.24751in,1.84485in)-- + (5.26048in,1.81854in)--(5.27346in,1.79277in)-- + (5.28643in,1.76764in)--(5.2994in,1.74329in)-- + (5.31238in,1.71984in)--(5.32535in,1.6974in)-- + (5.33832in,1.67607in)--(5.3513in,1.65578in)-- + (5.36427in,1.63642in)--(5.37725in,1.6179in)--(5.39022in,1.6001in)-- + (5.40319in,1.58292in)--(5.41617in,1.56625in)--(5.42914in,1.55in)-- + (5.44211in,1.53405in)--(5.45509in,1.51831in)-- + (5.46806in,1.50266in)--(5.48103in,1.487in)--(5.50698in,1.45542in)-- + (5.53293in,1.42352in)--(5.55888in,1.39143in)-- + (5.58482in,1.35928in)--(5.61077in,1.32721in)-- + (5.63672in,1.29535in)--(5.66267in,1.26381in)-- + (5.68861in,1.23275in)--(5.71456in,1.20227in)-- + (5.74051in,1.17252in)--(5.76646in,1.14363in)-- + (5.7924in,1.11572in)--(5.81835in,1.08889in)--(5.8443in,1.06314in)-- + (5.87024in,1.03843in)--(5.89619in,1.0147in)-- + (5.92214in,0.991934in)--(5.94809in,0.970075in)-- + (5.97403in,0.949089in)--(5.99998in,0.928934in)-- + (6.02593in,0.90957in)--(6.05188in,0.890956in)-- + (6.07782in,0.873052in)--(6.10377in,0.855817in)-- + (6.12972in,0.839216in)--(6.15567in,0.823233in)-- + (6.18161in,0.807856in)--(6.20756in,0.793075in)-- + (6.23351in,0.778879in)--(6.25945in,0.765255in)-- + (6.2854in,0.752194in)--(6.31135in,0.739683in)-- + (6.3373in,0.727712in)--(6.36324in,0.71627in)-- + (6.38919in,0.705345in)--(6.41514in,0.694926in)-- + (6.44109in,0.684998in)--(6.46703in,0.675533in)-- + (6.49298in,0.666497in)--(6.51893in,0.657856in)-- + (6.54487in,0.649578in)--(6.57082in,0.64163in)-- + (6.59677in,0.633978in)--(6.62272in,0.62659in)-- + (6.64866in,0.619432in)--(6.67461in,0.612471in)-- + (6.70056in,0.605675in)--(6.72651in,0.59901in)-- + (6.75245in,0.592451in)--(6.7784in,0.586004in)-- + (6.80435in,0.579685in)--(6.8303in,0.573507in)-- + (6.85624in,0.567486in)--(6.88219in,0.561636in)-- + (6.90814in,0.555971in)--(6.93408in,0.550506in)-- + (6.96003in,0.545256in)--(6.98598in,0.540236in)-- + (7.01193in,0.535459in)--(7.03787in,0.530941in)-- + (7.06382in,0.526692in)--(7.08977in,0.522713in)-- + (7.11572in,0.518999in)--(7.14166in,0.515548in)-- + (7.16761in,0.512354in)--(7.19356in,0.509414in)-- + (7.2195in,0.506725in)--(7.24545in,0.504283in)-- + (7.2714in,0.502083in)--(7.29735in,0.500123in); +\draw (7.29735in,0.500123in)--(7.2992in,0.5in); +\draw (4.8583in,2.56374in)--(4.88425in,2.51875in)-- + (4.91019in,2.47365in)--(4.93614in,2.42835in)-- + (4.96209in,2.38274in)--(4.98804in,2.33672in)-- + (5.01398in,2.29019in)--(5.03993in,2.24304in)-- + (5.06588in,2.19517in)--(5.09183in,2.14647in)-- + (5.11777in,2.09685in)--(5.14372in,2.04621in)-- + (5.16967in,1.99443in)--(5.18264in,1.96811in)-- + (5.19561in,1.94159in)--(5.20859in,1.915in)--(5.22156in,1.88844in)-- + (5.23454in,1.86204in)--(5.24751in,1.8359in)-- + (5.26048in,1.81016in)--(5.27346in,1.78491in)-- + (5.28643in,1.76027in)--(5.2994in,1.73637in)-- + (5.31238in,1.71331in)--(5.32535in,1.69121in)-- + (5.33832in,1.67016in)--(5.3513in,1.65006in)-- + (5.36427in,1.63083in)--(5.37725in,1.61233in)-- + (5.39022in,1.59447in)--(5.40319in,1.57712in)-- + (5.41617in,1.56019in)--(5.42914in,1.54355in)-- + (5.44211in,1.52709in)--(5.45509in,1.51071in)-- + (5.46806in,1.49429in)--(5.48103in,1.47772in)-- + (5.50698in,1.44388in)--(5.53293in,1.4092in)--(5.55888in,1.3739in)-- + (5.58482in,1.33819in)--(5.61077in,1.30228in)-- + (5.63672in,1.26639in)--(5.66267in,1.23072in)-- + (5.68861in,1.19548in)--(5.71456in,1.16089in)-- + (5.74051in,1.12716in)--(5.76646in,1.0945in)--(5.7924in,1.06312in)-- + (5.81835in,1.03318in)--(5.8443in,1.00468in)-- + (5.87024in,0.977536in)--(5.89619in,0.951703in)-- + (5.92214in,0.927114in)--(5.94809in,0.903708in)-- + (5.97403in,0.881423in)--(5.99998in,0.860197in)-- + (6.02593in,0.839969in)--(6.05188in,0.820677in)-- + (6.07782in,0.802259in)--(6.10377in,0.784653in)-- + (6.12972in,0.767806in)--(6.15567in,0.751691in)-- + (6.18161in,0.736291in)--(6.20756in,0.721587in)-- + (6.23351in,0.707562in)--(6.25945in,0.694196in)-- + (6.2854in,0.681473in)--(6.31135in,0.669374in)-- + (6.3373in,0.657881in)--(6.36324in,0.646976in)-- + (6.38919in,0.63664in)--(6.41514in,0.626856in)-- + (6.44109in,0.617604in)--(6.46703in,0.608859in)-- + (6.49298in,0.600593in)--(6.51893in,0.592779in)-- + (6.54487in,0.585391in)--(6.57082in,0.578401in)-- + (6.59677in,0.571783in)--(6.62272in,0.565509in)-- + (6.64866in,0.559552in)--(6.67461in,0.553886in)-- + (6.70056in,0.548483in)--(6.72651in,0.543317in)-- + (6.75245in,0.538365in)--(6.7784in,0.533631in)-- + (6.80435in,0.529123in)--(6.8303in,0.524847in)-- + (6.85624in,0.520813in)--(6.88219in,0.517028in)-- + (6.90814in,0.5135in)--(6.93408in,0.510238in)-- + (6.96003in,0.507249in)--(6.98598in,0.504541in)-- + (7.01193in,0.502122in)--(7.03787in,0.5in); +\draw (4.8583in,2.56374in)--(4.88425in,2.51794in)-- + (4.91019in,2.47207in)--(4.93614in,2.42606in)-- + (4.96209in,2.37984in)--(4.98804in,2.33335in)-- + (5.01398in,2.28652in)--(5.03993in,2.23927in)-- + (5.06588in,2.19154in)--(5.09183in,2.14326in)-- + (5.11777in,2.09436in)--(5.14372in,2.04478in)-- + (5.16967in,1.99443in)--(5.18264in,1.96896in)-- + (5.19561in,1.94333in)--(5.20859in,1.91759in)-- + (5.22156in,1.89177in)--(5.23454in,1.86593in)-- + (5.24751in,1.84011in)--(5.26048in,1.81435in)-- + (5.27346in,1.7887in)--(5.28643in,1.76321in)--(5.2994in,1.73792in)-- + (5.31238in,1.71287in)--(5.32535in,1.68812in)-- + (5.33832in,1.66369in)--(5.3513in,1.63958in)-- + (5.36427in,1.61578in)--(5.37725in,1.59227in)-- + (5.39022in,1.56903in)--(5.40319in,1.54606in)-- + (5.41617in,1.52332in)--(5.42914in,1.50081in)-- + (5.44211in,1.47852in)--(5.45509in,1.45642in)-- + (5.46806in,1.4345in)--(5.48103in,1.41275in)-- + (5.50698in,1.36971in)--(5.53293in,1.32732in)-- + (5.55888in,1.28565in)--(5.58482in,1.24474in)-- + (5.61077in,1.20465in)--(5.63672in,1.16544in)-- + (5.66267in,1.12717in)--(5.68861in,1.08988in)-- + (5.71456in,1.05364in)--(5.74051in,1.0185in)-- + (5.76646in,0.984509in)--(5.7924in,0.951733in)-- + (5.81835in,0.920215in)--(5.8443in,0.889966in)-- + (5.87024in,0.860988in)--(5.89619in,0.833284in)-- + (5.92214in,0.806857in)--(5.94809in,0.781708in)-- + (5.97403in,0.75784in)--(5.99998in,0.735255in)-- + (6.02593in,0.713956in)--(6.05188in,0.693945in)-- + (6.07782in,0.675225in)--(6.10377in,0.657797in)-- + (6.12972in,0.641653in)--(6.15567in,0.62674in)-- + (6.18161in,0.612991in)--(6.20756in,0.600343in)-- + (6.23351in,0.588729in)--(6.25945in,0.578085in)-- + (6.2854in,0.568346in)--(6.31135in,0.559446in)-- + (6.3373in,0.551321in)--(6.36324in,0.543905in)-- + (6.38919in,0.537133in)--(6.41514in,0.530941in)-- + (6.44109in,0.525269in)--(6.46703in,0.520091in)-- + (6.49298in,0.515384in)--(6.51893in,0.511127in)-- + (6.54487in,0.507299in)--(6.57082in,0.503878in)-- + (6.59677in,0.500844in)--(6.60497in,0.5in); +\draw (4.8583in,2.56374in)--(4.88425in,2.51747in)-- + (4.91019in,2.47116in)--(4.93614in,2.42475in)-- + (4.96209in,2.37819in)--(4.98804in,2.33143in)-- + (5.01398in,2.28442in)--(5.03993in,2.23712in)-- + (5.06588in,2.18947in)--(5.09183in,2.14143in)-- + (5.11777in,2.09294in)--(5.14372in,2.04396in)-- + (5.16967in,1.99443in)--(5.18264in,1.96943in)-- + (5.19561in,1.94418in)--(5.20859in,1.91856in)-- + (5.22156in,1.89248in)--(5.23454in,1.86581in)-- + (5.24751in,1.83847in)--(5.26048in,1.81034in)-- + (5.27346in,1.78131in)--(5.28643in,1.75127in)-- + (5.2994in,1.72013in)--(5.31238in,1.68777in)-- + (5.32535in,1.65408in)--(5.33832in,1.61902in)-- + (5.3513in,1.58272in)--(5.36427in,1.5454in)--(5.37725in,1.50724in)-- + (5.39022in,1.46846in)--(5.40319in,1.42924in)-- + (5.41617in,1.3898in)--(5.42914in,1.35033in)-- + (5.44211in,1.31103in)--(5.45509in,1.2721in)-- + (5.46806in,1.23375in)--(5.48103in,1.19616in)-- + (5.50698in,1.12386in)--(5.53293in,1.05548in)-- + (5.55888in,0.99107in)--(5.58482in,0.930663in)-- + (5.61077in,0.874295in)--(5.63672in,0.822003in)-- + (5.66267in,0.773825in)--(5.68861in,0.729796in)-- + (5.71456in,0.689954in)--(5.74051in,0.654336in)-- + (5.76646in,0.622977in)--(5.7924in,0.595916in)-- + (5.81835in,0.573119in)--(5.8443in,0.554276in)-- + (5.87024in,0.539009in)--(5.89619in,0.526939in)-- + (5.92214in,0.517687in)--(5.94809in,0.510874in)-- + (5.97403in,0.506122in)--(5.99998in,0.50305in)-- + (6.02593in,0.501281in)--(6.05188in,0.500436in)-- + (6.07782in,0.500135in)--(6.10377in,0.5in)--(6.12972in,0.500141in)--(6.15567in,0.500069in)--(6.16196in,0.5in); +\pgfsetlinewidth{0.4pt} +\draw (6.4375in,1.83127in)--(6.75in,1.83127in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](6.4375in,1.83127in)--(6.75in,1.83127in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (6.4375in,1.83127in)--(6.75in,1.83127in); +\draw (6.4375in,1.83127in)--(5.83893in,1.08305in); +\pgfsetfillcolor{rgb_000000} +\draw [fill](5.91024in,1.17219in)--(5.89403in,1.18516in)-- + (5.83893in,1.08305in)--(5.92645in,1.15923in)--(5.91024in,1.17219in)--cycle; +\filldraw[color=rgb_ffffff] (6.75in,1.83127in) circle(0.083022in); +\draw[color=rgb_000000] (6.75in,1.83127in) circle(0.083022in); +\pgftext[at={\pgfpoint{6.75in}{1.83127in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$1$}}} +\draw (6.4375in,1.65372in)--(6.75in,1.65372in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](6.4375in,1.65372in)--(6.75in,1.65372in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (6.4375in,1.65372in)--(6.75in,1.65372in); +\draw (6.4375in,1.65372in)--(5.89133in,0.971005in); +\draw [fill](5.96264in,1.06015in)--(5.94643in,1.07311in)-- + (5.89133in,0.971005in)--(5.97885in,1.04718in)--(5.96264in,1.06015in)--cycle; +\filldraw[color=rgb_ffffff] (6.75in,1.65372in) circle(0.083022in); +\draw[color=rgb_000000] (6.75in,1.65372in) circle(0.083022in); +\pgftext[at={\pgfpoint{6.75in}{1.65372in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$2$}}} +\draw (6.4375in,1.47327in)--(6.75in,1.47327in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](6.4375in,1.47327in)--(6.75in,1.47327in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (6.4375in,1.47327in)--(6.75in,1.47327in); +\draw (6.4375in,1.47327in)--(5.91907in,0.825234in); +\draw [fill](5.99038in,0.914374in)--(5.97418in,0.92734in)-- + (5.91907in,0.825234in)--(6.00659in,0.901408in)--(5.99038in,0.914374in)--cycle; +\filldraw[color=rgb_ffffff] (6.75in,1.47327in) circle(0.083022in); +\draw[color=rgb_000000] (6.75in,1.47327in) circle(0.083022in); +\pgftext[at={\pgfpoint{6.75in}{1.47327in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$3$}}} +\draw (6.4375in,1.29899in)--(6.75in,1.29899in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](6.4375in,1.29899in)--(6.75in,1.29899in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (6.4375in,1.29899in)--(6.75in,1.29899in); +\draw (6.4375in,1.29899in)--(5.85126in,0.566189in); +\draw [fill](5.92257in,0.655329in)--(5.90636in,0.668295in)-- + (5.85126in,0.566189in)--(5.93878in,0.642364in)--(5.92257in,0.655329in)--cycle; +\filldraw[color=rgb_ffffff] (6.75in,1.29899in) circle(0.083022in); +\draw[color=rgb_000000] (6.75in,1.29899in) circle(0.083022in); +\pgftext[at={\pgfpoint{6.75in}{1.29899in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$4$}}} +\pgftext[at={\pgfpoint{3in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rho$}}} +\pgftext[at={\pgfpoint{4.5625in}{0.250934in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}\textsc{Fig.~2} -- Central form factors, tail variation.}}} +\pgftext[at={\pgfpoint{0.792912in}{2.375in}}] {\makebox(0,0)[r]{\rotatebox{90}{\hbox{\color{rgb_000000}\Code{FFCR} and/or \Code{FFCI}}}}} +\pgftext[at={\pgfpoint{1.78286in}{5.54286in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{R0 = 1.2},\quad \Code{A = 0.52},\quad \Code{HA = 0},\quad \Code{FN1A = 1},\quad $\rho_{m_A} = \bar{\rho}_N = 3.24$}}} +\pgftext[at={\pgfpoint{3.77143in}{5.71429in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}\framebox{p - Cu\quad $9.75$~\MeV}}}} +\filldraw[color=rgb_ffffff] (2.43429in,5.30286in) circle(0.083022in); +\draw[color=rgb_000000] (2.43429in,5.30286in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.43429in}{5.30286in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$1$}}} +\pgftext[at={\pgfpoint{2.60033in}{5.30286in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN2A = 0.01}}}} +\filldraw[color=rgb_ffffff] (2.43429in,5.13143in) circle(0.083022in); +\draw[color=rgb_000000] (2.43429in,5.13143in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.43429in}{5.13143in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$2$}}} +\pgftext[at={\pgfpoint{2.60033in}{5.13143in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN2A = 1}\qquad(Standard form factor)}}} +\filldraw[color=rgb_ffffff] (2.43429in,4.96in) circle(0.083022in); +\draw[color=rgb_000000] (2.43429in,4.96in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.43429in}{4.96in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$3$}}} +\pgftext[at={\pgfpoint{2.60033in}{4.96in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN2A = 3}}}} +\filldraw[color=rgb_ffffff] (2.43429in,4.78857in) circle(0.083022in); +\draw[color=rgb_000000] (2.43429in,4.78857in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.43429in}{4.78857in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$4$}}} +\pgftext[at={\pgfpoint{2.60033in}{4.78857in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN2A = 10}}}} +\end{tikzpicture} diff --git a/29784-t/images/027a.eepic b/29784-t/images/027a.eepic new file mode 100644 index 0000000..94b03f4 --- /dev/null +++ b/29784-t/images/027a.eepic @@ -0,0 +1,557 @@ +%% Generated from 027a.xp on Sun May 17 12:43:49 EDT 2009 by +%% ePiX-1.2.6 +%% +%% Cartesian bounding box: [0,8] x [0,6] +%% Actual size: 8 x 6in +%% Figure offset: left by 0in, down by 0in +%% +%% usepackages tikz +%% +\xdefinecolor{rgb_000000}{rgb}{0,0,0}% +\xdefinecolor{rgb_ffffff}{rgb}{1,1,1}% +\begin{tikzpicture} +\pgfsetlinewidth{0.4pt} +\useasboundingbox (0in,0in) rectangle (8in,6in); +\draw (1.25in,0.5in)--(8in,0.5in)--(8in,4.375in)-- + (1.25in,4.375in)--(1.25in,0.5in)--cycle; +\draw (2.6in,0.5in)--(2.6in,4.375in); +\draw (3.95in,0.5in)--(3.95in,4.375in); +\draw (5.3in,0.5in)--(5.3in,4.375in); +\draw (6.65in,0.5in)--(6.65in,4.375in); +\draw (1.25in,1.79167in)--(8in,1.79167in); +\draw (1.25in,3.08333in)--(8in,3.08333in); +\pgfsetlinewidth{0.8pt} +\draw (1.25in,0.5in)--(8in,0.5in)--(8in,4.375in)-- + (1.25in,4.375in)--(1.25in,0.5in)--cycle; +\draw (1.25in,0.5in)--(8in,0.5in); +\pgftext[at={\pgfpoint{1.25in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.6in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.95in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.3in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.65in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{8in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.52in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.79in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.06in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.33in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.6in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.87in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.14in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.41in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.68in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.95in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.22in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.49in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.76in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.03in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.3in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.57in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.84in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.11in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.38in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.65in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.92in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.19in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.46in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.73in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{8in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$0$}}} +\pgftext[at={\pgfpoint{2.6in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$5$}}} +\pgftext[at={\pgfpoint{3.95in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$10$}}} +\pgftext[at={\pgfpoint{5.3in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$15$}}} +\pgftext[at={\pgfpoint{6.65in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$20$}}} +\pgftext[at={\pgfpoint{8in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$25$}}} +\draw (1.25in,0.5in)--(1.25in,4.375in); +\pgftext[at={\pgfpoint{1.25in}{0.5in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{1.79167in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{3.08333in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{4.375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{0.5in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{0.758333in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{1.01667in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{1.275in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{1.53333in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{1.79167in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{2.05in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{2.30833in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{2.56667in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{2.825in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{3.08333in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{3.34167in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{3.6in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{3.85833in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{4.11667in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{4.375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.19465in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0$}}} +\pgftext[at={\pgfpoint{1.19465in}{1.79167in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$1$}}} +\pgftext[at={\pgfpoint{1.19465in}{3.08333in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$2$}}} +\pgftext[at={\pgfpoint{1.19465in}{4.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$3$}}} +\draw (1.25in,4.375in)--(8in,4.375in); +\pgftext[at={\pgfpoint{1.25in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.6in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.95in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.3in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.65in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{8in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.25in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.52in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.79in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.06in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.33in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.6in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.87in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.14in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.41in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.68in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.95in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.22in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.49in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.76in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.03in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.3in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.57in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.84in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.11in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.38in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.65in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.92in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.19in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.46in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.73in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{8in}{4.375in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\draw (8in,0.5in)--(8in,4.375in); +\pgftext[at={\pgfpoint{8in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.79167in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.08333in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{4.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{0.758333in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.01667in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.275in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.53333in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.79167in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.05in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.30833in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.56667in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.825in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.08333in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.34167in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.6in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.85833in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{4.11667in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{4.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\draw (1.25in,1.79507in)--(1.25218in,1.79507in)-- + (1.25437in,1.79507in)--(1.25655in,1.79507in)-- + (1.25874in,1.79507in)--(1.26092in,1.79507in)-- + (1.2631in,1.79507in)--(1.26529in,1.79507in)-- + (1.26747in,1.79507in)--(1.26966in,1.79507in)-- + (1.27184in,1.79507in)--(1.27402in,1.79507in)-- + (1.27621in,1.79507in)--(1.30047in,1.79507in)-- + (1.32474in,1.79507in)--(1.34901in,1.79507in)-- + (1.37327in,1.79507in)--(1.39754in,1.79507in)-- + (1.42181in,1.79507in)--(1.44607in,1.79507in)-- + (1.47034in,1.79507in)--(1.49461in,1.79507in)-- + (1.51887in,1.79507in)--(1.54314in,1.79507in)-- + (1.56741in,1.79507in)--(1.58925in,1.79507in)-- + (1.61109in,1.79507in)--(1.63293in,1.79507in)-- + (1.65477in,1.79506in)--(1.67661in,1.79506in)-- + (1.69845in,1.79506in)--(1.72029in,1.79506in)-- + (1.74213in,1.79506in)--(1.76397in,1.79506in)-- + (1.78581in,1.79506in)--(1.80765in,1.79507in)-- + (1.82949in,1.79507in)--(1.83191in,1.79507in)-- + (1.83434in,1.79507in)--(1.83677in,1.79507in)-- + (1.83919in,1.79507in)--(1.84162in,1.79507in)-- + (1.84405in,1.79507in)--(1.84647in,1.79507in)-- + (1.8489in,1.79507in)--(1.85133in,1.79507in)-- + (1.85375in,1.79507in)--(1.85618in,1.79507in)-- + (1.85861in,1.79507in)--(1.88287in,1.79506in)-- + (1.90714in,1.79506in)--(1.93141in,1.79505in)-- + (1.95567in,1.79504in)--(1.97994in,1.79503in)-- + (2.00421in,1.79502in)--(2.02847in,1.79501in)-- + (2.05274in,1.79501in)--(2.07701in,1.79501in)-- + (2.10127in,1.79502in)--(2.12554in,1.79504in)-- + (2.14981in,1.79507in)--(2.17407in,1.7951in)-- + (2.19834in,1.79514in)--(2.22261in,1.79518in)-- + (2.24687in,1.79522in)--(2.27114in,1.79526in)-- + (2.29541in,1.79529in)--(2.31967in,1.7953in)--(2.34394in,1.7953in)-- + (2.36821in,1.79528in)--(2.39247in,1.79524in)-- + (2.41674in,1.79517in)--(2.44101in,1.79507in)-- + (2.46527in,1.79493in)--(2.48954in,1.79477in)-- + (2.51381in,1.79458in)--(2.53807in,1.79437in)-- + (2.56234in,1.79415in)--(2.5866in,1.79391in)-- + (2.61087in,1.79367in)--(2.63514in,1.79343in)-- + (2.6594in,1.79318in)--(2.68367in,1.79295in)-- + (2.70794in,1.79272in)--(2.7322in,1.79252in)-- + (2.75647in,1.79233in)--(2.78074in,1.79215in)--(2.805in,1.79199in)-- + (2.82927in,1.79182in)--(2.85354in,1.79166in)-- + (2.8778in,1.79149in)--(2.90207in,1.7913in)--(2.92634in,1.7911in)-- + (2.9506in,1.79087in)--(2.97487in,1.7906in)--(2.99914in,1.79031in)-- + (3.0234in,1.78997in)--(3.04767in,1.78958in)-- + (3.07194in,1.78916in)--(3.0962in,1.78871in)-- + (3.12047in,1.78823in)--(3.14474in,1.78775in)--(3.169in,1.78727in)-- + (3.19327in,1.78679in)--(3.21754in,1.78633in)--(3.2418in,1.7859in)-- + (3.26607in,1.78551in)--(3.29034in,1.78516in)-- + (3.3146in,1.78487in)--(3.33887in,1.78463in)-- + (3.36314in,1.78444in)--(3.3874in,1.78427in)-- + (3.41167in,1.78409in)--(3.43594in,1.78389in)-- + (3.4602in,1.78363in)--(3.48447in,1.78331in)-- + (3.50874in,1.78288in)--(3.533in,1.78234in)--(3.55727in,1.78166in)-- + (3.58154in,1.78081in)--(3.6058in,1.77977in)-- + (3.63007in,1.77853in)--(3.65434in,1.7771in)--(3.6786in,1.7755in)-- + (3.70287in,1.77375in)--(3.72714in,1.77187in)-- + (3.7514in,1.76988in)--(3.77567in,1.76781in)-- + (3.79994in,1.76567in)--(3.8242in,1.76348in)-- + (3.84847in,1.76126in)--(3.87274in,1.75904in)--(3.897in,1.75683in)-- + (3.92127in,1.75464in)--(3.94553in,1.75248in)-- + (3.9698in,1.75033in)--(3.99407in,1.74816in)-- + (4.01833in,1.74597in)--(4.0426in,1.74375in)-- + (4.06687in,1.74147in)--(4.09113in,1.73912in)--(4.1154in,1.7367in)-- + (4.13967in,1.73417in)--(4.16393in,1.73154in)-- + (4.1882in,1.72878in)--(4.21247in,1.72589in)-- + (4.23673in,1.72286in)--(4.261in,1.71969in)--(4.28527in,1.71639in)-- + (4.30953in,1.71296in)--(4.3338in,1.7094in)--(4.35807in,1.70571in)-- + (4.38233in,1.7019in)--(4.4066in,1.69797in)--(4.43087in,1.69391in)-- + (4.45513in,1.68974in)--(4.4794in,1.68544in)-- + (4.50367in,1.68103in)--(4.52793in,1.67649in)-- + (4.5522in,1.67179in)--(4.57647in,1.66692in)-- + (4.60073in,1.66184in)--(4.625in,1.65656in)--(4.64927in,1.65103in)-- + (4.67353in,1.64525in)--(4.6978in,1.6392in)--(4.72207in,1.63284in)-- + (4.74633in,1.62617in)--(4.7706in,1.61916in)--(4.79487in,1.6118in)-- + (4.81913in,1.60406in)--(4.8434in,1.59595in)-- + (4.86767in,1.58746in)--(4.89193in,1.57856in)-- + (4.9162in,1.56927in)--(4.94047in,1.55955in)-- + (4.96473in,1.54942in)--(4.989in,1.53885in)--(5.01327in,1.52783in)-- + (5.03753in,1.51637in)--(5.0618in,1.50444in)-- + (5.08607in,1.49205in)--(5.11033in,1.47923in)-- + (5.1346in,1.46602in)--(5.15887in,1.45245in)-- + (5.18313in,1.43858in)--(5.2074in,1.42444in)-- + (5.23167in,1.41007in)--(5.25593in,1.39551in)--(5.2802in,1.3808in)-- + (5.30447in,1.36598in)--(5.32873in,1.3511in)--(5.353in,1.33618in)-- + (5.37726in,1.32128in)--(5.40153in,1.30637in)-- + (5.4258in,1.29146in)--(5.45006in,1.27653in)-- + (5.47433in,1.26157in)--(5.4986in,1.24658in)-- + (5.52286in,1.23153in)--(5.54713in,1.21642in)-- + (5.5714in,1.20124in)--(5.59566in,1.18598in)-- + (5.61993in,1.17063in)--(5.6442in,1.15518in)-- + (5.66846in,1.13962in)--(5.69273in,1.12399in)--(5.717in,1.10832in)-- + (5.74126in,1.09265in)--(5.76553in,1.07701in)-- + (5.7898in,1.06145in)--(5.81406in,1.04599in)-- + (5.83833in,1.03068in)--(5.8626in,1.01555in)-- + (5.88686in,1.00064in)--(5.91113in,0.985988in)-- + (5.9354in,0.971628in)--(5.95966in,0.95759in)-- + (5.98393in,0.94387in)--(6.0082in,0.930453in)-- + (6.03246in,0.917326in)--(6.05673in,0.904478in)-- + (6.081in,0.891894in)--(6.10526in,0.879562in)-- + (6.12953in,0.867468in)--(6.1538in,0.8556in)-- + (6.17806in,0.843944in)--(6.20233in,0.832488in)-- + (6.2266in,0.821217in)--(6.25086in,0.810123in)-- + (6.27513in,0.799209in)--(6.2994in,0.788481in)-- + (6.32366in,0.777946in)--(6.34793in,0.76761in)-- + (6.3722in,0.75748in)--(6.39646in,0.747563in)-- + (6.42073in,0.737865in)--(6.445in,0.728393in)-- + (6.46926in,0.719154in)--(6.49353in,0.710153in)-- + (6.5178in,0.701398in)--(6.54206in,0.692896in)-- + (6.56633in,0.68466in)--(6.5906in,0.676702in)-- + (6.61486in,0.669036in)--(6.63913in,0.661676in)-- + (6.6634in,0.654634in)--(6.68766in,0.647924in)-- + (6.71193in,0.641559in)--(6.73619in,0.635553in)--(6.76046in,0.629919in); +\draw (6.76046in,0.629919in)--(6.78473in,0.62467in)-- + (6.80899in,0.619819in)--(6.83326in,0.615372in)-- + (6.85753in,0.611304in)--(6.88179in,0.607581in)-- + (6.90606in,0.60417in)--(6.93033in,0.601038in)-- + (6.95459in,0.598151in)--(6.97886in,0.595477in)-- + (7.00313in,0.592982in)--(7.02739in,0.590633in)-- + (7.05166in,0.588396in)--(7.07593in,0.586239in)-- + (7.10019in,0.584128in)--(7.12446in,0.582037in)-- + (7.14873in,0.579963in)--(7.17299in,0.577911in)-- + (7.19726in,0.575886in)--(7.22153in,0.573892in)-- + (7.24579in,0.571933in)--(7.27006in,0.570015in)-- + (7.29433in,0.568141in)--(7.31859in,0.566317in)-- + (7.34286in,0.564546in)--(7.36713in,0.562834in)-- + (7.39139in,0.561184in)--(7.41566in,0.559601in)-- + (7.43993in,0.558082in)--(7.46419in,0.556626in)-- + (7.48846in,0.555229in)--(7.51273in,0.553889in)-- + (7.53699in,0.552604in)--(7.56126in,0.55137in)-- + (7.58553in,0.550185in)--(7.60979in,0.549048in)-- + (7.63406in,0.547954in)--(7.65833in,0.546902in)-- + (7.68259in,0.545888in)--(7.70686in,0.544839in)-- + (7.73113in,0.543826in)--(7.75539in,0.542849in)-- + (7.77966in,0.541909in)--(7.80393in,0.541004in)-- + (7.82819in,0.540137in)--(7.85246in,0.539305in)-- + (7.87673in,0.53851in)--(7.90099in,0.53775in)-- + (7.92526in,0.537028in)--(7.94953in,0.536341in)--(7.97379in,0.535691in); +\draw (1.25in,3.08503in)--(1.25218in,3.08504in)-- + (1.25437in,3.08504in)--(1.25655in,3.08505in)-- + (1.25874in,3.08505in)--(1.26092in,3.08506in)-- + (1.2631in,3.08506in)--(1.26529in,3.08506in)-- + (1.26747in,3.08506in)--(1.26966in,3.08506in)-- + (1.27184in,3.08505in)--(1.27402in,3.08504in)-- + (1.27621in,3.08503in)--(1.30047in,3.08471in)-- + (1.32474in,3.08404in)--(1.34901in,3.08303in)-- + (1.37327in,3.08171in)--(1.39754in,3.08009in)-- + (1.42181in,3.0782in)--(1.44607in,3.07604in)-- + (1.47034in,3.07365in)--(1.49461in,3.07104in)-- + (1.51887in,3.06823in)--(1.54314in,3.06524in)-- + (1.56741in,3.06209in)--(1.59167in,3.05879in)-- + (1.61594in,3.05536in)--(1.64021in,3.05178in)-- + (1.66447in,3.04807in)--(1.68874in,3.04423in)-- + (1.71301in,3.04025in)--(1.73727in,3.03614in)-- + (1.76154in,3.0319in)--(1.78581in,3.02752in)-- + (1.81007in,3.02303in)--(1.83434in,3.0184in)-- + (1.85861in,3.01365in)--(1.88287in,3.00878in)-- + (1.90714in,3.00377in)--(1.93141in,2.99863in)-- + (1.95567in,2.99334in)--(1.97994in,2.9879in)-- + (2.00421in,2.98229in)--(2.02847in,2.97652in)-- + (2.05274in,2.97056in)--(2.07701in,2.96443in)-- + (2.10127in,2.95809in)--(2.12554in,2.95156in)-- + (2.14981in,2.94482in)--(2.17407in,2.93786in)-- + (2.19834in,2.9307in)--(2.22261in,2.92335in)-- + (2.24687in,2.91582in)--(2.27114in,2.90812in)-- + (2.29541in,2.90026in)--(2.31967in,2.89226in)-- + (2.34394in,2.88412in)--(2.36821in,2.87586in)-- + (2.39247in,2.8675in)--(2.41674in,2.85904in)-- + (2.44101in,2.85049in)--(2.46527in,2.84187in)-- + (2.48954in,2.83317in)--(2.51381in,2.82439in)-- + (2.53807in,2.81553in)--(2.56234in,2.80657in)-- + (2.5866in,2.79751in)--(2.61087in,2.78835in)-- + (2.63514in,2.77909in)--(2.6594in,2.76971in)-- + (2.68367in,2.76022in)--(2.70794in,2.75061in)-- + (2.7322in,2.74087in)--(2.75647in,2.73101in)-- + (2.78074in,2.72102in)--(2.805in,2.71091in)--(2.82927in,2.7007in)-- + (2.85354in,2.69038in)--(2.8778in,2.67997in)-- + (2.90207in,2.66947in)--(2.92634in,2.6589in)--(2.9506in,2.64825in)-- + (2.97487in,2.63754in)--(2.99914in,2.62677in)-- + (3.0234in,2.61595in)--(3.04767in,2.60509in)-- + (3.07194in,2.59419in)--(3.0962in,2.58325in)-- + (3.12047in,2.57227in)--(3.14474in,2.56126in)--(3.169in,2.55022in)-- + (3.19327in,2.53914in)--(3.21754in,2.52804in)-- + (3.2418in,2.51691in)--(3.26607in,2.50576in)-- + (3.29034in,2.49458in)--(3.3146in,2.48339in)-- + (3.33887in,2.47217in)--(3.36314in,2.46093in)-- + (3.3874in,2.44966in)--(3.41167in,2.43836in)--(3.43594in,2.427in)-- + (3.4602in,2.4156in)--(3.48447in,2.40414in)--(3.50874in,2.39261in)-- + (3.533in,2.38101in)--(3.55727in,2.36934in)--(3.58154in,2.35758in)-- + (3.6058in,2.34572in)--(3.63007in,2.33378in)-- + (3.65434in,2.32174in)--(3.6786in,2.30962in)-- + (3.70287in,2.29742in)--(3.72714in,2.28515in)-- + (3.7514in,2.27281in)--(3.77567in,2.26042in)-- + (3.79994in,2.24798in)--(3.8242in,2.2355in)--(3.84847in,2.22298in)-- + (3.87274in,2.21043in)--(3.897in,2.19786in)--(3.92127in,2.18527in)-- + (3.94553in,2.17267in)--(3.9698in,2.16004in)-- + (3.99407in,2.14739in)--(4.01833in,2.1347in)--(4.0426in,2.12199in)-- + (4.06687in,2.10925in)--(4.09113in,2.09646in)-- + (4.1154in,2.08364in)--(4.13967in,2.07077in)-- + (4.16393in,2.05786in)--(4.1882in,2.0449in)--(4.21247in,2.03189in)-- + (4.23673in,2.01883in)--(4.261in,2.00573in)--(4.28527in,1.99259in)-- + (4.30953in,1.97943in)--(4.3338in,1.96623in)-- + (4.35807in,1.95302in)--(4.38233in,1.93979in)-- + (4.4066in,1.92656in)--(4.43087in,1.91331in)-- + (4.45513in,1.90007in)--(4.4794in,1.88684in)-- + (4.50367in,1.87362in)--(4.52793in,1.86039in)-- + (4.5522in,1.84713in)--(4.57647in,1.83383in)-- + (4.60073in,1.82047in)--(4.625in,1.80703in)--(4.64927in,1.79349in)-- + (4.67353in,1.77984in)--(4.6978in,1.76605in)--(4.72207in,1.7521in)-- + (4.74633in,1.73799in)--(4.7706in,1.72368in)-- + (4.79487in,1.70917in)--(4.81913in,1.69446in)-- + (4.8434in,1.67955in)--(4.86767in,1.66446in)-- + (4.89193in,1.64917in)--(4.9162in,1.63371in)-- + (4.94047in,1.61808in)--(4.96473in,1.60229in)--(4.989in,1.58633in)-- + (5.01327in,1.57023in)--(5.03753in,1.55397in)-- + (5.0618in,1.53758in)--(5.08607in,1.52132in)-- + (5.11033in,1.50493in)--(5.1346in,1.4884in)--(5.15887in,1.47174in)-- + (5.18313in,1.45494in)--(5.2074in,1.43802in)-- + (5.23167in,1.42095in)--(5.25593in,1.40376in)-- + (5.2802in,1.38643in)--(5.30447in,1.36896in)-- + (5.32873in,1.35137in)--(5.353in,1.33363in); +\draw (1.25in,0.505099in)--(1.25218in,0.504872in)-- + (1.25437in,0.504645in)--(1.25655in,0.50442in)-- + (1.25874in,0.504197in)--(1.26092in,0.503976in)-- + (1.2631in,0.503758in)--(1.26529in,0.503544in)-- + (1.26747in,0.503334in)--(1.26966in,0.503129in)-- + (1.27184in,0.502929in)--(1.27402in,0.502736in)-- + (1.27621in,0.502549in)--(1.30047in,0.500957in)-- + (1.32474in,0.5002in)--(1.34901in,0.500208in)-- + (1.37327in,0.500909in)--(1.39754in,0.502233in)-- + (1.42181in,0.504108in)--(1.44607in,0.506462in)-- + (1.47034in,0.509226in)--(1.49461in,0.512327in)-- + (1.51887in,0.515694in)--(1.54314in,0.519257in)-- + (1.56741in,0.522944in)--(1.59167in,0.526697in)-- + (1.61594in,0.530512in)--(1.64021in,0.534397in)-- + (1.66447in,0.53836in)--(1.68874in,0.542411in)-- + (1.71301in,0.546558in)--(1.73727in,0.550809in)-- + (1.76154in,0.555173in)--(1.78581in,0.559659in)-- + (1.81007in,0.564275in)--(1.83434in,0.569029in)-- + (1.85861in,0.573931in)--(1.88287in,0.578986in)-- + (1.90714in,0.584189in)--(1.93141in,0.589534in)-- + (1.95567in,0.595012in)--(1.97994in,0.600617in)-- + (2.00421in,0.60634in)--(2.02847in,0.612175in)-- + (2.05274in,0.618114in)--(2.07701in,0.62415in)-- + (2.10127in,0.630275in)--(2.12554in,0.636482in)-- + (2.14981in,0.642763in)--(2.17407in,0.649115in)-- + (2.19834in,0.655546in)--(2.22261in,0.662068in)-- + (2.24687in,0.668694in)--(2.27114in,0.675436in)-- + (2.29541in,0.682306in)--(2.31967in,0.689316in)-- + (2.34394in,0.696478in)--(2.36821in,0.703804in)-- + (2.39247in,0.711307in)--(2.41674in,0.718999in)-- + (2.44101in,0.726891in)--(2.46527in,0.734993in)-- + (2.48954in,0.743292in)--(2.51381in,0.751775in)-- + (2.53807in,0.760428in)--(2.56234in,0.769234in)-- + (2.5866in,0.77818in)--(2.61087in,0.787251in)-- + (2.63514in,0.796432in)--(2.6594in,0.805708in)-- + (2.68367in,0.815066in)--(2.70794in,0.824489in)-- + (2.7322in,0.833964in)--(2.75647in,0.843478in)-- + (2.78074in,0.853031in)--(2.805in,0.862626in)-- + (2.82927in,0.872265in)--(2.85354in,0.881949in)-- + (2.8778in,0.891683in)--(2.90207in,0.901467in)-- + (2.92634in,0.911304in)--(2.9506in,0.921197in)-- + (2.97487in,0.931148in)--(2.99914in,0.941159in)-- + (3.0234in,0.951234in)--(3.04767in,0.961372in)-- + (3.07194in,0.971571in)--(3.0962in,0.981829in)-- + (3.12047in,0.99214in)--(3.14474in,1.0025in)--(3.169in,1.01291in)-- + (3.19327in,1.02336in)--(3.21754in,1.03386in)-- + (3.2418in,1.04439in)--(3.26607in,1.05495in)-- + (3.29034in,1.06554in)--(3.3146in,1.07615in)-- + (3.33887in,1.08679in)--(3.36314in,1.09744in)--(3.3874in,1.1081in)-- + (3.41167in,1.11877in)--(3.43594in,1.12944in)--(3.4602in,1.1401in)-- + (3.48447in,1.15075in)--(3.50874in,1.16138in)--(3.533in,1.17199in)-- + (3.55727in,1.18257in)--(3.58154in,1.19311in)-- + (3.6058in,1.20362in)--(3.63007in,1.21408in)-- + (3.65434in,1.22448in)--(3.6786in,1.23482in)-- + (3.70287in,1.24509in)--(3.72714in,1.25527in)-- + (3.7514in,1.26537in)--(3.77567in,1.27536in)-- + (3.79994in,1.28523in)--(3.8242in,1.29499in)-- + (3.84847in,1.30462in)--(3.87274in,1.3141in)--(3.897in,1.32344in)-- + (3.92127in,1.33262in)--(3.94553in,1.34162in)-- + (3.9698in,1.35045in)--(3.99407in,1.3591in)--(4.01833in,1.36754in)-- + (4.0426in,1.37578in)--(4.06687in,1.3838in)--(4.09113in,1.3916in)-- + (4.1154in,1.39915in)--(4.13967in,1.40647in)-- + (4.16393in,1.41352in)--(4.1882in,1.42031in)-- + (4.21247in,1.42683in)--(4.23673in,1.43308in)--(4.261in,1.43906in)-- + (4.28527in,1.44477in)--(4.30953in,1.45023in)-- + (4.3338in,1.45543in)--(4.35807in,1.46038in)-- + (4.38233in,1.46508in)--(4.4066in,1.46954in)-- + (4.43087in,1.47376in)--(4.45513in,1.47775in)--(4.4794in,1.4815in)-- + (4.50367in,1.48501in)--(4.52793in,1.48827in)-- + (4.5522in,1.49124in)--(4.57647in,1.49387in)-- + (4.60073in,1.49615in)--(4.625in,1.49804in)--(4.64927in,1.49951in)-- + (4.67353in,1.50052in)--(4.6978in,1.50104in)-- + (4.72207in,1.50104in)--(4.74633in,1.50048in)-- + (4.7706in,1.49934in)--(4.79487in,1.49759in)-- + (4.81913in,1.49524in)--(4.8434in,1.49231in)-- + (4.86767in,1.48883in)--(4.89193in,1.4848in)--(4.9162in,1.48026in)-- + (4.94047in,1.47522in)--(4.96473in,1.4697in)--(4.989in,1.46372in)-- + (5.01327in,1.45731in)--(5.03753in,1.45048in)-- + (5.0618in,1.44326in)--(5.08607in,1.4364in)--(5.11033in,1.42917in)-- + (5.1346in,1.42157in)--(5.15887in,1.41359in)-- + (5.18313in,1.40523in)--(5.2074in,1.39649in)-- + (5.23167in,1.38738in)--(5.25593in,1.3779in)--(5.2802in,1.36803in)-- + (5.30447in,1.35779in)--(5.32873in,1.34718in)--(5.353in,1.33618in); +\draw (1.25in,4.3801in)--(1.25218in,4.37945in)-- + (1.25437in,4.3788in)--(1.25655in,4.37815in)-- + (1.25874in,4.37751in)--(1.26092in,4.37686in)-- + (1.2631in,4.37622in)--(1.26529in,4.37558in)-- + (1.26747in,4.37495in)--(1.26966in,4.37432in)-- + (1.27184in,4.37369in)--(1.27402in,4.37307in)-- + (1.27621in,4.37245in)--(1.30047in,4.36595in)-- + (1.32474in,4.36001in)--(1.34901in,4.35446in)-- + (1.37327in,4.34914in)--(1.39754in,4.3439in)-- + (1.42181in,4.33858in)--(1.44607in,4.33301in)-- + (1.47034in,4.32704in)--(1.49461in,4.32051in)-- + (1.51887in,4.31327in)--(1.54314in,4.30514in)-- + (1.56741in,4.29597in)--(1.59167in,4.28564in)-- + (1.61594in,4.27417in)--(1.64021in,4.26159in)-- + (1.66447in,4.24797in)--(1.68874in,4.23336in)-- + (1.71301in,4.21779in)--(1.73727in,4.20133in)-- + (1.76154in,4.18402in)--(1.78581in,4.16592in)-- + (1.81007in,4.14707in)--(1.83434in,4.12752in)-- + (1.85861in,4.10732in)--(1.88287in,4.08652in)-- + (1.90714in,4.06516in)--(1.93141in,4.04325in)-- + (1.95567in,4.02085in)--(1.97994in,3.99796in)-- + (2.00421in,3.97462in)--(2.02847in,3.95087in)-- + (2.05274in,3.92673in)--(2.07701in,3.90223in)-- + (2.10127in,3.87741in)--(2.12554in,3.85228in)-- + (2.14981in,3.82689in)--(2.17407in,3.80126in)-- + (2.19834in,3.77539in)--(2.22261in,3.7493in)--(2.24687in,3.723in)-- + (2.27114in,3.69649in)--(2.29541in,3.66977in)-- + (2.31967in,3.64287in)--(2.34394in,3.61577in)-- + (2.36821in,3.5885in)--(2.39247in,3.56105in)-- + (2.41674in,3.53344in)--(2.44101in,3.50567in)-- + (2.46527in,3.47776in)--(2.48954in,3.44969in)-- + (2.51381in,3.42148in)--(2.53807in,3.39313in)-- + (2.56234in,3.36464in)--(2.5866in,3.33601in)-- + (2.61087in,3.30725in)--(2.63514in,3.27836in)-- + (2.6594in,3.24933in)--(2.68367in,3.22018in)-- + (2.70794in,3.19091in)--(2.7322in,3.16151in)--(2.75647in,3.132in)-- + (2.78074in,3.10237in)--(2.805in,3.07265in)--(2.82927in,3.04283in)-- + (2.85354in,3.01293in)--(2.8778in,2.98295in)-- + (2.90207in,2.95291in)--(2.92634in,2.92282in)-- + (2.9506in,2.89268in)--(2.97487in,2.8625in)--(2.99914in,2.83229in)-- + (3.0234in,2.80206in)--(3.04767in,2.77182in)-- + (3.07194in,2.74162in)--(3.0962in,2.71148in)-- + (3.12047in,2.68146in)--(3.14474in,2.65159in)--(3.169in,2.62192in)-- + (3.19327in,2.59248in)--(3.21754in,2.56332in)-- + (3.2418in,2.53447in)--(3.26607in,2.50598in)-- + (3.29034in,2.47789in)--(3.3146in,2.45025in)-- + (3.33887in,2.42307in)--(3.36314in,2.39636in)-- + (3.3874in,2.37011in)--(3.41167in,2.34429in)--(3.43594in,2.3189in)-- + (3.4602in,2.29393in)--(3.48447in,2.26935in)-- + (3.50874in,2.24516in)--(3.533in,2.22134in)--(3.55727in,2.19788in)-- + (3.58154in,2.17476in)--(3.6058in,2.15197in)-- + (3.63007in,2.12951in)--(3.65434in,2.1074in)--(3.6786in,2.08566in)-- + (3.70287in,2.06434in)--(3.72714in,2.04346in)-- + (3.7514in,2.02305in)--(3.77567in,2.00315in)-- + (3.79994in,1.98379in)--(3.8242in,1.96499in)--(3.84847in,1.9468in)-- + (3.87274in,1.92924in)--(3.897in,1.91234in)--(3.92127in,1.89612in)-- + (3.94553in,1.8806in)--(3.9698in,1.86576in)--(3.99407in,1.85159in)-- + (4.01833in,1.8381in)--(4.0426in,1.82527in)--(4.06687in,1.8131in)-- + (4.09113in,1.80158in)--(4.1154in,1.79071in)-- + (4.13967in,1.78048in)--(4.16393in,1.77089in)-- + (4.1882in,1.76192in)--(4.21247in,1.75234in)-- + (4.23673in,1.74337in)--(4.261in,1.73503in)--(4.28527in,1.72731in)-- + (4.30953in,1.72022in)--(4.3338in,1.71374in)-- + (4.35807in,1.70789in)--(4.38233in,1.70267in)-- + (4.4066in,1.69806in)--(4.43087in,1.69408in)-- + (4.45513in,1.69073in)--(4.4794in,1.68799in); +\filldraw[color=rgb_ffffff] (2.08574in,1.68289in) circle(0.083022in); +\draw[color=rgb_000000] (2.08574in,1.68289in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.08574in}{1.68289in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$1$}}} +\filldraw[color=rgb_ffffff] (2.05662in,2.85559in) circle(0.083022in); +\draw[color=rgb_000000] (2.05662in,2.85559in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.05662in}{2.85559in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$2$}}} +\filldraw[color=rgb_ffffff] (2.1003in,0.762582in) circle(0.083022in); +\draw[color=rgb_000000] (2.1003in,0.762582in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.1003in}{0.762582in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$3$}}} +\filldraw[color=rgb_ffffff] (2.04789in,3.73766in) circle(0.083022in); +\draw[color=rgb_000000] (2.04789in,3.73766in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.04789in}{3.73766in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$4$}}} +\pgftext[at={\pgfpoint{5.975in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rho$}}} +\pgftext[at={\pgfpoint{4.625in}{0.250934in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}\textsc{Fig.~3} -- Central form factors; central dips and rises.}}} +\pgftext[at={\pgfpoint{1.00093in}{2.4375in}}] {\makebox(0,0)[r]{\rotatebox{90}{\hbox{\color{rgb_000000}\Code{FFCR} and/or \Code{FFCI}}}}} +\pgftext[at={\pgfpoint{2.21714in}{5.47429in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{R0 = 1.25},\quad \Code{A = 0.65},\quad \Code{FN1A = 1},\quad \Code{FN2A = 1}}}} +\pgftext[at={\pgfpoint{3.50857in}{5.6in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}\framebox{p - Ag\quad $135$~\MeV}}}} +\filldraw[color=rgb_ffffff] (2.62857in,5.25714in) circle(0.083022in); +\draw[color=rgb_000000] (2.62857in,5.25714in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.62857in}{5.25714in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$1$}}} +\pgftext[at={\pgfpoint{2.79462in}{5.25714in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = 0}, \Code{PMA = 1}, $\rho_{m_A} = \bar{\rho}_N = 15.04$\quad (Standard form factor)}}} +\filldraw[color=rgb_ffffff] (2.62857in,5.07429in) circle(0.083022in); +\draw[color=rgb_000000] (2.62857in,5.07429in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.62857in}{5.07429in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$2$}}} +\pgftext[at={\pgfpoint{2.79462in}{5.07429in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = 1}}}} +\pgftext[at={\pgfpoint{3.42286in}{5.10286in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\Ditto}}} +\pgftext[at={\pgfpoint{3.42286in}{4.91429in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\Ditto}}} +\pgftext[at={\pgfpoint{3.97143in}{5.10286in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\Ditto}}} +\pgftext[at={\pgfpoint{3.97143in}{4.91429in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\Ditto}}} +\pgftext[at={\pgfpoint{4.40571in}{5.10286in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\Ditto}}} +\pgftext[at={\pgfpoint{4.40571in}{4.91429in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\Ditto}}} +\pgftext[at={\pgfpoint{4.82571in}{5.10286in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\Ditto}}} +\pgftext[at={\pgfpoint{4.82571in}{4.91429in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\Ditto}}} +\filldraw[color=rgb_ffffff] (2.62857in,4.89143in) circle(0.083022in); +\draw[color=rgb_000000] (2.62857in,4.89143in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.62857in}{4.89143in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$3$}}} +\pgftext[at={\pgfpoint{2.79462in}{4.89143in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA =-1}}}} +\filldraw[color=rgb_ffffff] (2.62857in,4.70857in) circle(0.083022in); +\draw[color=rgb_000000] (2.62857in,4.70857in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.62857in}{4.70857in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$4$}}} +\pgftext[at={\pgfpoint{2.79462in}{4.70857in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = 2}, \Code{PMA = 0.7}, $\rho_{m_A} = 0.7\bar{\rho}_N = 10.53$}}} +\end{tikzpicture} diff --git a/29784-t/images/028a.eepic b/29784-t/images/028a.eepic new file mode 100644 index 0000000..3c10926 --- /dev/null +++ b/29784-t/images/028a.eepic @@ -0,0 +1,407 @@ +%% Generated from 028a.xp on Sun May 17 12:43:51 EDT 2009 by +%% ePiX-1.2.6 +%% +%% Cartesian bounding box: [0,8] x [0,6] +%% Actual size: 8 x 6in +%% Figure offset: left by 0in, down by 0in +%% +%% usepackages tikz +%% +\xdefinecolor{rgb_000000}{rgb}{0,0,0}% +\xdefinecolor{rgb_ffffff}{rgb}{1,1,1}% +\begin{tikzpicture} +\pgfsetlinewidth{0.4pt} +\useasboundingbox (0in,0in) rectangle (8in,6in); +\draw (1.125in,0.5in)--(8in,0.5in); +\draw (8in,4.25in)-- + (1.125in,4.25in)--(1.125in,0.5in); +\draw (2.375in,0.5in)--(2.375in,4.25in); +\draw (3.625in,0.5in)--(3.625in,4.25in); +\draw (4.875in,0.5in)--(4.875in,4.25in); +\draw (6.125in,0.5in)--(6.125in,4.25in); +\draw (7.375in,0.5in)--(7.375in,4.25in); +\draw (1.125in,1.75in)--(8in,1.75in); +\draw (1.125in,3in)--(8in,3in); +\pgfsetlinewidth{0.8pt} +\draw (1.125in,0.5in)--(8in,0.5in)--(8in,4.25in)-- + (1.125in,4.25in)--(1.125in,0.5in)--cycle; +\draw (1.125in,0.5in)--(7.375in,0.5in); +\pgftext[at={\pgfpoint{1.125in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.375in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.625in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.875in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.125in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.375in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.75in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.375in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.625in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.25in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.875in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.5in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.125in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.75in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.375in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$0$}}} +\pgftext[at={\pgfpoint{2.375in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$1$}}} +\pgftext[at={\pgfpoint{3.625in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$2$}}} +\pgftext[at={\pgfpoint{4.875in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$3$}}} +\pgftext[at={\pgfpoint{6.125in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$4$}}} +\pgftext[at={\pgfpoint{7.375in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$5$}}} +\draw (1.125in,0.5in)--(1.125in,3.625in); +\pgftext[at={\pgfpoint{1.125in}{0.5in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{1.125in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{1.75in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{2.375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{3in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{3.625in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.06965in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0$}}} +\pgftext[at={\pgfpoint{1.06965in}{1.125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.2$}}} +\pgftext[at={\pgfpoint{1.06965in}{1.75in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.4$}}} +\pgftext[at={\pgfpoint{1.06965in}{2.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.6$}}} +\pgftext[at={\pgfpoint{1.06965in}{3in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.8$}}} +\pgftext[at={\pgfpoint{1.06965in}{3.625in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$1$}}} +\draw (1.125in,4.25in)--(7.375in,4.25in); +\pgftext[at={\pgfpoint{1.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.375in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.625in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.875in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.375in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.75in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.375in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.625in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.25in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.875in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.5in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.75in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.375in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\draw (8in,0.5in)--(8in,4.25in); +\pgftext[at={\pgfpoint{8in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.75in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.625in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{4.25in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\draw (1.13122in,3.63318in)--(1.15299in,3.63318in)-- + (1.17475in,3.63318in)--(1.19652in,3.63318in)-- + (1.21828in,3.63318in)--(1.24005in,3.63318in)-- + (1.26182in,3.63318in)--(1.28358in,3.63318in)-- + (1.30535in,3.63318in)--(1.32711in,3.63318in)-- + (1.34888in,3.63318in)--(1.37065in,3.63318in)-- + (1.39241in,3.63318in)--(1.41833in,3.63318in)-- + (1.44424in,3.63319in)--(1.47015in,3.63319in)-- + (1.49606in,3.63319in)--(1.52197in,3.63319in)-- + (1.54789in,3.63319in)--(1.5738in,3.63319in)-- + (1.59971in,3.63319in)--(1.62562in,3.63319in)-- + (1.65153in,3.63319in)--(1.67745in,3.63319in)-- + (1.70336in,3.63318in)--(1.72927in,3.63318in)-- + (1.75518in,3.63318in)--(1.78109in,3.63317in)-- + (1.80701in,3.63317in)--(1.83292in,3.63317in)-- + (1.85883in,3.63316in)--(1.88474in,3.63316in)-- + (1.91066in,3.63316in)--(1.93657in,3.63316in)-- + (1.96248in,3.63317in)--(1.98839in,3.63317in)-- + (2.0143in,3.63318in)--(2.04022in,3.63319in)-- + (2.06613in,3.63321in)--(2.09204in,3.63322in)-- + (2.11795in,3.63323in)--(2.14386in,3.63325in)-- + (2.16978in,3.63326in)--(2.19569in,3.63326in)-- + (2.2216in,3.63326in)--(2.24751in,3.63325in)-- + (2.27342in,3.63324in)--(2.29934in,3.63322in)-- + (2.32525in,3.63318in)--(2.35116in,3.63314in)-- + (2.37707in,3.63308in)--(2.40299in,3.63299in)-- + (2.4289in,3.63288in)--(2.45481in,3.63273in)-- + (2.48072in,3.63253in)--(2.50663in,3.63229in)-- + (2.53255in,3.63199in)--(2.55846in,3.63163in)-- + (2.58437in,3.6312in)--(2.61028in,3.6307in)--(2.63619in,3.63011in)-- + (2.66211in,3.62945in)--(2.68802in,3.62871in)-- + (2.71393in,3.62792in)--(2.73984in,3.62708in)-- + (2.76575in,3.62623in)--(2.79167in,3.62536in)-- + (2.81758in,3.62451in)--(2.84349in,3.62368in)-- + (2.8694in,3.62288in)--(2.89532in,3.62215in)-- + (2.92123in,3.62148in)--(2.94714in,3.62091in)-- + (2.97305in,3.62043in)--(2.99896in,3.62004in)-- + (3.02488in,3.61973in)--(3.05079in,3.61947in)-- + (3.0767in,3.61926in)--(3.10261in,3.61908in)-- + (3.12852in,3.61892in)--(3.15444in,3.61876in)-- + (3.18035in,3.61859in)--(3.20626in,3.61838in)-- + (3.23217in,3.61814in)--(3.25808in,3.61784in)--(3.284in,3.61747in)-- + (3.30991in,3.617in)--(3.33582in,3.61642in)--(3.36173in,3.61571in)-- + (3.38765in,3.61483in)--(3.41356in,3.61378in)-- + (3.43947in,3.61253in)--(3.46538in,3.61105in)-- + (3.49129in,3.60933in)--(3.51721in,3.60735in)-- + (3.54312in,3.60508in)--(3.56903in,3.6025in)-- + (3.59494in,3.59958in)--(3.62085in,3.59632in)-- + (3.64677in,3.59266in)--(3.67268in,3.5886in)--(3.69859in,3.5841in)-- + (3.7245in,3.57913in)--(3.75041in,3.57367in)-- + (3.77633in,3.56769in)--(3.80224in,3.56117in)-- + (3.82815in,3.55407in)--(3.85406in,3.54637in)-- + (3.87998in,3.53805in)--(3.90589in,3.52908in)-- + (3.9318in,3.51943in)--(3.95771in,3.50909in)-- + (3.98362in,3.49803in)--(4.00954in,3.48625in)-- + (4.03545in,3.47371in)--(4.06136in,3.46039in)-- + (4.08727in,3.44629in)--(4.11318in,3.43137in)-- + (4.1391in,3.41562in)--(4.16501in,3.39902in)-- + (4.19092in,3.38155in)--(4.21683in,3.36318in)-- + (4.24274in,3.34392in)--(4.26866in,3.32374in)-- + (4.29457in,3.30263in)--(4.32048in,3.28059in)-- + (4.34639in,3.25761in)--(4.37231in,3.23367in)-- + (4.39822in,3.20876in)--(4.42413in,3.18287in)-- + (4.45004in,3.15599in)--(4.47595in,3.12811in)-- + (4.50187in,3.09922in)--(4.52778in,3.06931in)-- + (4.55369in,3.03836in)--(4.5796in,3.00637in)-- + (4.60551in,2.97333in)--(4.63143in,2.93921in)-- + (4.65734in,2.90402in)--(4.68325in,2.86774in)-- + (4.70916in,2.83036in)--(4.73507in,2.79187in)-- + (4.76099in,2.75225in)--(4.7869in,2.7115in)--(4.81281in,2.6696in)-- + (4.83872in,2.62657in)--(4.86464in,2.5825in)-- + (4.89055in,2.53751in)--(4.91646in,2.49173in)-- + (4.94237in,2.44526in)--(4.96828in,2.39824in)-- + (4.9942in,2.35078in)--(5.02011in,2.303in)--(5.04602in,2.25502in)-- + (5.07193in,2.20697in)--(5.09784in,2.15895in)-- + (5.12376in,2.11109in)--(5.14967in,2.0635in)-- + (5.17558in,2.01623in)--(5.20149in,1.96933in)-- + (5.2274in,1.92284in)--(5.25332in,1.8768in)--(5.27923in,1.83126in)-- + (5.30514in,1.78627in)--(5.33105in,1.74186in)-- + (5.35697in,1.69809in)--(5.38288in,1.65499in)-- + (5.40879in,1.61261in)--(5.4347in,1.57099in)-- + (5.46061in,1.53018in)--(5.48653in,1.49019in)-- + (5.51244in,1.45106in)--(5.53835in,1.41281in)-- + (5.56426in,1.37547in)--(5.59017in,1.33905in)-- + (5.61609in,1.30358in)--(5.642in,1.26909in)--(5.66791in,1.2356in)-- + (5.69382in,1.20313in)--(5.71973in,1.17171in)-- + (5.74565in,1.14137in)--(5.77156in,1.11211in)-- + (5.79747in,1.08391in)--(5.82338in,1.05674in)-- + (5.8493in,1.03056in)--(5.87521in,1.00535in)-- + (5.90112in,0.981062in)--(5.92703in,0.957668in)-- + (5.95294in,0.935133in)--(5.97886in,0.913423in)-- + (6.00477in,0.892504in)--(6.03068in,0.872343in)-- + (6.05659in,0.852905in)--(6.0825in,0.834162in)-- + (6.10842in,0.816102in)--(6.13433in,0.798721in)-- + (6.16024in,0.782012in)--(6.18615in,0.76597in)-- + (6.21206in,0.750588in)--(6.23798in,0.735861in)-- + (6.26389in,0.721784in)--(6.2898in,0.708349in)-- + (6.31571in,0.695553in)--(6.34163in,0.683388in)-- + (6.36754in,0.671849in)--(6.39345in,0.660929in)-- + (6.41936in,0.650611in)--(6.44527in,0.640879in)-- + (6.47119in,0.631714in)--(6.4971in,0.623099in)-- + (6.52301in,0.615016in)--(6.54892in,0.607449in)-- + (6.57483in,0.600378in)--(6.60075in,0.593788in)-- + (6.62666in,0.587659in)--(6.65257in,0.581975in)-- + (6.67848in,0.576718in)--(6.70439in,0.571869in)-- + (6.73031in,0.567399in)--(6.75622in,0.563276in)-- + (6.78213in,0.559472in)--(6.80804in,0.555956in)-- + (6.83396in,0.552696in)--(6.85987in,0.549663in)-- + (6.88578in,0.546825in)--(6.91169in,0.544153in)-- + (6.9376in,0.541616in)--(6.96352in,0.539184in)-- + (6.98943in,0.536825in)--(7.01534in,0.534516in)-- + (7.04125in,0.532263in)--(7.06716in,0.530077in)-- + (7.09308in,0.527969in)--(7.11899in,0.525951in)-- + (7.1449in,0.524036in)--(7.17081in,0.522234in)-- + (7.19672in,0.520558in)--(7.22264in,0.519019in)-- + (7.24855in,0.517629in)--(7.27446in,0.5164in)-- + (7.30037in,0.515344in)--(7.32629in,0.514467in)-- + (7.3522in,0.513757in)--(7.37811in,0.513199in)-- + (7.40402in,0.512776in)--(7.42993in,0.512472in)-- + (7.45585in,0.512269in)--(7.48176in,0.512152in)-- + (7.50767in,0.512104in)--(7.53358in,0.512109in)--(7.55949in,0.51215in); +\draw (7.55949in,0.51215in)--(7.58541in,0.512211in)-- + (7.61132in,0.512275in)--(7.64112in,0.51237in)-- + (7.67092in,0.512448in)--(7.70072in,0.512509in)-- + (7.73051in,0.512552in)--(7.76031in,0.512578in)-- + (7.79011in,0.512587in)--(7.81991in,0.512578in)-- + (7.84971in,0.512552in)--(7.87951in,0.512509in)-- + (7.90931in,0.512448in)--(7.93911in,0.51237in)--(7.96891in,0.512275in); +\draw (2.63619in,3.63011in)--(2.66211in,3.6292in)-- + (2.68802in,3.6283in)--(2.71393in,3.62741in)-- + (2.73984in,3.62653in)--(2.76575in,3.62568in)-- + (2.79167in,3.62486in)--(2.81758in,3.62408in)-- + (2.84349in,3.62333in)--(2.8694in,3.62264in)--(2.89532in,3.622in)-- + (2.92123in,3.62142in)--(2.94714in,3.62091in)-- + (2.97305in,3.62046in)--(2.99896in,3.62004in)-- + (3.02488in,3.61962in)--(3.05079in,3.61914in)-- + (3.0767in,3.61857in)--(3.10261in,3.61788in)--(3.12852in,3.617in)-- + (3.15444in,3.61592in)--(3.18035in,3.61458in)-- + (3.20626in,3.61295in)--(3.23217in,3.61098in)-- + (3.25808in,3.60863in)--(3.284in,3.60588in)--(3.30991in,3.60274in)-- + (3.33582in,3.59925in)--(3.36173in,3.59542in)-- + (3.38765in,3.59129in)--(3.41356in,3.58689in)-- + (3.43947in,3.58225in)--(3.46538in,3.5774in)-- + (3.49129in,3.57237in)--(3.51721in,3.56718in)-- + (3.54312in,3.56187in)--(3.56903in,3.55646in)-- + (3.59494in,3.55098in)--(3.62085in,3.5454in)-- + (3.64677in,3.53969in)--(3.67268in,3.53381in)-- + (3.69859in,3.52773in)--(3.7245in,3.52141in)-- + (3.75041in,3.51482in)--(3.77633in,3.50793in)-- + (3.80224in,3.50071in)--(3.82815in,3.49311in)-- + (3.85406in,3.48512in)--(3.87998in,3.47668in)-- + (3.90589in,3.46777in)--(3.9318in,3.45834in)-- + (3.95771in,3.44836in)--(3.98362in,3.43777in)-- + (4.00954in,3.42654in)--(4.03545in,3.41463in)-- + (4.06136in,3.40198in)--(4.08727in,3.38856in)-- + (4.11318in,3.37433in)--(4.1391in,3.35924in)-- + (4.16501in,3.34325in)--(4.19092in,3.32631in)-- + (4.21683in,3.3084in)--(4.24274in,3.28952in)-- + (4.26866in,3.26971in)--(4.29457in,3.24898in)-- + (4.32048in,3.22737in)--(4.34639in,3.20488in)-- + (4.37231in,3.18156in)--(4.39822in,3.15742in)-- + (4.42413in,3.13249in)--(4.45004in,3.10679in)-- + (4.47595in,3.08035in)--(4.50187in,3.05319in)-- + (4.52778in,3.02532in)--(4.55369in,2.99669in)-- + (4.5796in,2.96724in)--(4.60551in,2.93689in)-- + (4.63143in,2.90559in)--(4.65734in,2.87327in)-- + (4.68325in,2.83986in)--(4.70916in,2.8053in)-- + (4.73507in,2.76953in)--(4.76099in,2.73247in)-- + (4.7869in,2.69407in)--(4.81281in,2.65426in)--(4.83872in,2.613in)-- + (4.86464in,2.57043in)--(4.89055in,2.52671in)--(4.91646in,2.482in)-- + (4.94237in,2.43645in)--(4.96828in,2.39024in)-- + (4.9942in,2.34353in)--(5.02011in,2.29647in)-- + (5.04602in,2.24922in)--(5.07193in,2.20196in)-- + (5.09784in,2.15484in)--(5.12376in,2.10802in)-- + (5.14967in,2.06071in)--(5.17558in,2.01386in)-- + (5.20149in,1.96748in)--(5.2274in,1.92157in)-- + (5.25332in,1.87612in)--(5.27923in,1.83113in)-- + (5.30514in,1.78661in)--(5.33105in,1.74256in)-- + (5.35697in,1.69897in)--(5.38288in,1.65584in)-- + (5.40879in,1.61318in)--(5.4347in,1.57099in); +\draw (1.13122in,3.63318in)--(1.15299in,3.63288in)-- + (1.17475in,3.63259in)--(1.19652in,3.63229in)-- + (1.21828in,3.63201in)--(1.24005in,3.63172in)-- + (1.26182in,3.63145in)--(1.28358in,3.63119in)-- + (1.30535in,3.63094in)--(1.32711in,3.63071in)-- + (1.34888in,3.63049in)--(1.37065in,3.63029in)-- + (1.39241in,3.63011in)--(1.41833in,3.62993in)-- + (1.44424in,3.62976in)--(1.47015in,3.62961in)-- + (1.49606in,3.62945in)--(1.52197in,3.62929in)-- + (1.54789in,3.62911in)--(1.5738in,3.6289in)--(1.59971in,3.62864in)-- + (1.62562in,3.62834in)--(1.65153in,3.62798in)-- + (1.67745in,3.62755in)--(1.70336in,3.62705in)-- + (1.72927in,3.62645in)--(1.75518in,3.62577in)--(1.78109in,3.625in)-- + (1.80701in,3.62415in)--(1.83292in,3.62323in)-- + (1.85883in,3.62222in)--(1.88474in,3.62115in)--(1.91066in,3.62in)-- + (1.93657in,3.61879in)--(1.96248in,3.61751in)-- + (1.98839in,3.61617in)--(2.0143in,3.61477in)-- + (2.04022in,3.61331in)--(2.06613in,3.6118in)-- + (2.09204in,3.61023in)--(2.11795in,3.6086in)--(2.14386in,3.6069in)-- + (2.16978in,3.60515in)--(2.19569in,3.60333in)-- + (2.2216in,3.60145in)--(2.24751in,3.59951in)--(2.27342in,3.5975in)-- + (2.29934in,3.59543in)--(2.32525in,3.59329in)-- + (2.35116in,3.59108in)--(2.37707in,3.58881in)-- + (2.40299in,3.58647in)--(2.4289in,3.58406in)-- + (2.45481in,3.58159in)--(2.48072in,3.57906in)-- + (2.50663in,3.57647in)--(2.53255in,3.57381in)-- + (2.55846in,3.5711in)--(2.58437in,3.56832in)-- + (2.61028in,3.56549in)--(2.63619in,3.5626in)-- + (2.66211in,3.55966in)--(2.68802in,3.55665in)-- + (2.71393in,3.55359in)--(2.73984in,3.55045in)-- + (2.76575in,3.54726in)--(2.79167in,3.54398in)-- + (2.81758in,3.54064in)--(2.84349in,3.53722in)-- + (2.8694in,3.53372in)--(2.89532in,3.53014in)-- + (2.92123in,3.52647in)--(2.94714in,3.52271in)-- + (2.97305in,3.51886in)--(2.99896in,3.51492in)-- + (3.02488in,3.51089in)--(3.05079in,3.50677in)-- + (3.0767in,3.50255in)--(3.10261in,3.49825in)-- + (3.12852in,3.49385in)--(3.15444in,3.48937in)-- + (3.18035in,3.4848in)--(3.20626in,3.48013in)-- + (3.23217in,3.47538in)--(3.25808in,3.47054in)--(3.284in,3.46561in)-- + (3.30991in,3.46058in)--(3.33582in,3.45544in)-- + (3.36173in,3.45019in)--(3.38765in,3.44482in)-- + (3.41356in,3.43932in)--(3.43947in,3.43367in)-- + (3.46538in,3.42788in)--(3.49129in,3.42192in)-- + (3.51721in,3.4158in)--(3.54312in,3.40951in)-- + (3.56903in,3.40303in)--(3.59494in,3.39636in)-- + (3.62085in,3.38948in)--(3.64677in,3.3824in)--(3.67268in,3.3751in)-- + (3.69859in,3.36758in)--(3.7245in,3.35982in)-- + (3.75041in,3.35182in)--(3.77633in,3.34357in)-- + (3.80224in,3.33506in)--(3.82815in,3.32628in)-- + (3.85406in,3.31723in)--(3.87998in,3.3079in)-- + (3.90589in,3.29827in)--(3.9318in,3.28831in)--(3.95771in,3.278in)-- + (3.98362in,3.2673in)--(4.00954in,3.25617in)-- + (4.03545in,3.24459in)--(4.06136in,3.23252in)-- + (4.08727in,3.21992in)--(4.11318in,3.20677in)-- + (4.1391in,3.19304in)--(4.16501in,3.17868in)-- + (4.19092in,3.16367in)--(4.21683in,3.14798in)-- + (4.24274in,3.13161in)--(4.26866in,3.11458in)-- + (4.29457in,3.0969in)--(4.32048in,3.07859in)-- + (4.34639in,3.05964in)--(4.37231in,3.04008in)-- + (4.39822in,3.01993in)--(4.42413in,2.99918in)-- + (4.45004in,2.97785in)--(4.47595in,2.95596in)-- + (4.50187in,2.93351in)--(4.52778in,2.91051in)-- + (4.55369in,2.88688in)--(4.5796in,2.86256in)-- + (4.60551in,2.83746in)--(4.63143in,2.81149in)-- + (4.65734in,2.78459in)--(4.68325in,2.75667in)-- + (4.70916in,2.72765in)--(4.73507in,2.69746in)-- + (4.76099in,2.66601in)--(4.7869in,2.63322in)-- + (4.81281in,2.59902in)--(4.83872in,2.56632in)-- + (4.86464in,2.53213in)--(4.89055in,2.49645in)-- + (4.91646in,2.45927in)--(4.94237in,2.4206in)-- + (4.96828in,2.38043in)--(4.9942in,2.33876in)--(5.02011in,2.2956in)-- + (5.04602in,2.25095in)--(5.07193in,2.2048in)-- + (5.09784in,2.15716in)--(5.12376in,2.10802in); +\pgfsetlinewidth{0.4pt} +\draw (4.25in,3.98892in)--(4.5625in,3.98892in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](4.25in,3.98892in)--(4.5625in,3.98892in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (4.25in,3.98892in)--(4.5625in,3.98892in); +\draw (4.25in,3.98892in)--(3.89291in,3.54256in); +\pgfsetfillcolor{rgb_000000} +\draw [fill](3.96422in,3.6317in)--(3.94802in,3.64467in)-- + (3.89291in,3.54256in)--(3.98043in,3.61874in)--(3.96422in,3.6317in)--cycle; +\filldraw[color=rgb_ffffff] (4.5625in,3.98892in) circle(0.083022in); +\draw[color=rgb_000000] (4.5625in,3.98892in) circle(0.083022in); +\pgftext[at={\pgfpoint{4.5625in}{3.98892in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$1$}}} +\draw (4.25in,3.74159in)--(4.5625in,3.74159in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](4.25in,3.74159in)--(4.5625in,3.74159in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (4.25in,3.74159in)--(4.5625in,3.74159in); +\draw (4.25in,3.74159in)--(4.00373in,3.43376in); +\draw [fill](4.07504in,3.5229in)--(4.05884in,3.53586in)-- + (4.00373in,3.43376in)--(4.09125in,3.50993in)--(4.07504in,3.5229in)--cycle; +\filldraw[color=rgb_ffffff] (4.5625in,3.74159in) circle(0.083022in); +\draw[color=rgb_000000] (4.5625in,3.74159in) circle(0.083022in); +\pgftext[at={\pgfpoint{4.5625in}{3.74159in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$2$}}} +\draw (4.25in,3.48996in)--(4.5625in,3.48996in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](4.25in,3.48996in)--(4.5625in,3.48996in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (4.25in,3.48996in)--(4.5625in,3.48996in); +\draw (4.25in,3.48996in)--(4.04991in,3.23984in); +\draw [fill](4.12122in,3.32898in)--(4.10501in,3.34195in)-- + (4.04991in,3.23984in)--(4.13743in,3.31602in)--(4.12122in,3.32898in)--cycle; +\filldraw[color=rgb_ffffff] (4.5625in,3.48996in) circle(0.083022in); +\draw[color=rgb_000000] (4.5625in,3.48996in) circle(0.083022in); +\pgftext[at={\pgfpoint{4.5625in}{3.48996in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$3$}}} +\pgftext[at={\pgfpoint{4.25in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rho$}}} +\pgftext[at={\pgfpoint{4.5625in}{0.250934in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}\textsc{Fig.~4} -- Central form factors, knee variation.}}} +\pgftext[at={\pgfpoint{0.792912in}{2.375in}}] {\makebox(0,0)[r]{\rotatebox{90}{\hbox{\color{rgb_000000}\Code{FFCR} and/or \Code{FFCI}}}}} +\pgftext[at={\pgfpoint{2.60571in}{5.58857in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{R0 = 1.20},\quad \Code{A = 0.52},\quad \Code{FN2A = 1},\quad \Code{PMA = 1},\quad $\rho_{m_A} = \bar{\rho}_N = 3.24$}}} +\pgftext[at={\pgfpoint{4.38857in}{5.70286in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}\framebox{p - Cu\quad $9.75$~\MeV}}}} +\filldraw[color=rgb_ffffff] (3.44in,5.37143in) circle(0.083022in); +\draw[color=rgb_000000] (3.44in,5.37143in) circle(0.083022in); +\pgftext[at={\pgfpoint{3.44in}{5.37143in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$1$}}} +\pgftext[at={\pgfpoint{3.60604in}{5.37143in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN1A = 0.01}}}} +\pgftext[at={\pgfpoint{4.8237in}{5.37143in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = 0}}}} +\filldraw[color=rgb_ffffff] (3.44in,5.18857in) circle(0.083022in); +\draw[color=rgb_000000] (3.44in,5.18857in) circle(0.083022in); +\pgftext[at={\pgfpoint{3.44in}{5.18857in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$2$}}} +\pgftext[at={\pgfpoint{3.60604in}{5.18857in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN1A = 1}}}} +\pgftext[at={\pgfpoint{4.8237in}{5.18857in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = 0}}}} +\pgftext[at={\pgfpoint{5.81996in}{5.18857in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}(Standard form factor)}}} +\filldraw[color=rgb_ffffff] (3.44in,5.00571in) circle(0.083022in); +\draw[color=rgb_000000] (3.44in,5.00571in) circle(0.083022in); +\pgftext[at={\pgfpoint{3.44in}{5.00571in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$3$}}} +\pgftext[at={\pgfpoint{3.60604in}{5.00571in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN1A = 3}}}} +\pgftext[at={\pgfpoint{4.8237in}{5.00571in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = 0.046}}}} +\end{tikzpicture} diff --git a/29784-t/images/030a.eepic b/29784-t/images/030a.eepic new file mode 100644 index 0000000..e21390f --- /dev/null +++ b/29784-t/images/030a.eepic @@ -0,0 +1,501 @@ +%% Generated from 030a.xp on Sun May 17 12:43:54 EDT 2009 by +%% ePiX-1.2.6 +%% +%% Cartesian bounding box: [0,8] x [0,6] +%% Actual size: 8 x 6in +%% Figure offset: left by 0in, down by 0in +%% +%% usepackages tikz +%% +\xdefinecolor{rgb_000000}{rgb}{0,0,0}% +\xdefinecolor{rgb_ffffff}{rgb}{1,1,1}% +\begin{tikzpicture} +\pgfsetlinewidth{0.4pt} +\useasboundingbox (0in,0in) rectangle (8in,6in); +\draw (0.75in,0.5in)--(8in,0.5in); +\draw (8in,4.25in)-- + (0.75in,4.25in)--(0.75in,0.5in); +\draw (2.06818in,0.5in)--(2.06818in,4.25in); +\draw (3.38636in,0.5in)--(3.38636in,4.25in); +\draw (4.70455in,0.5in)--(4.70455in,4.25in); +\draw (6.02273in,0.5in)--(6.02273in,4.25in); +\draw (7.34091in,0.5in)--(7.34091in,4.25in); +\draw (0.75in,1.4375in)--(8in,1.4375in); +\draw (0.75in,2.375in)--(8in,2.375in); +\draw (0.75in,3.3125in)--(8in,3.3125in); +\pgfsetlinewidth{0.8pt} +\draw (0.75in,0.5in)--(8in,0.5in)--(8in,4.25in)--(0.75in,4.25in)--(0.75in,0.5in)--cycle; +\draw (0.75in,0.5in)--(7.34091in,0.5in); +\pgftext[at={\pgfpoint{0.75in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.06818in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.38636in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.70455in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.02273in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.34091in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.40909in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.06818in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.72727in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.38636in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.04545in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.70455in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.36364in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.02273in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.68182in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.34091in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$0$}}} +\pgftext[at={\pgfpoint{2.06818in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$1$}}} +\pgftext[at={\pgfpoint{3.38636in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$2$}}} +\pgftext[at={\pgfpoint{4.70455in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$3$}}} +\pgftext[at={\pgfpoint{6.02273in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$4$}}} +\pgftext[at={\pgfpoint{7.34091in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$5$}}} +\draw (0.75in,0.5in)--(0.75in,4.25in); +\pgftext[at={\pgfpoint{0.75in}{0.5in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{1.4375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{2.375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{3.3125in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{4.25in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{0.5in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{0.96875in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{1.4375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{1.90625in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{2.375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{2.84375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{3.3125in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{3.78125in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{4.25in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{0.694652in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0$}}} +\pgftext[at={\pgfpoint{0.694652in}{1.4375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.1$}}} +\pgftext[at={\pgfpoint{0.694652in}{2.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.2$}}} +\pgftext[at={\pgfpoint{0.694652in}{3.3125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.3$}}} +\draw (0.75in,4.25in)--(7.34091in,4.25in); +\pgftext[at={\pgfpoint{0.75in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.06818in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.38636in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.70455in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.02273in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.34091in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{0.75in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.40909in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.06818in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.72727in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.38636in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.04545in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.70455in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.36364in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.02273in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.68182in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.34091in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\draw (8in,0.5in)--(8in,4.25in); +\pgftext[at={\pgfpoint{8in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.4375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.3125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{4.25in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{0.96875in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.4375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.90625in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.84375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.3125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.78125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{4.25in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\draw (0.75in,0.580493in)--(0.773917in,0.572947in)-- + (0.801095in,0.564448in)--(0.828273in,0.556098in)-- + (0.855451in,0.547972in)--(0.882629in,0.540145in)-- + (0.909807in,0.532691in)--(0.936985in,0.525686in)-- + (0.964163in,0.519204in)--(0.991341in,0.51332in)-- + (1.01852in,0.508108in)--(1.0457in,0.503643in)-- + (1.07287in,0.5in); +\draw (1.39901in,0.5in)-- + (1.42619in,0.500945in)--(1.45337in,0.50173in)-- + (1.48054in,0.502385in)--(1.50772in,0.502941in)-- + (1.5349in,0.503427in)--(1.56208in,0.503874in)-- + (1.58926in,0.504312in)--(1.61643in,0.50477in)-- + (1.64361in,0.505279in)--(1.67079in,0.505869in)-- + (1.69797in,0.506569in)--(1.72515in,0.507411in)-- + (1.75232in,0.508416in)--(1.7795in,0.509575in)-- + (1.80668in,0.510871in)--(1.83386in,0.512288in)-- + (1.86104in,0.513808in)--(1.88821in,0.515415in)-- + (1.91539in,0.517093in)--(1.94257in,0.518823in)-- + (1.96975in,0.520589in)--(1.99693in,0.522376in)-- + (2.0241in,0.524164in)--(2.05128in,0.525939in)-- + (2.07846in,0.527689in)--(2.10564in,0.529433in)-- + (2.13282in,0.531194in)--(2.15999in,0.532998in)-- + (2.18717in,0.534868in)--(2.21435in,0.53683in)-- + (2.24153in,0.538907in)--(2.26871in,0.541123in)-- + (2.29588in,0.543504in)--(2.32306in,0.546074in)-- + (2.35024in,0.548857in)--(2.37742in,0.551877in)-- + (2.4046in,0.555155in)--(2.43177in,0.558691in)-- + (2.45895in,0.562482in)--(2.48613in,0.566524in)-- + (2.51331in,0.570813in)--(2.54049in,0.575346in)-- + (2.56766in,0.58012in)--(2.59484in,0.585129in)-- + (2.62202in,0.590372in)--(2.6492in,0.595844in)-- + (2.67638in,0.601541in)--(2.70355in,0.60746in)-- + (2.73073in,0.613599in)--(2.75791in,0.619959in)-- + (2.78509in,0.626544in)--(2.81227in,0.633356in)-- + (2.83944in,0.640398in)--(2.86662in,0.647673in)-- + (2.8938in,0.655185in)--(2.92098in,0.662936in)-- + (2.94816in,0.670929in)--(2.97533in,0.679168in)-- + (3.00251in,0.687655in)--(3.02969in,0.696393in)-- + (3.05687in,0.705395in)--(3.08405in,0.714707in)-- + (3.11122in,0.724385in)--(3.1384in,0.734485in)-- + (3.16558in,0.745064in)--(3.19276in,0.756176in)-- + (3.21994in,0.767879in)--(3.24711in,0.780228in)-- + (3.27429in,0.793279in)--(3.30147in,0.807088in)-- + (3.32865in,0.821711in)--(3.35583in,0.837204in)-- + (3.383in,0.853614in)--(3.41018in,0.870955in)-- + (3.43736in,0.889231in)--(3.46454in,0.908447in)-- + (3.49172in,0.928608in)--(3.51889in,0.949719in)-- + (3.54607in,0.971784in)--(3.57325in,0.994808in)-- + (3.60043in,1.0188in)--(3.62761in,1.04375in)-- + (3.65478in,1.06968in)--(3.68196in,1.09659in)-- + (3.70914in,1.12448in)--(3.73632in,1.15332in)--(3.7635in,1.1831in)-- + (3.79067in,1.2138in)--(3.81785in,1.24538in)-- + (3.84503in,1.27783in)--(3.87221in,1.31112in)-- + (3.89939in,1.34523in)--(3.92656in,1.38013in)-- + (3.95374in,1.41581in)--(3.98092in,1.45223in)-- + (4.0081in,1.48938in)--(4.03528in,1.52722in)-- + (4.06245in,1.56573in)--(4.08963in,1.60486in)-- + (4.11681in,1.64458in)--(4.14399in,1.68483in)-- + (4.17117in,1.72559in)--(4.19834in,1.76681in)-- + (4.22552in,1.80846in)--(4.2527in,1.85049in)-- + (4.27988in,1.89287in)--(4.30706in,1.93556in)-- + (4.33423in,1.97851in)--(4.36141in,2.02164in)-- + (4.38859in,2.06471in)--(4.41577in,2.10742in)-- + (4.44294in,2.14946in)--(4.47012in,2.19056in)-- + (4.4973in,2.23041in)--(4.52448in,2.26873in)--(4.55166in,2.3052in)-- + (4.57883in,2.33955in)--(4.60601in,2.37148in)-- + (4.63319in,2.40068in)--(4.66037in,2.42688in)-- + (4.67396in,2.43877in)--(4.68755in,2.44987in)-- + (4.70114in,2.46023in)--(4.71472in,2.46989in)-- + (4.72831in,2.47889in)--(4.7419in,2.48727in)-- + (4.75549in,2.49508in)--(4.76908in,2.50235in)-- + (4.78267in,2.50913in)--(4.79626in,2.51545in)-- + (4.80985in,2.52137in)--(4.82344in,2.52693in)-- + (4.83703in,2.53213in)--(4.85061in,2.53692in)--(4.8642in,2.5412in)-- + (4.87779in,2.54488in)--(4.89138in,2.54787in)-- + (4.90497in,2.55008in)--(4.91856in,2.55141in)-- + (4.93215in,2.55177in)--(4.94574in,2.55108in)-- + (4.95933in,2.54924in)--(4.97292in,2.54616in)-- + (4.9865in,2.54175in)--(5.01368in,2.52876in)--(5.04086in,2.5105in)-- + (5.06804in,2.48742in)--(5.09522in,2.45995in)-- + (5.12239in,2.42853in)--(5.14957in,2.39357in)-- + (5.17675in,2.35553in)--(5.20393in,2.31483in)-- + (5.23111in,2.27191in)--(5.25828in,2.22719in)-- + (5.28546in,2.18113in)--(5.31264in,2.13414in)-- + (5.33982in,2.08661in)--(5.367in,2.03873in)--(5.39417in,1.9906in)-- + (5.42135in,1.94236in)--(5.44853in,1.89412in)-- + (5.47571in,1.84603in)--(5.50289in,1.79818in)-- + (5.53006in,1.75073in)--(5.55724in,1.70377in)-- + (5.58442in,1.65745in)--(5.6116in,1.61188in)-- + (5.63878in,1.56719in)--(5.66595in,1.5235in)-- + (5.69313in,1.48086in)--(5.72031in,1.43935in)-- + (5.74749in,1.39902in)--(5.77467in,1.35994in)-- + (5.80184in,1.32216in)--(5.82902in,1.28574in)-- + (5.8562in,1.25075in)--(5.88338in,1.21725in)-- + (5.91056in,1.18528in)--(5.93773in,1.15493in)-- + (5.96491in,1.12624in)--(5.99209in,1.09924in)-- + (6.01927in,1.07385in)--(6.04645in,1.04994in)-- + (6.07362in,1.0274in)--(6.1008in,1.0061in)--(6.12798in,0.985921in)--(6.15516in,0.966745in)--(6.18234in,0.94845in)-- + (6.20951in,0.930916in)--(6.23669in,0.914022in)-- + (6.26387in,0.897647in)--(6.29105in,0.88167in)-- + (6.31823in,0.865993in)--(6.3454in,0.850605in)-- + (6.37258in,0.835516in)--(6.39976in,0.820737in)-- + (6.42694in,0.806277in)--(6.45412in,0.792149in)-- + (6.48129in,0.778362in)--(6.50847in,0.764928in)-- + (6.53565in,0.751856in)--(6.56283in,0.739157in)-- + (6.59001in,0.726842in)--(6.61718in,0.714921in)-- + (6.64436in,0.703404in)--(6.67154in,0.692292in)-- + (6.69872in,0.681588in)--(6.7259in,0.671292in)-- + (6.75307in,0.661406in)--(6.78025in,0.65193in)-- + (6.80743in,0.642866in)--(6.83461in,0.634214in)-- + (6.86179in,0.625976in)--(6.88896in,0.618152in)-- + (6.91614in,0.610745in)--(6.94332in,0.603755in)-- + (6.9705in,0.59718in)--(6.99768in,0.591008in)-- + (7.02485in,0.585225in)--(7.05203in,0.579815in)-- + (7.07921in,0.574763in)--(7.10639in,0.570054in)-- + (7.13357in,0.565674in)--(7.16074in,0.561607in)-- + (7.18792in,0.557838in)--(7.2151in,0.554352in); +\draw (7.2151in,0.554352in)--(7.24228in,0.551135in)-- + (7.26946in,0.548172in)--(7.29663in,0.545446in)-- + (7.32381in,0.542941in)--(7.35099in,0.540637in)-- + (7.37817in,0.538516in)--(7.40535in,0.53656in)-- + (7.43252in,0.534751in)--(7.4597in,0.53307in)-- + (7.48688in,0.531498in)--(7.51406in,0.530017in)-- + (7.54124in,0.528609in)--(7.56841in,0.527256in)-- + (7.59559in,0.525939in)--(7.62277in,0.524607in)-- + (7.64995in,0.523293in)--(7.67713in,0.521996in)-- + (7.7043in,0.520717in)--(7.73148in,0.519455in)-- + (7.75866in,0.518211in)--(7.78584in,0.516985in)-- + (7.81302in,0.515776in)--(7.84019in,0.514585in)-- + (7.86737in,0.513411in)--(7.89455in,0.512255in)--(7.92173in,0.511117in); +\draw (4.82344in,2.52693in)--(4.83703in,2.53089in)-- + (4.85061in,2.53476in)--(4.8642in,2.53846in)-- + (4.87779in,2.54189in)--(4.89138in,2.54497in)-- + (4.90497in,2.5476in)--(4.91856in,2.54971in)-- + (4.93215in,2.55119in)--(4.94574in,2.55197in)-- + (4.95933in,2.55195in)--(4.97292in,2.55104in)-- + (4.9865in,2.54916in)--(5.01368in,2.54228in)-- + (5.04086in,2.53139in)--(5.06804in,2.51671in)-- + (5.09522in,2.49848in)--(5.12239in,2.47693in)-- + (5.14957in,2.45229in)--(5.17675in,2.4248in)--(5.20393in,2.3947in)-- + (5.23111in,2.3622in)--(5.25828in,2.32755in)-- + (5.28546in,2.29098in)--(5.31264in,2.25272in)-- + (5.33982in,2.21297in)--(5.367in,2.17184in)--(5.39417in,2.12941in)-- + (5.42135in,2.08573in)--(5.44853in,2.04089in)-- + (5.47571in,1.99496in)--(5.50289in,1.94802in)-- + (5.53006in,1.90013in)--(5.55724in,1.85137in)-- + (5.58442in,1.80181in)--(5.6116in,1.75153in)-- + (5.63878in,1.70059in)--(5.66595in,1.64912in)-- + (5.69313in,1.59737in)--(5.72031in,1.54563in)-- + (5.74749in,1.49421in)--(5.77467in,1.4434in)-- + (5.80184in,1.39351in)--(5.82902in,1.34482in)-- + (5.8562in,1.29764in)--(5.88338in,1.25227in)-- + (5.91056in,1.20899in)--(5.93773in,1.16812in)-- + (5.96491in,1.12994in)--(5.99209in,1.09467in)-- + (6.01927in,1.06218in)--(6.04645in,1.03223in)-- + (6.07362in,1.00462in)--(6.1008in,0.979113in)-- + (6.12798in,0.955491in)--(6.15516in,0.933532in)-- + (6.18234in,0.913014in)--(6.20951in,0.893715in)-- + (6.23669in,0.875412in)--(6.26387in,0.857884in)-- + (6.29105in,0.840909in)--(6.31823in,0.824304in)-- + (6.3454in,0.80804in)--(6.37258in,0.79213in)-- + (6.39976in,0.776586in)--(6.42694in,0.761418in)-- + (6.45412in,0.746637in)--(6.48129in,0.732257in)-- + (6.50847in,0.718287in)--(6.53565in,0.70474in)-- + (6.56283in,0.691627in)--(6.59001in,0.67896in)-- + (6.61718in,0.666749in)--(6.64436in,0.655006in)-- + (6.67154in,0.643741in)--(6.69872in,0.632962in)-- + (6.7259in,0.622677in)--(6.75307in,0.612897in)-- + (6.78025in,0.60363in)--(6.80743in,0.594884in)-- + (6.83461in,0.586668in)--(6.86179in,0.578992in)-- + (6.88896in,0.571864in)--(6.91614in,0.565293in)-- + (6.94332in,0.559289in)--(6.9705in,0.553851in)-- + (6.99768in,0.548955in)--(7.02485in,0.544565in)-- + (7.05203in,0.540648in)--(7.07921in,0.537169in)-- + (7.10639in,0.534095in)--(7.13357in,0.531391in)-- + (7.16074in,0.529024in)--(7.18792in,0.526958in)-- + (7.2151in,0.52516in)--(7.24228in,0.523597in)-- + (7.26946in,0.522233in)--(7.29663in,0.521039in)-- + (7.32381in,0.519996in)--(7.35099in,0.519091in)-- + (7.37817in,0.518309in)--(7.40535in,0.517637in)-- + (7.43252in,0.517061in)--(7.4597in,0.516566in)-- + (7.48688in,0.516139in)--(7.51406in,0.515765in)-- + (7.54124in,0.51543in)--(7.56841in,0.51512in)-- + (7.59559in,0.514822in)--(7.62277in,0.514529in)-- + (7.64995in,0.514233in)--(7.67713in,0.513934in)-- + (7.7043in,0.513633in)--(7.73148in,0.513328in)-- + (7.75866in,0.513021in)--(7.78584in,0.51271in)-- + (7.81302in,0.512397in)--(7.84019in,0.512081in)-- + (7.86737in,0.511763in)--(7.89455in,0.511441in)--(7.92173in,0.511117in); +\draw (4.82344in,2.52693in)--(4.83703in,2.53009in)-- + (4.85061in,2.53321in)--(4.8642in,2.53629in)-- + (4.87779in,2.53927in)--(4.89138in,2.54214in)-- + (4.90497in,2.54487in)--(4.91856in,2.54742in)-- + (4.93215in,2.54977in)--(4.94574in,2.55189in)-- + (4.95933in,2.55375in)--(4.97292in,2.55532in)-- + (4.9865in,2.55657in)--(5.01368in,2.55802in)-- + (5.04086in,2.55791in)--(5.06804in,2.55609in)-- + (5.09522in,2.55237in)--(5.12239in,2.54659in)-- + (5.14957in,2.53858in)--(5.17675in,2.52817in)-- + (5.20393in,2.5152in)--(5.23111in,2.4995in)--(5.25828in,2.48089in)-- + (5.28546in,2.45921in)--(5.31264in,2.43429in)-- + (5.33982in,2.40601in)--(5.367in,2.37442in)--(5.39417in,2.33965in)-- + (5.42135in,2.30178in)--(5.44853in,2.26094in)-- + (5.47571in,2.21723in)--(5.50289in,2.17076in)-- + (5.53006in,2.12162in)--(5.55724in,2.06994in)-- + (5.58442in,2.01582in)--(5.6116in,1.95937in)-- + (5.63878in,1.90069in)--(5.66595in,1.83995in)-- + (5.69313in,1.77757in)--(5.72031in,1.71401in)-- + (5.74749in,1.64975in)--(5.77467in,1.58526in)-- + (5.80184in,1.52101in)--(5.82902in,1.45747in)-- + (5.8562in,1.39512in)--(5.88338in,1.33443in)-- + (5.91056in,1.27586in)--(5.93773in,1.21989in)--(5.96491in,1.167in)-- + (5.99209in,1.11754in)--(6.01927in,1.07144in)-- + (6.04645in,1.02852in)--(6.07362in,0.988612in)-- + (6.1008in,0.95152in)--(6.12798in,0.917069in)-- + (6.15516in,0.885077in)--(6.18234in,0.855363in)-- + (6.20951in,0.827748in)--(6.23669in,0.80205in)-- + (6.26387in,0.778088in)--(6.29105in,0.755682in)-- + (6.31823in,0.734671in)--(6.3454in,0.714978in)-- + (6.37258in,0.696544in)--(6.39976in,0.679313in)-- + (6.42694in,0.663226in)--(6.45412in,0.648225in)-- + (6.48129in,0.634254in)--(6.50847in,0.621254in)-- + (6.53565in,0.609168in)--(6.56283in,0.597938in)-- + (6.59001in,0.587507in)--(6.61718in,0.577816in)-- + (6.64436in,0.568816in)--(6.67154in,0.560487in)-- + (6.69872in,0.552813in)--(6.7259in,0.545784in)-- + (6.75307in,0.539384in)--(6.78025in,0.533601in)-- + (6.80743in,0.528422in)--(6.83461in,0.523834in)-- + (6.86179in,0.519822in)--(6.88896in,0.516374in)-- + (6.91614in,0.513477in)--(6.94332in,0.511117in)-- + (6.9705in,0.508235in)--(6.99768in,0.505877in)-- + (7.02485in,0.504043in)--(7.05203in,0.502733in)-- + (7.07921in,0.501947in)--(7.10639in,0.501685in)-- + (7.13357in,0.501947in)--(7.16074in,0.502733in)-- + (7.18792in,0.504043in)--(7.2151in,0.505877in)-- + (7.24228in,0.508235in)--(7.26946in,0.511117in); +\draw (4.82344in,2.52693in)--(4.83023in,2.52927in)-- + (4.83703in,2.53161in)--(4.84382in,2.53393in)-- + (4.85061in,2.53622in)--(4.85741in,2.53849in)-- + (4.8642in,2.54072in)--(4.871in,2.5429in)--(4.87779in,2.54503in)-- + (4.88459in,2.5471in)--(4.89138in,2.5491in)--(4.89818in,2.55103in)-- + (4.90497in,2.55287in)--(4.91177in,2.55462in)-- + (4.91856in,2.55632in)--(4.92535in,2.55801in)-- + (4.93215in,2.55972in)--(4.93894in,2.56149in)-- + (4.94574in,2.56337in)--(4.95253in,2.56537in)-- + (4.95933in,2.56756in)--(4.96612in,2.56995in)-- + (4.97292in,2.5726in)--(4.97971in,2.57554in)--(4.9865in,2.5788in)-- + (4.9933in,2.58244in)--(5.00009in,2.58647in)-- + (5.00689in,2.59094in)--(5.01368in,2.59588in)-- + (5.02048in,2.60132in)--(5.02727in,2.60731in)-- + (5.03407in,2.61388in)--(5.04086in,2.62106in)-- + (5.04766in,2.62889in)--(5.05445in,2.6374in)-- + (5.06124in,2.64664in)--(5.06804in,2.65662in)-- + (5.07483in,2.66738in)--(5.08163in,2.67886in)-- + (5.08842in,2.69101in)--(5.09522in,2.70376in)-- + (5.10201in,2.71704in)--(5.10881in,2.73079in)-- + (5.1156in,2.74495in)--(5.12239in,2.75946in)-- + (5.12919in,2.77425in)--(5.13598in,2.78925in)-- + (5.14278in,2.80441in)--(5.14957in,2.81966in)-- + (5.15637in,2.83496in)--(5.16316in,2.85032in)-- + (5.16996in,2.86579in)--(5.17675in,2.8814in)-- + (5.18355in,2.89719in)--(5.19034in,2.9132in)-- + (5.19713in,2.92947in)--(5.20393in,2.94604in)-- + (5.21072in,2.96295in)--(5.21752in,2.98022in)-- + (5.22431in,2.99792in)--(5.23111in,3.01606in)-- + (5.2379in,3.03467in)--(5.2447in,3.05369in)--(5.25149in,3.07305in)-- + (5.25828in,3.09267in)--(5.26508in,3.11246in)-- + (5.27187in,3.13236in)--(5.27867in,3.15228in)-- + (5.28546in,3.17214in)--(5.29226in,3.19188in)-- + (5.29905in,3.2114in)--(5.30585in,3.23064in)-- + (5.31264in,3.24951in)--(5.31944in,3.26792in)-- + (5.32623in,3.28576in)--(5.33302in,3.30287in)-- + (5.33982in,3.31912in)--(5.34661in,3.33437in)-- + (5.35341in,3.34848in)--(5.3602in,3.36132in)--(5.367in,3.37273in)-- + (5.37379in,3.38259in)--(5.38059in,3.39075in)-- + (5.38738in,3.39708in)--(5.39417in,3.40143in)-- + (5.40097in,3.40372in)--(5.40776in,3.40405in)-- + (5.41456in,3.40259in)--(5.42135in,3.39948in)-- + (5.42815in,3.3949in)--(5.43494in,3.389in)--(5.44174in,3.38193in)-- + (5.44853in,3.37386in)--(5.45533in,3.36495in)-- + (5.46212in,3.35535in)--(5.46891in,3.34523in)-- + (5.47571in,3.33473in)--(5.4825in,3.32392in)--(5.4893in,3.3124in)-- + (5.49609in,3.29968in)--(5.50289in,3.28527in)-- + (5.50968in,3.26866in)--(5.51648in,3.24937in)-- + (5.52327in,3.22689in)--(5.53006in,3.20073in)-- + (5.53686in,3.1704in)--(5.54365in,3.1354in)--(5.55045in,3.09523in)-- + (5.55724in,3.04941in)--(5.56404in,2.99762in)-- + (5.57083in,2.94034in)--(5.57763in,2.87823in)-- + (5.58442in,2.81197in)--(5.59121in,2.74221in)-- + (5.59801in,2.66962in)--(5.6048in,2.59487in)--(5.6116in,2.51862in)-- + (5.61839in,2.44154in)--(5.62519in,2.36429in)-- + (5.63198in,2.28754in)--(5.63878in,2.21196in)-- + (5.65237in,2.06606in)--(5.66595in,1.9275in)-- + (5.67954in,1.79628in)--(5.69313in,1.67243in)-- + (5.70672in,1.55595in)--(5.72031in,1.44687in)-- + (5.7339in,1.34519in)--(5.74749in,1.25093in)-- + (5.76108in,1.16411in)--(5.77467in,1.08473in)-- + (5.78826in,1.01281in)--(5.80184in,0.94837in)-- + (5.81543in,0.891324in)--(5.82902in,0.841217in)-- + (5.84261in,0.797493in)--(5.8562in,0.759601in)-- + (5.86979in,0.726987in)--(5.88338in,0.6991in)-- + (5.89697in,0.675384in)--(5.91056in,0.655289in)-- + (5.92415in,0.638261in)--(5.93773in,0.623747in)-- + (5.95132in,0.611194in)--(5.96491in,0.600049in)-- + (5.99209in,0.580464in)--(6.01927in,0.564022in)-- + (6.04645in,0.550444in)--(6.07362in,0.539451in)-- + (6.1008in,0.530765in)--(6.12798in,0.524106in)-- + (6.15516in,0.519196in)--(6.18234in,0.515756in)-- + (6.20951in,0.513507in)--(6.23669in,0.512169in)-- + (6.26387in,0.511466in)--(6.29105in,0.511117in)-- + (6.31823in,0.510888in)--(6.3454in,0.510728in)-- + (6.37258in,0.510627in)--(6.39976in,0.510578in)-- + (6.42694in,0.510574in)--(6.45412in,0.510606in)-- + (6.48129in,0.510666in)--(6.50847in,0.510747in)-- + (6.53565in,0.51084in)--(6.56283in,0.510938in)-- + (6.59001in,0.511033in)--(6.61718in,0.511117in)-- + (6.64436in,0.511221in)--(6.67154in,0.511306in)-- + (6.69872in,0.511372in)--(6.7259in,0.511419in)-- + (6.75307in,0.511448in)--(6.78025in,0.511457in)-- + (6.80743in,0.511448in)--(6.83461in,0.511419in)-- + (6.86179in,0.511372in)--(6.88896in,0.511306in)-- + (6.91614in,0.511221in)--(6.94332in,0.511117in); +\pgfsetlinewidth{0.4pt} +\draw (6.35227in,2.54954in)--(6.94545in,2.54954in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](6.35227in,2.54954in)--(6.94545in,2.54954in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (6.35227in,2.54954in)--(6.94545in,2.54954in); +\draw (6.35227in,2.54954in)--(5.37147in,2.06126in); +\pgfsetfillcolor{rgb_000000} +\draw [fill](5.47366in,2.11213in)--(5.46441in,2.13071in)-- + (5.37147in,2.06126in)--(5.48291in,2.09355in)--(5.47366in,2.11213in)--cycle; +\filldraw[color=rgb_ffffff] (6.94545in,2.54954in) circle(0.083022in); +\draw[color=rgb_000000] (6.94545in,2.54954in) circle(0.083022in); +\pgftext[at={\pgfpoint{6.94545in}{2.54954in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$1$}}} +\draw (6.35227in,2.72882in)--(6.68182in,2.72882in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](6.35227in,2.72882in)--(6.68182in,2.72882in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (6.35227in,2.72882in)--(6.68182in,2.72882in); +\draw (6.35227in,2.72882in)--(5.33918in,2.22446in); +\draw [fill](5.44137in,2.27534in)--(5.43212in,2.29392in)-- + (5.33918in,2.22446in)--(5.45062in,2.25676in)--(5.44137in,2.27534in)--cycle; +\filldraw[color=rgb_ffffff] (6.68182in,2.72882in) circle(0.083022in); +\draw[color=rgb_000000] (6.68182in,2.72882in) circle(0.083022in); +\pgftext[at={\pgfpoint{6.68182in}{2.72882in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$2$}}} +\draw (6.35227in,2.93217in)--(6.94545in,2.93217in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](6.35227in,2.93217in)--(6.94545in,2.93217in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (6.35227in,2.93217in)--(6.94545in,2.93217in); +\draw (6.35227in,2.93217in)--(5.33272in,2.42459in); +\draw [fill](5.43491in,2.47547in)--(5.42566in,2.49405in)-- + (5.33272in,2.42459in)--(5.44416in,2.45689in)--(5.43491in,2.47547in)--cycle; +\filldraw[color=rgb_ffffff] (6.94545in,2.93217in) circle(0.083022in); +\draw[color=rgb_000000] (6.94545in,2.93217in) circle(0.083022in); +\pgftext[at={\pgfpoint{6.94545in}{2.93217in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$3$}}} +\draw (6.35227in,3.16867in)--(6.68182in,3.16867in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](6.35227in,3.16867in)--(6.68182in,3.16867in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (6.35227in,3.16867in)--(6.68182in,3.16867in); +\draw (6.35227in,3.16867in)--(5.58457in,2.78647in); +\draw [fill](5.68676in,2.83734in)--(5.67751in,2.85593in)-- + (5.58457in,2.78647in)--(5.69601in,2.81876in)--(5.68676in,2.83734in)--cycle; +\filldraw[color=rgb_ffffff] (6.68182in,3.16867in) circle(0.083022in); +\draw[color=rgb_000000] (6.68182in,3.16867in) circle(0.083022in); +\pgftext[at={\pgfpoint{6.68182in}{3.16867in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$4$}}} +\pgftext[at={\pgfpoint{5.36364in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rho$}}} +\pgftext[at={\pgfpoint{4.375in}{0.250934in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}\textsc{Fig.~5} -- Spin-orbit form factor (derivative form). Tail variation.}}} +\pgftext[at={\pgfpoint{0.417912in}{2.375in}}] {\makebox(0,0)[r]{\rotatebox{90}{\hbox{\color{rgb_000000}\Code{FFSR} and/or \Code{FFSI}}}}} +\pgftext[at={\pgfpoint{2.05714in}{5.50857in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{R0 = 1.2},\quad \Code{A = 0.52},\quad \Code{FN1A = 3},\quad \Code{PMA = 1},\quad $\rho_{m_A} = \bar{\rho}_N = 3.24$}}} +\pgftext[at={\pgfpoint{4in}{5.65714in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}\framebox{p - Cu\quad $9.75$~\MeV}}}} +\filldraw[color=rgb_ffffff] (2.46857in,5.33714in) circle(0.083022in); +\draw[color=rgb_000000] (2.46857in,5.33714in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.46857in}{5.33714in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$1$}}} +\pgftext[at={\pgfpoint{2.63462in}{5.33714in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN2A = 0.01}}}} +\filldraw[color=rgb_ffffff] (2.46857in,5.14286in) circle(0.083022in); +\draw[color=rgb_000000] (2.46857in,5.14286in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.46857in}{5.14286in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$2$}}} +\pgftext[at={\pgfpoint{2.63462in}{5.14286in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN2A = 1}\qquad(Standard derivative form factor)}}} +\filldraw[color=rgb_ffffff] (2.46857in,4.94857in) circle(0.083022in); +\draw[color=rgb_000000] (2.46857in,4.94857in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.46857in}{4.94857in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$3$}}} +\pgftext[at={\pgfpoint{2.63462in}{4.94857in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN2A = 3}}}} +\filldraw[color=rgb_ffffff] (2.46857in,4.75429in) circle(0.083022in); +\draw[color=rgb_000000] (2.46857in,4.75429in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.46857in}{4.75429in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$4$}}} +\pgftext[at={\pgfpoint{2.63462in}{4.75429in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN2A = 10}}}} +\end{tikzpicture} diff --git a/29784-t/images/031a.eepic b/29784-t/images/031a.eepic new file mode 100644 index 0000000..0d67002 --- /dev/null +++ b/29784-t/images/031a.eepic @@ -0,0 +1,429 @@ +%% Generated from 031a.xp on Sun May 17 12:43:56 EDT 2009 by +%% ePiX-1.2.6 +%% +%% Cartesian bounding box: [0,8] x [0,6] +%% Actual size: 8 x 6in +%% Figure offset: left by 0in, down by 0in +%% +%% usepackages tikz +%% +\xdefinecolor{rgb_000000}{rgb}{0,0,0}% +\xdefinecolor{rgb_ffffff}{rgb}{1,1,1}% +\begin{tikzpicture} +\pgfsetlinewidth{0.4pt} +\useasboundingbox (0in,0in) rectangle (8in,6in); +\draw (1.125in,0.5in)--(8in,0.5in); +\draw (8in,4.25in)-- + (1.125in,4.25in)--(1.125in,0.5in); +\draw (2.5in,0.5in)--(2.5in,4.25in); +\draw (3.875in,0.5in)--(3.875in,4.25in); +\draw (5.25in,0.5in)--(5.25in,4.25in); +\draw (6.625in,0.5in)--(6.625in,4.25in); +\draw (8in,0.5in)--(8in,4.25in); +\draw (1.125in,1.125in)--(8in,1.125in); +\draw (1.125in,1.75in)--(8in,1.75in); +\draw (1.125in,2.375in)--(8in,2.375in); +\draw (1.125in,3in)--(8in,3in); +\draw (1.125in,3.625in)--(8in,3.625in); +\pgfsetlinewidth{0.8pt} +\draw (1.125in,0.5in)--(8in,0.5in)--(8in,4.25in)-- + (1.125in,4.25in)--(1.125in,0.5in)--cycle; +\draw (1.125in,0.5in)--(8in,0.5in); +\pgftext[at={\pgfpoint{1.125in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.5in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.875in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.25in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.625in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{8in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.4in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.675in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.95in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.225in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.5in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.775in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.05in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.325in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.6in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.875in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.15in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.425in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.7in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.975in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.25in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.525in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.8in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.075in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.35in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.625in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.9in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.175in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.45in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.725in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{8in}{0.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$0$}}} +\pgftext[at={\pgfpoint{2.5in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$5$}}} +\pgftext[at={\pgfpoint{3.875in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$10$}}} +\pgftext[at={\pgfpoint{5.25in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$15$}}} +\pgftext[at={\pgfpoint{6.625in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$20$}}} +\pgftext[at={\pgfpoint{8in}{0.444652in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$25$}}} +\draw (1.125in,0.5in)--(1.125in,4.25in); +\pgftext[at={\pgfpoint{1.125in}{0.5in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{1.125in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{1.75in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{2.375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{3in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{3.625in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{4.25in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{0.5in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{0.8125in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{1.125in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{1.4375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{1.75in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{2.0625in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{2.375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{2.6875in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{3in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{3.3125in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{3.625in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{3.9375in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{4.25in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.06965in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$-0.03$}}} +\pgftext[at={\pgfpoint{1.06965in}{1.125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$-0.02$}}} +\pgftext[at={\pgfpoint{1.06965in}{1.75in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$-0.01$}}} +\pgftext[at={\pgfpoint{1.06965in}{2.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0$}}} +\pgftext[at={\pgfpoint{1.06965in}{3in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.01$}}} +\pgftext[at={\pgfpoint{1.06965in}{3.625in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.02$}}} +\pgftext[at={\pgfpoint{1.06965in}{4.25in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.03$}}} +\draw (1.125in,4.25in)--(8in,4.25in); +\pgftext[at={\pgfpoint{1.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.5in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.875in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.25in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.625in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{8in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.4in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.675in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.95in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.225in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.5in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.775in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.05in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.325in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.6in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.875in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.15in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.425in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.7in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.975in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.25in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.525in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.8in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.075in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.35in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.625in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.9in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.175in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.45in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.725in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{8in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\draw (8in,0.5in)--(8in,4.25in); +\pgftext[at={\pgfpoint{8in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.75in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.625in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{4.25in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{0.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{0.8125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.4375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{1.75in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.0625in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{2.6875in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.3125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.625in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{3.9375in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{8in}{4.25in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\draw (1.125in,2.43931in)--(1.12574in,2.43851in)-- + (1.12649in,2.43772in)--(1.12723in,2.43693in)-- + (1.12798in,2.43614in)--(1.12872in,2.43536in)-- + (1.12947in,2.43458in)--(1.13021in,2.43381in)-- + (1.13096in,2.43305in)--(1.1317in,2.43229in)-- + (1.13245in,2.43153in)--(1.13319in,2.43078in)-- + (1.13394in,2.43004in)--(1.13468in,2.4293in)-- + (1.13543in,2.42857in)--(1.13617in,2.42784in)-- + (1.13692in,2.42712in)--(1.13766in,2.4264in)--(1.1384in,2.42569in)-- + (1.13915in,2.42498in)--(1.13989in,2.42428in)-- + (1.14064in,2.42358in)--(1.14138in,2.42289in)-- + (1.14213in,2.4222in)--(1.14287in,2.42152in)-- + (1.14362in,2.42085in)--(1.14436in,2.42018in)-- + (1.14511in,2.41951in)--(1.14585in,2.41886in)--(1.1466in,2.4182in)-- + (1.14734in,2.41755in)--(1.14809in,2.41691in)-- + (1.14883in,2.41627in)--(1.14957in,2.41564in)-- + (1.15032in,2.41502in)--(1.15106in,2.41439in)-- + (1.15181in,2.41378in)--(1.15255in,2.41317in)-- + (1.1533in,2.41256in)--(1.15404in,2.41196in)-- + (1.15479in,2.41137in)--(1.15553in,2.41078in)-- + (1.15628in,2.4102in)--(1.15702in,2.40962in)-- + (1.15777in,2.40905in)--(1.15851in,2.40849in)-- + (1.15926in,2.40793in)--(1.16in,2.40737in)--(1.16075in,2.40682in)-- + (1.16149in,2.40628in)--(1.16223in,2.40574in)-- + (1.16298in,2.40521in)--(1.16372in,2.40468in)-- + (1.16447in,2.40416in)--(1.16521in,2.40364in)-- + (1.16596in,2.40313in)--(1.1667in,2.40263in)-- + (1.16745in,2.40213in)--(1.16819in,2.40163in)-- + (1.16894in,2.40115in)--(1.16968in,2.40066in)-- + (1.17043in,2.40019in)--(1.17117in,2.39972in)-- + (1.17192in,2.39925in)--(1.17266in,2.39879in)-- + (1.17341in,2.39834in)--(1.17415in,2.39789in)-- + (1.17489in,2.39745in)--(1.17564in,2.39701in)-- + (1.17638in,2.39658in)--(1.17713in,2.39616in)-- + (1.17787in,2.39574in)--(1.17862in,2.39532in)-- + (1.17936in,2.39492in)--(1.18011in,2.39451in)-- + (1.18085in,2.39412in)--(1.1816in,2.39373in)-- + (1.18234in,2.39334in)--(1.18309in,2.39296in)-- + (1.18383in,2.39259in)--(1.18458in,2.39222in)-- + (1.18532in,2.39186in)--(1.18606in,2.39151in)-- + (1.18681in,2.39116in)--(1.18755in,2.39081in)-- + (1.1883in,2.39048in)--(1.18904in,2.39014in)-- + (1.18979in,2.38982in)--(1.19053in,2.3895in)-- + (1.19128in,2.38918in)--(1.19202in,2.38888in)-- + (1.19277in,2.38857in)--(1.19351in,2.38828in)-- + (1.19426in,2.38799in)--(1.195in,2.3877in)--(1.19575in,2.38742in)-- + (1.19649in,2.38715in)--(1.19724in,2.38688in)-- + (1.19798in,2.38662in)--(1.19872in,2.38637in)-- + (1.19947in,2.38612in)--(1.20021in,2.38588in)-- + (1.20096in,2.38564in)--(1.2017in,2.38541in)-- + (1.20245in,2.38519in)--(1.20319in,2.38497in)-- + (1.20394in,2.38475in)--(1.20468in,2.38455in)-- + (1.20543in,2.38435in)--(1.20617in,2.38415in)-- + (1.20692in,2.38397in)--(1.20766in,2.38378in)-- + (1.20841in,2.38361in)--(1.20915in,2.38344in)-- + (1.20989in,2.38327in)--(1.21064in,2.38312in)-- + (1.21138in,2.38296in)--(1.21213in,2.38282in)-- + (1.21287in,2.38268in)--(1.21362in,2.38255in)--(1.21436in,2.38242in); +\draw (1.125in,4.17579in)--(1.12576in,4.17412in)-- + (1.12655in,4.17243in)--(1.12737in,4.17074in)-- + (1.12822in,4.16903in)--(1.1291in,4.16732in)--(1.13001in,4.1656in)-- + (1.13095in,4.16387in)--(1.13192in,4.16213in)-- + (1.13291in,4.16038in)--(1.13394in,4.15863in)-- + (1.13499in,4.15687in)--(1.13607in,4.1551in)-- + (1.13717in,4.15332in)--(1.1383in,4.15154in)-- + (1.13946in,4.14976in)--(1.14064in,4.14796in)-- + (1.14185in,4.14616in)--(1.14308in,4.14436in)-- + (1.14434in,4.14255in)--(1.14562in,4.14074in)-- + (1.14692in,4.13892in)--(1.14825in,4.1371in)--(1.1496in,4.13527in)-- + (1.15097in,4.13344in)--(1.15237in,4.13161in)-- + (1.15379in,4.12978in)--(1.15523in,4.12794in)-- + (1.15669in,4.1261in)--(1.15817in,4.12426in)-- + (1.15967in,4.12242in)--(1.1612in,4.12057in)-- + (1.16274in,4.11873in)--(1.1643in,4.11688in)-- + (1.16588in,4.11503in)--(1.16748in,4.11319in)-- + (1.1691in,4.11134in)--(1.17074in,4.1095in)--(1.17239in,4.10765in)-- + (1.17406in,4.10581in)--(1.17575in,4.10397in)-- + (1.17745in,4.10212in)--(1.17917in,4.10029in)-- + (1.18091in,4.09845in)--(1.18266in,4.09662in)-- + (1.18443in,4.09479in)--(1.18621in,4.09296in)-- + (1.18801in,4.09113in)--(1.18982in,4.08931in)-- + (1.19164in,4.0875in)--(1.19348in,4.08569in)-- + (1.19533in,4.08388in)--(1.19719in,4.08208in)-- + (1.19907in,4.08028in)--(1.20095in,4.07849in)-- + (1.20285in,4.07671in)--(1.20476in,4.07493in)-- + (1.20668in,4.07315in)--(1.20861in,4.07139in)-- + (1.21055in,4.06963in)--(1.2125in,4.06788in)-- + (1.21446in,4.06614in)--(1.21643in,4.0644in)-- + (1.21841in,4.06268in)--(1.22039in,4.06096in)-- + (1.22238in,4.05925in)--(1.22438in,4.05755in)-- + (1.22639in,4.05586in)--(1.22841in,4.05418in)-- + (1.23043in,4.05251in)--(1.23245in,4.05085in)-- + (1.23449in,4.0492in)--(1.23653in,4.04756in)-- + (1.23857in,4.04593in)--(1.24062in,4.04432in)-- + (1.24267in,4.04271in)--(1.24472in,4.04112in)-- + (1.24678in,4.03954in)--(1.24884in,4.03798in)-- + (1.25091in,4.03643in)--(1.25298in,4.03489in)-- + (1.25505in,4.03336in)--(1.25712in,4.03185in)-- + (1.25919in,4.03035in)--(1.26126in,4.02887in)-- + (1.26334in,4.0274in)--(1.26541in,4.02595in)-- + (1.26749in,4.02452in)--(1.26956in,4.02309in)-- + (1.27163in,4.02169in)--(1.27371in,4.0203in)-- + (1.27578in,4.01893in)--(1.27784in,4.01758in)-- + (1.27991in,4.01624in)--(1.28197in,4.01492in)-- + (1.28403in,4.01362in)--(1.28609in,4.01234in)-- + (1.28815in,4.01107in)--(1.29019in,4.00982in)-- + (1.29224in,4.0086in)--(1.29428in,4.00739in)--(1.29631in,4.0062in)-- + (1.29834in,4.00504in)--(1.30037in,4.00389in)-- + (1.30238in,4.00276in)--(1.3044in,4.00166in)--(1.3064in,4.00057in)-- + (1.3084in,3.99951in)--(1.31038in,3.99847in)-- + (1.31236in,3.99745in)--(1.31434in,3.99646in)-- + (1.3163in,3.99548in)--(1.31825in,3.99453in)--(1.3202in,3.99361in)-- + (1.32213in,3.9927in)--(1.32406in,3.99182in)-- + (1.32597in,3.99097in)--(1.32787in,3.99014in)-- + (1.32977in,3.98933in)--(1.33165in,3.98855in)--(1.33351in,3.9878in); +\draw (1.21436in,2.38242in)--(1.22553in,2.38242in)-- + (1.2367in,2.38242in)--(1.24787in,2.38242in)-- + (1.25904in,2.38242in)--(1.29628in,2.38246in)-- + (1.33351in,2.3825in)--(1.37075in,2.3825in)--(1.40798in,2.38242in)-- + (1.48245in,2.38195in)--(1.55692in,2.38122in)-- + (1.63139in,2.38048in)--(1.70586in,2.37995in)-- + (1.78033in,2.37983in)--(1.8548in,2.3802in)--(1.92927in,2.38105in)-- + (2.00374in,2.38242in)--(2.07821in,2.38427in)-- + (2.15268in,2.38634in)--(2.22714in,2.3883in)-- + (2.30161in,2.38984in)--(2.37608in,2.39075in)-- + (2.45055in,2.39125in)--(2.52502in,2.39166in)-- + (2.59949in,2.39232in)--(2.67396in,2.39348in)-- + (2.74843in,2.39515in)--(2.8229in,2.39726in)-- + (2.89737in,2.39974in)--(2.97184in,2.40256in)-- + (3.04631in,2.40586in)--(3.12078in,2.40981in)-- + (3.19524in,2.41458in)--(3.26971in,2.42028in)-- + (3.34418in,2.42682in)--(3.41865in,2.43404in)-- + (3.49312in,2.44179in)--(3.56759in,2.44997in)-- + (3.64206in,2.45874in)--(3.71653in,2.46831in)--(3.791in,2.47889in)-- + (3.86547in,2.49074in)--(3.93994in,2.50427in)-- + (4.01441in,2.51995in)--(4.08888in,2.53826in)-- + (4.13207in,2.55017in)--(4.17526in,2.56268in)-- + (4.21845in,2.57535in)--(4.26164in,2.58773in)-- + (4.29292in,2.59634in)--(4.3242in,2.60482in)-- + (4.35548in,2.61341in)--(4.38675in,2.62236in)-- + (4.46122in,2.64592in)--(4.53569in,2.67231in)-- + (4.61016in,2.70094in)--(4.68463in,2.7312in)--(4.7591in,2.76259in)-- + (4.83357in,2.79494in)--(4.90804in,2.8282in)--(4.98251in,2.8623in)-- + (5.05698in,2.89687in)--(5.13144in,2.93029in)-- + (5.20591in,2.96064in)--(5.28038in,2.98598in)-- + (5.35485in,3.00471in)--(5.42932in,3.01639in)-- + (5.50379in,3.0209in)--(5.57826in,3.01814in)-- + (5.65273in,3.00809in)--(5.7272in,2.99118in)-- + (5.80167in,2.96796in)--(5.87614in,2.93898in)-- + (5.95061in,2.90497in)--(6.02508in,2.86738in)-- + (6.09955in,2.82787in)--(6.17401in,2.78809in)-- + (6.24848in,2.74946in)--(6.32295in,2.71248in)-- + (6.39742in,2.67744in)--(6.47189in,2.64462in)-- + (6.54636in,2.61426in)--(6.62083in,2.58641in)-- + (6.6953in,2.56107in)--(6.76977in,2.53826in)-- + (6.84424in,2.51793in)--(6.91871in,2.49981in)-- + (6.99318in,2.48361in)--(7.06765in,2.469in)--(7.14211in,2.45573in)-- + (7.21658in,2.44383in)--(7.29105in,2.43339in)-- + (7.36552in,2.42447in)--(7.43999in,2.41712in)-- + (7.51446in,2.41114in)--(7.58893in,2.40625in)-- + (7.6634in,2.40221in)--(7.74383in,2.39809in)-- + (7.82425in,2.39466in)--(7.90468in,2.39191in)--(7.98511in,2.38984in); +\draw (1.33351in,3.9878in)--(1.35213in,3.97971in)-- + (1.37075in,3.97164in)--(1.38937in,3.96361in)-- + (1.40798in,3.95564in)--(1.48245in,3.92459in)-- + (1.55692in,3.89486in)--(1.63139in,3.86646in)-- + (1.70586in,3.83938in)--(1.78033in,3.81356in)-- + (1.8548in,3.78871in)--(1.92927in,3.76445in)-- + (2.00374in,3.74044in)--(2.07821in,3.71633in)-- + (2.15268in,3.69192in)--(2.22714in,3.66703in)-- + (2.30161in,3.64149in)--(2.37608in,3.61517in)-- + (2.45055in,3.58816in)--(2.52502in,3.5606in)-- + (2.59949in,3.53265in)--(2.67396in,3.50451in)-- + (2.74843in,3.47664in)--(2.8229in,3.44957in)-- + (2.89737in,3.42381in)--(2.97184in,3.39971in)-- + (3.04631in,3.37682in)--(3.12078in,3.35456in)-- + (3.19524in,3.33229in)--(3.26971in,3.30956in)-- + (3.34418in,3.28653in)--(3.41865in,3.2635in)-- + (3.49312in,3.24077in)--(3.56759in,3.21869in)-- + (3.64206in,3.19777in)--(3.71653in,3.17856in)--(3.791in,3.16161in)-- + (3.86547in,3.14727in)--(3.93994in,3.13509in)-- + (4.01441in,3.12442in)--(4.08888in,3.11461in)-- + (4.16334in,3.10518in)--(4.23781in,3.09639in)-- + (4.31228in,3.08867in)--(4.38675in,3.08245in)-- + (4.46122in,3.07808in)--(4.53569in,3.07548in)-- + (4.61016in,3.07452in)--(4.68463in,3.07503in)-- + (4.7591in,3.07677in)--(4.83357in,3.07908in)-- + (4.90804in,3.08123in)--(4.98251in,3.08245in)-- + (5.05698in,3.08216in)--(5.13144in,3.08033in)-- + (5.20591in,3.07709in)--(5.28038in,3.07256in)-- + (5.35485in,3.06673in)--(5.42932in,3.05906in)-- + (5.50379in,3.04887in)--(5.57826in,3.03546in)-- + (5.65273in,3.01823in)--(5.7272in,2.99694in)-- + (5.80167in,2.97141in)--(5.87614in,2.94146in)--(5.95061in,2.91in)-- + (6.02508in,2.87396in)--(6.09955in,2.83332in)--(6.17401in,2.78809in); +\draw (1.125in,0.712731in)--(1.19575in,0.74009in)-- + (1.26649in,0.76739in)--(1.33724in,0.79457in)-- + (1.40798in,0.82157in)--(1.48245in,0.849746in)-- + (1.55692in,0.877676in)--(1.63139in,0.905382in)-- + (1.70586in,0.932883in)--(1.78033in,0.960206in)-- + (1.8548in,0.987411in)--(1.92927in,1.01456in)-- + (2.00374in,1.04172in)--(2.07821in,1.06898in)-- + (2.15268in,1.09649in)--(2.22714in,1.12445in)-- + (2.30161in,1.15303in)--(2.37608in,1.18234in)-- + (2.45055in,1.21212in)--(2.52502in,1.24204in)-- + (2.59949in,1.27177in)--(2.67396in,1.30106in)-- + (2.74843in,1.33004in)--(2.8229in,1.35896in)-- + (2.89737in,1.38803in)--(2.97184in,1.41746in)-- + (3.04631in,1.4474in)--(3.12078in,1.47795in)-- + (3.19524in,1.50923in)--(3.26971in,1.54134in)-- + (3.34418in,1.57431in)--(3.41865in,1.60813in)-- + (3.49312in,1.64281in)--(3.56759in,1.67838in)-- + (3.64206in,1.71491in)--(3.71653in,1.7525in)--(3.791in,1.79123in)-- + (3.86547in,1.83119in)--(3.93994in,1.87248in)-- + (4.01441in,1.9152in)--(4.08888in,1.95943in)-- + (4.16334in,2.00534in)--(4.23781in,2.05332in)-- + (4.31228in,2.10383in)--(4.38675in,2.15732in)-- + (4.46122in,2.21413in)--(4.53569in,2.27407in)-- + (4.61016in,2.33687in)--(4.68463in,2.40221in)-- + (4.7591in,2.46963in)--(4.83357in,2.53795in)--(4.90804in,2.6058in)-- + (4.98251in,2.67183in)--(5.05698in,2.73478in)-- + (5.13144in,2.79378in)--(5.20591in,2.84809in)-- + (5.28038in,2.89693in)--(5.35485in,2.93934in)-- + (5.42932in,2.97342in)--(5.50379in,2.99709in)-- + (5.57826in,3.00825in)--(5.6155in,3.00857in)-- + (5.65273in,3.00557in)--(5.68996in,2.99958in)-- + (5.7272in,2.99093in)--(5.76443in,2.98144in)-- + (5.80167in,2.96962in)--(5.8389in,2.95547in)--(5.87614in,2.93898in); +\draw (3.42163in,4.25in)--(3.4395in,4.21635in)-- + (3.45738in,4.18256in)--(3.47525in,4.14848in)-- + (3.49312in,4.11395in)--(3.56759in,3.96455in)-- + (3.64206in,3.80899in)--(3.71653in,3.65131in)--(3.791in,3.49555in)-- + (3.86547in,3.34483in)--(3.93994in,3.19865in)-- + (4.01441in,3.0556in)--(4.08888in,2.91425in)-- + (4.13207in,2.83247in)--(4.17526in,2.75079in)-- + (4.21845in,2.66921in)--(4.26164in,2.58773in); +\filldraw[color=rgb_ffffff] (3.35312in,2.52836in) circle(0.083022in); +\draw[color=rgb_000000] (3.35312in,2.52836in) circle(0.083022in); +\pgftext[at={\pgfpoint{3.35312in}{2.52836in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$1$}}} +\filldraw[color=rgb_ffffff] (3.13865in,3.45844in) circle(0.083022in); +\draw[color=rgb_000000] (3.13865in,3.45844in) circle(0.083022in); +\pgftext[at={\pgfpoint{3.13865in}{3.45844in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$2$}}} +\filldraw[color=rgb_ffffff] (3.19822in,1.61807in) circle(0.083022in); +\draw[color=rgb_000000] (3.19822in,1.61807in) circle(0.083022in); +\pgftext[at={\pgfpoint{3.19822in}{1.61807in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$3$}}} +\pgfsetlinewidth{0.4pt} +\draw (4.17526in,2.88704in)--(4.28547in,2.67431in); +\draw (4.28547in,2.67431in)--(4.47909in,2.73615in); +\pgfsetfillcolor{rgb_000000} +\draw [fill](4.42472in,2.71878in)--(4.42788in,2.7089in)-- + (4.47909in,2.73615in)--(4.42157in,2.72867in)--(4.42472in,2.71878in)--cycle; +\filldraw[color=rgb_ffffff] (4.21101in,2.90435in) circle(0.083022in); +\draw[color=rgb_000000] (4.21101in,2.90435in) circle(0.083022in); +\pgftext[at={\pgfpoint{4.21101in}{2.90435in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$4$}}} +\pgftext[at={\pgfpoint{4.425in}{2.31965in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rho$}}} +\pgftext[at={\pgfpoint{4.5625in}{0.250934in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}{\small\textsc{Fig.~6} -- Spin-orbit form factors (derivative form). Effect of dips and rises in central form factor.}}}} +\pgftext[at={\pgfpoint{0.626868in}{2.375in}}] {\makebox(0,0)[r]{\rotatebox{90}{\hbox{\color{rgb_000000}\Code{FFSR} and/or \Code{FFSI}}}}} +\pgftext[at={\pgfpoint{2.02286in}{5.46286in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{R0 = 1.25},\quad \Code{A = 0.65},\quad \Code{FN1A = 1},\quad \Code{FN2A = 1}}}} +\pgftext[at={\pgfpoint{3.55429in}{5.63429in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}\framebox{p - Ag\quad $135$~\MeV}}}} +\filldraw[color=rgb_ffffff] (2.38857in,5.25714in) circle(0.083022in); +\draw[color=rgb_000000] (2.38857in,5.25714in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.38857in}{5.25714in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$1$}}} +\pgftext[at={\pgfpoint{2.55462in}{5.25714in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = 0},\quad\Code{PMA = 1},\qquad $\rho_{m_A} = \bar{\rho}_N = 15.04$\quad (Standard derivative form factor)}}} +\filldraw[color=rgb_ffffff] (2.38857in,5.06286in) circle(0.083022in); +\draw[color=rgb_000000] (2.38857in,5.06286in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.38857in}{5.06286in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$2$}}} +\pgftext[at={\pgfpoint{2.55462in}{5.06286in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = 1},}}} +\pgftext[at={\pgfpoint{3.38484in}{5.06286in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Ditto\hspace*{1in}\Ditto\qquad\Ditto\qquad\Ditto}}} +\filldraw[color=rgb_ffffff] (2.38857in,4.86857in) circle(0.083022in); +\draw[color=rgb_000000] (2.38857in,4.86857in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.38857in}{4.86857in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$3$}}} +\pgftext[at={\pgfpoint{2.55462in}{4.86857in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = -1},}}} +\pgftext[at={\pgfpoint{3.38484in}{4.86857in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Ditto\hspace*{1in}\Ditto\qquad\Ditto\qquad\Ditto}}} +\filldraw[color=rgb_ffffff] (2.38857in,4.67429in) circle(0.083022in); +\draw[color=rgb_000000] (2.38857in,4.67429in) circle(0.083022in); +\pgftext[at={\pgfpoint{2.38857in}{4.67429in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$4$}}} +\pgftext[at={\pgfpoint{2.55462in}{4.67429in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = 2},\quad\Code{PMA = 0.7},\quad $\rho_{m_A} = 0.7\ \bar{\rho}_N = 10.53$}}} +\end{tikzpicture} diff --git a/29784-t/images/032a.eepic b/29784-t/images/032a.eepic new file mode 100644 index 0000000..9c4e93c --- /dev/null +++ b/29784-t/images/032a.eepic @@ -0,0 +1,299 @@ +%% Generated from 032a.xp on Sun May 17 12:43:59 EDT 2009 by +%% ePiX-1.2.6 +%% +%% Cartesian bounding box: [0,8] x [0,6] +%% Actual size: 8 x 6in +%% Figure offset: left by 0in, down by 0in +%% +%% usepackages tikz +%% +\xdefinecolor{rgb_000000}{rgb}{0,0,0}% +\xdefinecolor{rgb_ffffff}{rgb}{1,1,1}% +\begin{tikzpicture} +\pgfsetlinewidth{0.4pt} +\useasboundingbox (0in,0in) rectangle (8in,6in); +\draw (1.125in,1.5in)--(8in,1.5in); +\draw (8in,4.25in)-- + (1.125in,4.25in)--(1.125in,1.5in); +\draw (2.375in,1.5in)--(2.375in,4.25in); +\draw (3.625in,1.5in)--(3.625in,4.25in); +\draw (4.875in,1.5in)--(4.875in,4.25in); +\draw (6.125in,1.5in)--(6.125in,4.25in); +\draw (7.375in,1.5in)--(7.375in,4.25in); +\draw (1.125in,2.41667in)--(8in,2.41667in); +\draw (1.125in,3.33333in)--(8in,3.33333in); +\pgfsetlinewidth{0.8pt} +\draw (1.125in,1.5in)--(8in,1.5in)--(8in,4.25in)-- + (1.125in,4.25in)--(1.125in,1.5in)--cycle; +\draw (1.125in,1.5in)--(7.375in,1.5in); +\pgftext[at={\pgfpoint{1.125in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.375in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.625in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.875in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.125in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.375in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.75in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.375in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.625in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.25in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.875in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.5in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.125in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.75in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.375in}{1.5in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{1.44465in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$0$}}} +\pgftext[at={\pgfpoint{2.375in}{1.44465in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$1$}}} +\pgftext[at={\pgfpoint{3.625in}{1.44465in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$2$}}} +\pgftext[at={\pgfpoint{4.875in}{1.44465in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$3$}}} +\pgftext[at={\pgfpoint{6.125in}{1.44465in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$4$}}} +\pgftext[at={\pgfpoint{7.375in}{1.44465in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$5$}}} +\draw (1.125in,1.5in)--(1.125in,4.25in); +\pgftext[at={\pgfpoint{1.125in}{1.5in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{2.41667in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{3.33333in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{4.25in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}$\rule{6pt}{0.5pt}$}}} +\pgftext[at={\pgfpoint{1.06965in}{1.5in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0$}}} +\pgftext[at={\pgfpoint{1.06965in}{2.41667in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.1$}}} +\pgftext[at={\pgfpoint{1.06965in}{3.33333in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.2$}}} +\pgftext[at={\pgfpoint{1.06965in}{4.25in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}$0.3$}}} +\draw (1.125in,4.25in)--(7.375in,4.25in); +\pgftext[at={\pgfpoint{1.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.375in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.625in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.875in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.375in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{1.75in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{2.375in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{3.625in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.25in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{4.875in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{5.5in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.125in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{6.75in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\pgftext[at={\pgfpoint{7.375in}{4.25in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rule{0.5pt}{6pt}$}}} +\draw (2.72751in,1.5in)--(2.77917in,1.50092in)-- + (2.83083in,1.50236in)--(2.8825in,1.50473in)-- + (2.93416in,1.50846in)--(2.98582in,1.514in)--(3.03748in,1.52177in)-- + (3.08914in,1.53207in)--(3.1408in,1.54471in)-- + (3.19246in,1.55939in)--(3.24412in,1.57578in)-- + (3.29578in,1.59358in)--(3.34744in,1.61247in)-- + (3.3991in,1.63229in)--(3.45076in,1.65351in)-- + (3.50242in,1.67675in)--(3.55408in,1.70264in)-- + (3.60574in,1.73179in)--(3.65741in,1.76484in)-- + (3.70907in,1.80239in)--(3.76073in,1.845in)--(3.81239in,1.89321in)-- + (3.86405in,1.94756in)--(3.91571in,2.00859in)-- + (3.96737in,2.07685in)--(4.01903in,2.15262in)-- + (4.07069in,2.23518in)--(4.12235in,2.32356in)-- + (4.17401in,2.41677in)--(4.22567in,2.51384in)-- + (4.27733in,2.61379in)--(4.32899in,2.71556in)-- + (4.38065in,2.81777in)--(4.43232in,2.91894in)-- + (4.48398in,3.0176in)--(4.53564in,3.11228in)--(4.5873in,3.20152in)-- + (4.63896in,3.28394in)--(4.69062in,3.35865in)-- + (4.74228in,3.42484in)--(4.79394in,3.48171in)-- + (4.8456in,3.52847in)--(4.89726in,3.56431in)-- + (4.94892in,3.58856in)--(5.00058in,3.60103in)-- + (5.05224in,3.60165in)--(5.1039in,3.59034in)-- + (5.15556in,3.56703in)--(5.20722in,3.53166in)-- + (5.25889in,3.48435in)--(5.31055in,3.42598in)-- + (5.36221in,3.35764in)--(5.41387in,3.28041in)-- + (5.46553in,3.19535in)--(5.51719in,3.10356in)-- + (5.56885in,3.0063in)--(5.62051in,2.90559in)-- + (5.67217in,2.80362in)--(5.72383in,2.7026in)-- + (5.77549in,2.60473in)--(5.82715in,2.5122in)-- + (5.87881in,2.42675in)--(5.93047in,2.34813in)-- + (5.98213in,2.27563in)--(6.0338in,2.20854in)-- + (6.08546in,2.14615in)--(6.13712in,2.08773in)-- + (6.18878in,2.03269in)--(6.24044in,1.98086in)--(6.2921in,1.9322in)-- + (6.34376in,1.88666in)--(6.39542in,1.8442in)-- + (6.44708in,1.80475in)--(6.49874in,1.76829in)--(6.5504in,1.7348in)-- + (6.60206in,1.70428in)--(6.65372in,1.67675in)-- + (6.70538in,1.65219in)--(6.75704in,1.63061in)-- + (6.80871in,1.61196in)--(6.86037in,1.59604in)-- + (6.91203in,1.58258in)--(6.96369in,1.57133in)-- + (7.01535in,1.56203in)--(7.06701in,1.55442in)-- + (7.11867in,1.54825in)--(7.17033in,1.54323in)-- + (7.22199in,1.53908in)--(7.27365in,1.53552in)-- + (7.32531in,1.53226in)--(7.37697in,1.52902in)-- + (7.42863in,1.5256in)--(7.48029in,1.5221in)--(7.53195in,1.5187in)-- + (7.58362in,1.51557in)--(7.63528in,1.51291in)-- + (7.68694in,1.51088in)--(7.7386in,1.50883in)--(7.79026in,1.5076in)-- + (7.84192in,1.50719in)--(7.89358in,1.5076in)-- + (7.94524in,1.50883in)--(7.9969in,1.51088in); +\draw (1.125in,1.5in)--(1.2371in,1.50096in)-- + (1.34921in,1.50207in)--(1.46131in,1.50347in)-- + (1.57341in,1.50531in)--(1.68552in,1.50773in)-- + (1.79762in,1.51088in)--(1.84928in,1.51261in)-- + (1.90094in,1.51445in)--(1.9526in,1.51636in)-- + (2.00426in,1.51825in)--(2.05593in,1.52008in)-- + (2.10759in,1.52177in)--(2.15925in,1.52331in)-- + (2.21091in,1.52488in)--(2.26257in,1.52673in)-- + (2.31423in,1.52909in)--(2.36589in,1.53219in)-- + (2.41755in,1.53628in)--(2.46921in,1.5415in)-- + (2.52087in,1.54767in)--(2.57253in,1.55449in)-- + (2.62419in,1.56171in)--(2.67585in,1.56903in)-- + (2.72751in,1.57619in)--(2.77917in,1.58302in)-- + (2.83083in,1.58988in)--(2.8825in,1.59723in)-- + (2.93416in,1.60555in)--(2.98582in,1.61531in)-- + (3.03748in,1.62698in)--(3.08914in,1.64089in)-- + (3.1408in,1.65678in)--(3.19246in,1.67425in)-- + (3.24412in,1.69291in)--(3.29578in,1.71236in)-- + (3.34744in,1.73219in)--(3.3991in,1.75218in)-- + (3.45076in,1.77278in)--(3.50242in,1.7946in)-- + (3.55408in,1.81828in)--(3.60574in,1.84443in)-- + (3.65741in,1.87368in)--(3.70907in,1.90656in)-- + (3.76073in,1.94329in)--(3.81239in,1.98399in)-- + (3.86405in,2.0288in)--(3.91571in,2.07785in)-- + (3.96737in,2.13127in)--(3.9932in,2.15963in)-- + (4.01903in,2.18895in)--(4.04486in,2.21907in)-- + (4.07069in,2.24984in)--(4.09652in,2.28109in)-- + (4.12235in,2.31266in)--(4.14818in,2.34447in)-- + (4.17401in,2.37672in)--(4.19984in,2.4097in)-- + (4.22567in,2.44368in)--(4.2515in,2.47897in)-- + (4.27733in,2.51583in)--(4.30316in,2.55447in)-- + (4.32899in,2.59469in)--(4.35482in,2.63625in)-- + (4.38065in,2.67886in)--(4.40648in,2.72225in)-- + (4.43232in,2.76616in)--(4.45815in,2.81034in)-- + (4.48398in,2.85466in)--(4.50981in,2.899in)--(4.53564in,2.94324in)-- + (4.56147in,2.98728in)--(4.5873in,3.031in)--(4.59505in,3.04403in)-- + (4.6028in,3.05698in)--(4.61054in,3.06982in)-- + (4.61829in,3.08249in)--(4.62604in,3.09496in)-- + (4.63379in,3.10719in)--(4.65187in,3.13468in)-- + (4.66995in,3.16084in)--(4.68804in,3.18585in)-- + (4.70612in,3.2099in)--(4.7242in,3.2332in)--(4.74228in,3.25594in)-- + (4.76811in,3.28768in)--(4.79394in,3.31842in)-- + (4.81977in,3.34791in)--(4.8456in,3.37591in)-- + (4.87143in,3.40217in)--(4.89726in,3.42645in)-- + (4.94892in,3.46819in)--(5.00058in,3.49965in)-- + (5.05224in,3.51947in)--(5.1039in,3.52628in)-- + (5.15556in,3.51871in)--(5.20722in,3.49538in)-- + (5.25889in,3.47228in)--(5.31055in,3.43206in)-- + (5.36221in,3.37471in)--(5.41387in,3.30024in)-- + (5.46553in,3.20865in)--(5.51719in,3.09993in); +\draw (1.125in,1.71768in)--(1.13378in,1.71828in)-- + (1.14256in,1.71889in)--(1.15135in,1.71949in)-- + (1.16013in,1.7201in)--(1.16891in,1.7207in)--(1.17769in,1.72131in)-- + (1.22935in,1.72482in)--(1.28102in,1.72822in)-- + (1.33268in,1.73145in)--(1.38434in,1.73444in)--(1.436in,1.73713in)-- + (1.48766in,1.73945in)--(1.53932in,1.74136in)-- + (1.59098in,1.74301in)--(1.64264in,1.74456in)-- + (1.6943in,1.74619in)--(1.74596in,1.74805in)-- + (1.79762in,1.75033in)--(1.84928in,1.75312in)-- + (1.90094in,1.75629in)--(1.9526in,1.75962in)--(2.00426in,1.7629in)-- + (2.05593in,1.76592in)--(2.10759in,1.76847in)-- + (2.15925in,1.77041in)--(2.21091in,1.77183in)-- + (2.26257in,1.77291in)--(2.31423in,1.7738in)-- + (2.36589in,1.77469in)--(2.41755in,1.77573in)-- + (2.46921in,1.77706in)--(2.52087in,1.77877in)-- + (2.57253in,1.78089in)--(2.62419in,1.78347in)-- + (2.67585in,1.78657in)--(2.72751in,1.79024in)-- + (2.77917in,1.79451in)--(2.83083in,1.79944in)-- + (2.8825in,1.80506in)--(2.93416in,1.81142in)-- + (2.98582in,1.81856in)--(3.03748in,1.82652in)-- + (3.08914in,1.83535in)--(3.1408in,1.84513in)-- + (3.19246in,1.85595in)--(3.24412in,1.86788in)-- + (3.29578in,1.88102in)--(3.34744in,1.89545in)-- + (3.3991in,1.91122in)--(3.45076in,1.92829in)-- + (3.50242in,1.94657in)--(3.55408in,1.96599in)-- + (3.60574in,1.98647in)--(3.65741in,2.00792in)-- + (3.70907in,2.03033in)--(3.76073in,2.05398in)-- + (3.81239in,2.07919in)--(3.86405in,2.1063in)-- + (3.91571in,2.13564in)--(3.96737in,2.16755in)-- + (3.9932in,2.18457in)--(4.01903in,2.20241in)-- + (4.04486in,2.22115in)--(4.07069in,2.24088in)-- + (4.09652in,2.26168in)--(4.12235in,2.28364in)-- + (4.14818in,2.30681in)--(4.17401in,2.33108in)-- + (4.19984in,2.35629in)--(4.22567in,2.38229in)-- + (4.2515in,2.40891in)--(4.27733in,2.43602in)-- + (4.30316in,2.46349in)--(4.32899in,2.49141in)-- + (4.35482in,2.51991in)--(4.38065in,2.54912in)-- + (4.40648in,2.57916in)--(4.43232in,2.61016in)-- + (4.45815in,2.64218in)--(4.48398in,2.67504in)-- + (4.50981in,2.70848in)--(4.53564in,2.74224in)-- + (4.56147in,2.77606in)--(4.5873in,2.8097in)--(4.59711in,2.82238in)-- + (4.60693in,2.83503in)--(4.61674in,2.84768in)-- + (4.62656in,2.86035in)--(4.63637in,2.87308in)-- + (4.64619in,2.88588in)--(4.68804in,2.94171in)-- + (4.72988in,2.99951in)--(4.77173in,3.05919in)-- + (4.81357in,3.12067in)--(4.85542in,3.18386in)-- + (4.89726in,3.24868in)--(4.92309in,3.28924in)-- + (4.94892in,3.32899in)--(4.97475in,3.36653in)-- + (5.00058in,3.40045in)--(5.02641in,3.42936in)-- + (5.05224in,3.45185in)--(5.06516in,3.46031in)-- + (5.07807in,3.46704in)--(5.09099in,3.47224in)-- + (5.1039in,3.47613in)--(5.11682in,3.47894in)-- + (5.12973in,3.48087in)--(5.14265in,3.4821in)-- + (5.15556in,3.48264in)--(5.16848in,3.48246in)-- + (5.18139in,3.48152in)--(5.19431in,3.47979in)-- + (5.20722in,3.47724in)--(5.23306in,3.46951in)-- + (5.25889in,3.45793in)--(5.28472in,3.44209in)-- + (5.31055in,3.42157in)--(5.33638in,3.39593in)-- + (5.36221in,3.36478in)--(5.38804in,3.33369in)-- + (5.41387in,3.29665in)--(5.4397in,3.25367in)-- + (5.46553in,3.20474in)--(5.49136in,3.14987in)--(5.51719in,3.08905in); +\pgfsetlinewidth{0.4pt} +\draw (4.14644in,3.72903in)--(3.83394in,3.72903in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](4.14644in,3.72903in)--(3.83394in,3.72903in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (4.14644in,3.72903in)--(3.83394in,3.72903in); +\draw (4.14644in,3.72903in)--(4.66267in,3.35046in); +\pgfsetfillcolor{rgb_000000} +\draw [fill](4.57062in,3.41797in)--(4.55834in,3.40123in)-- + (4.66267in,3.35046in)--(4.58289in,3.4347in)--(4.57062in,3.41797in)--cycle; +\filldraw[color=rgb_ffffff] (3.83394in,3.72903in) circle(0.083022in); +\draw[color=rgb_000000] (3.83394in,3.72903in) circle(0.083022in); +\pgftext[at={\pgfpoint{3.83394in}{3.72903in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$1$}}} +\draw (4.1294in,3.47708in)--(3.8169in,3.47708in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](4.1294in,3.47708in)--(3.8169in,3.47708in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (4.1294in,3.47708in)--(3.8169in,3.47708in); +\draw (4.1294in,3.47708in)--(4.62875in,3.11089in); +\draw [fill](4.53669in,3.1784in)--(4.52442in,3.16166in)-- + (4.62875in,3.11089in)--(4.54897in,3.19513in)--(4.53669in,3.1784in)--cycle; +\filldraw[color=rgb_ffffff] (3.8169in,3.47708in) circle(0.083022in); +\draw[color=rgb_000000] (3.8169in,3.47708in) circle(0.083022in); +\pgftext[at={\pgfpoint{3.8169in}{3.47708in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$2$}}} +\draw (4.1356in,3.26032in)--(3.8231in,3.26032in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](4.1356in,3.26032in)--(3.8231in,3.26032in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (4.1356in,3.26032in)--(3.8231in,3.26032in); +\draw (4.1356in,3.26032in)--(4.64108in,2.88963in); +\draw [fill](4.54903in,2.95714in)--(4.53675in,2.9404in)-- + (4.64108in,2.88963in)--(4.5613in,2.97387in)--(4.54903in,2.95714in)--cycle; +\filldraw[color=rgb_ffffff] (3.8231in,3.26032in) circle(0.083022in); +\draw[color=rgb_000000] (3.8231in,3.26032in) circle(0.083022in); +\pgftext[at={\pgfpoint{3.8231in}{3.26032in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$3$}}} +\pgftext[at={\pgfpoint{5.5in}{1.44465in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}$\rho$}}} +\pgftext[at={\pgfpoint{4.5625in}{1.25093in}}] {\makebox(0,0)[t]{\hbox{\color{rgb_000000}\textsc{Fig.~7} -- Spin-orbit form factor (derivative form). Knee variation.}}} +\pgftext[at={\pgfpoint{0.792912in}{2.875in}}] {\makebox(0,0)[r]{\rotatebox{90}{\hbox{\color{rgb_000000}\Code{FFSR} and/or \Code{FFSI}}}}} +\pgftext[at={\pgfpoint{2.45143in}{5.15429in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{R0 = 1.20},\quad \Code{A = 0.52},\quad \Code{FN2A = 1},\quad \Code{PMA = 1},\quad $\rho_{m_A} = 1$, $\bar{\rho}_N = 3.24$}}} +\pgftext[at={\pgfpoint{3.94286in}{5.43429in}}] {\makebox(0,0)[b]{\hbox{\color{rgb_000000}\framebox{p - Cu\quad $9.75$~\MeV}}}} +\filldraw[color=rgb_ffffff] (3.55429in,4.90857in) circle(0.083022in); +\draw[color=rgb_000000] (3.55429in,4.90857in) circle(0.083022in); +\pgftext[at={\pgfpoint{3.55429in}{4.90857in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$1$}}} +\pgftext[at={\pgfpoint{3.72033in}{4.90857in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN1A = 0.01},}}} +\pgftext[at={\pgfpoint{4.88264in}{4.90857in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = 0}}}} +\filldraw[color=rgb_ffffff] (3.55429in,4.72in) circle(0.083022in); +\draw[color=rgb_000000] (3.55429in,4.72in) circle(0.083022in); +\pgftext[at={\pgfpoint{3.55429in}{4.72in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$2$}}} +\pgftext[at={\pgfpoint{3.72033in}{4.72in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN1A = 1},}}} +\pgftext[at={\pgfpoint{4.88264in}{4.72in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = 0}\qquad(Standard derivative form factor)}}} +\filldraw[color=rgb_ffffff] (3.55429in,4.53143in) circle(0.083022in); +\draw[color=rgb_000000] (3.55429in,4.53143in) circle(0.083022in); +\pgftext[at={\pgfpoint{3.55429in}{4.53143in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}$3$}}} +\pgftext[at={\pgfpoint{3.72033in}{4.53143in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{FN1A = 3}}}} +\pgftext[at={\pgfpoint{4.88264in}{4.53143in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\Code{HA = 0.046}}}} +\end{tikzpicture} diff --git a/29784-t/images/057a.eepic b/29784-t/images/057a.eepic new file mode 100644 index 0000000..bb68b4a --- /dev/null +++ b/29784-t/images/057a.eepic @@ -0,0 +1,102 @@ +%% Generated from 057a.xp on Sun May 17 21:20:31 EDT 2009 by +%% ePiX-1.2.6 +%% +%% Cartesian bounding box: [0,36] x [-1.5,2.5] +%% Actual size: 6 x 0.75in +%% Figure offset: left by 0in, down by 0in +%% +%% usepackages tikz +%% +\xdefinecolor{rgb_000000}{rgb}{0,0,0}% +\xdefinecolor{rgb_ffffff}{rgb}{1,1,1}% +\begin{tikzpicture} +\pgfsetlinewidth{0.4pt} +\useasboundingbox (0in,0in) rectangle (6in,0.75in); +\draw (0in,0.609375in)--(6in,0.609375in); +\draw (0in,0.61875in)--(6in,0.61875in); +\draw (5.83333in,0.1875in)--(5.83333in,0.75in); +\draw (6in,0.1875in)--(6in,0.75in); +\draw (1in,0.1875in)--(1in,0.75in); +\draw (1.16667in,0.1875in)--(1.16667in,0.75in); +\draw (1.33333in,0.1875in)--(1.33333in,0.75in); +\draw (1.5in,0.1875in)--(1.5in,0.75in); +\draw (1.66667in,0.1875in)--(1.66667in,0.75in); +\draw (1.83333in,0.1875in)--(1.83333in,0.75in); +\draw (2in,0.1875in)--(2in,0.75in); +\draw (2.16667in,0.1875in)--(2.16667in,0.75in); +\draw (2.33333in,0.1875in)--(2.33333in,0.75in); +\draw (2.5in,0.1875in)--(2.5in,0.75in); +\draw (2.66667in,0.1875in)--(2.66667in,0.75in); +\draw (2.83333in,0.1875in)--(2.83333in,0.75in); +\draw (3in,0.1875in)--(3in,0.75in); +\draw (3.16667in,0.1875in)--(3.16667in,0.75in); +\draw (3.33333in,0.1875in)--(3.33333in,0.75in); +\draw (3.5in,0.1875in)--(3.5in,0.75in); +\pgftext[at={\pgfpoint{0.027674in}{0.28125in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\footnotesize Floating nos.}}} +\pgftext[at={\pgfpoint{0.027674in}{0.46875in}}] {\makebox(0,0)[l]{\hbox{\color{rgb_000000}\footnotesize Integers}}} +\pgftext[at={\pgfpoint{0.972326in}{0.703125in}}] {\makebox(0,0)[r]{\hbox{\color{rgb_000000}\footnotesize Columns.}}} +\pgftext[at={\pgfpoint{1.08333in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 1}}} +\pgftext[at={\pgfpoint{1.08333in}{0.46875in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{1.25in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 2}}} +\pgftext[at={\pgfpoint{1.25in}{0.46875in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{1.41667in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 3}}} +\pgftext[at={\pgfpoint{1.41667in}{0.46875in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{1.58333in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 4}}} +\pgftext[at={\pgfpoint{1.58333in}{0.46875in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{1.75in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 5}}} +\pgftext[at={\pgfpoint{1.75in}{0.46875in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{1.91667in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 6}}} +\pgftext[at={\pgfpoint{1.58333in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{2.08333in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 7}}} +\pgftext[at={\pgfpoint{1.75in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{2.25in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 8}}} +\pgftext[at={\pgfpoint{1.91667in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{2.41667in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 9}}} +\pgftext[at={\pgfpoint{2.08333in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{2.58333in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 10}}} +\pgftext[at={\pgfpoint{2.25in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{2.75in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 11}}} +\pgftext[at={\pgfpoint{2.41667in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{2.91667in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 12}}} +\pgftext[at={\pgfpoint{2.58333in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{3.08333in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 13}}} +\pgftext[at={\pgfpoint{2.75in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{3.25in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 14}}} +\pgftext[at={\pgfpoint{3.25in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{3.41667in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize 15}}} +\pgftext[at={\pgfpoint{3.41667in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize x}}} +\pgftext[at={\pgfpoint{1.08333in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize $±$}}} +\pgftext[at={\pgfpoint{1.25in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize $0$}}} +\pgftext[at={\pgfpoint{1.41667in}{0.253576in}}] {\makebox(0,0){\hbox{\color{rgb_000000}\footnotesize $.$}}} +\pgftext[at={\pgfpoint{3.08333in}{0.28125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize $±$}}} +\pgftext[at={\pgfpoint{5.91667in}{0.703125in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize $72$}}} +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](1.875in,0.46875in)--(5.95833in,0.46875in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (1.875in,0.46875in)--(5.95833in,0.46875in); +\pgfsetstrokecolor{rgb_ffffff} +\pgfsetlinewidth{2.5pt} +\draw [color=rgb_ffffff,line width=2.5pt](3.54167in,0.28125in)--(5.95833in,0.28125in); +\pgfsetstrokecolor{rgb_000000} +\pgfsetlinewidth{0.4pt} +\draw (3.54167in,0.28125in)--(5.95833in,0.28125in); +\draw (3.91667in,0.46875in)--(1.875in,0.46875in); +\pgfsetfillcolor{rgb_000000} +\draw [fill](1.91781in,0.46875in)--(1.93208in,0.479128in)-- + (1.875in,0.46875in)--(1.93208in,0.458372in)--(1.91781in,0.46875in)--cycle; +\draw (3.91667in,0.46875in)--(5.95833in,0.46875in); +\draw [fill](5.91553in,0.46875in)--(5.90126in,0.458372in)-- + (5.95833in,0.46875in)--(5.90126in,0.479128in)--(5.91553in,0.46875in)--cycle; +\draw (4.75in,0.28125in)--(3.54167in,0.28125in); +\draw [fill](3.58447in,0.28125in)--(3.59874in,0.291628in)-- + (3.54167in,0.28125in)--(3.59874in,0.270872in)--(3.58447in,0.28125in)--cycle; +\draw (4.75in,0.28125in)--(5.95833in,0.28125in); +\draw [fill](5.91553in,0.28125in)--(5.90126in,0.270872in)-- + (5.95833in,0.28125in)--(5.90126in,0.291628in)--(5.91553in,0.28125in)--cycle; +\pgftext[at={\pgfpoint{3.91667in}{0.46875in}}] {\makebox(0,0)[c]{\colorbox{rgb_ffffff}{\hbox{\color{rgb_000000}\footnotesize any Hollerith character}}}} +\pgftext[at={\pgfpoint{4.75in}{0.28125in}}] {\makebox(0,0)[c]{\colorbox{rgb_ffffff}{\hbox{\color{rgb_000000}\footnotesize any Hollerith character}}}} +\pgftext[at={\pgfpoint{3.25in}{0.046875in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize $\underbrace{\rule{0.5in}{0pt}}_{\text{exponent}}$}}} +\pgftext[at={\pgfpoint{2.16667in}{0.046875in}}] {\makebox(0,0)[c]{\hbox{\color{rgb_000000}\footnotesize $\underbrace{\rule{1.333in}{0pt}}_{\text{fractional part}}$}}} +\end{tikzpicture} diff --git a/29784-t/images/sources/014a.xp b/29784-t/images/sources/014a.xp new file mode 100644 index 0000000..e6e95fd --- /dev/null +++ b/29784-t/images/sources/014a.xp @@ -0,0 +1,84 @@ +/* -*-ePiX-*- */ +#include "epix.h" +using namespace ePiX; + +void bigdot() { dot_size(10); } +void lildot() { dot_size(2); } + +void Dn(const P& loc) +{ + bigdot(); + circ(loc); + + marker(loc, TIMES); +} + +void Up(const P& loc) +{ + bigdot(); + circ(loc); + + lildot(); + dot(loc); +} + +void Dn(const P& loc, const P& off, const std::string& msg, + epix_label_posn A) +{ + Dn(loc); + label(loc, off, msg, A); +} + +void Up(const P& loc, const P& off, const std::string& msg, + epix_label_posn A) +{ + Up(loc); + label(loc, off, msg, A); +} + +double th1(30), th2(20), rad(0.6), rad2(2.5), EPS(1.5); +P scat1(1,0), scat2(3.5,0); + +int main() +{ + picture(P(0,-1), P(6,1), "6 x 2in"); + + begin(); + degrees(); + arrow_inset(0.25); + + line(scat1, scat1 - cis(th1)); + line(scat1, P(xmax(),0)); + arrow(scat2, scat2+polar(rad2, th2)); + arrow(scat2, scat2+polar(rad2, -th2)); + + arc_arrow(scat1, rad, th1, EPS, 0.5); + arc_arrow(scat2, rad, 0, th2-EPS, 0.5); + arc_arrow(scat2, rad, 0, -th2+EPS, 0.5); + arrow(scat1 - polar(0.6, th1), scat1 - polar(0.55, th1)); + arrow(scat1 + P(1.5), scat1 + P(1.55)); + + dashed(); + line(scat1, scat1 + cis(th1)); + + label(scat1 - polar(0.6, th1), P(2,-2), "$\\vec{k}_0$", br); + label(scat1 + P(1.5), P(0,-4), "$\\vec{k}_1$", b); + + label(scat2+polar(rad2, th2), P(2,0), "$\\vec{k}_2^\\ell$", r); + label(scat2+polar(rad2, -th2), P(2,0), "$\\vec{k}_2^r$", r); + + label(scat1+polar(rad, 0.5*th1), P(4,-2), "$\\theta_1$", tr); + label(scat2+polar(rad, 0.5*th2), P(4,-2), "$\\theta_2$", tr); + label(scat2+polar(rad, -0.5*th2), P(4, 2), "$\\theta_2$", br); + + Dn(scat2+polar(0.6*rad2, th2), P(2,-2), "$\\vec{n}_2^\\ell$", br); + Up(scat2+polar(0.6*rad2, -th2), P(2, 2), "$\\vec{n}_2^r$", tr); + Up(scat1+P(1,0), P(2,-6), "$\\vec{n}_1$", b); + + label(scat2+polar(0.4*rad2, th2), P(-2, 2), "$\\ell$~Beam", tl); + label(scat2+polar(0.4*rad2, -th2), P(-2,-2), "$r$~Beam", bl); + + label(P(0.5*(xmin()+xmax()), ymin()), P(0,-2), "\\textsc{Fig.~1}", b); + tikz_format(); + end(); +} diff --git a/29784-t/images/sources/026a.xp b/29784-t/images/sources/026a.xp new file mode 100644 index 0000000..6ada707 --- /dev/null +++ b/29784-t/images/sources/026a.xp @@ -0,0 +1,176 @@ +/* -*-ePiX-*- */ +#include "epix.h" +using namespace ePiX; + +P sw(776,1892), ne(2984,680); +double XSZ(5.5), YSZ(1.2); // Cartesian dimensions + +// to screen +P pt(double x, double y) +{ + return P(XSZ*(x-sw.x1())/(ne.x1() - sw.x1()), + YSZ*(y-sw.x2())/(ne.x2() - sw.x2())); +} + +P Bl(380, 2160), Tr(3180, 60); +// to picture +P pic(double x, double y) +{ + return P(8*(x-Bl.x1())/(Tr.x1() - Bl.x1()), + 6*(y-Bl.x2())/(Tr.x2() - Bl.x2())); +} + +void Circ(const P& loc, const std::string& msg) +{ + dot_size(16); + circ(loc); + label(loc, msg); +} + +void key(const P& loc, const std::string& msg) +{ + P stem(P(0.5, 0.25)); + double scale(8.5 - 2*loc.x1()); + + P elbow(loc + scale*stem), tail(elbow+P(0.25)); + line(elbow, tail); + base(White(), 2.5); + line(elbow, tail); + base(Neutral(), 0); + arrow(elbow, elbow-scale*0.99*stem); + + Circ(tail, msg); +} + +int main() +{ + picture(P(0,0), P(8,6), "8 x 6in"); + + begin(); + degrees(); + + screen scr(P(0,0), P(XSZ, YSZ)); + activate(scr); + + grid(P(0,0), P(6, YSZ), 6, 3); + bold(); + grid(); + + axis Ax(P(0,0), P(5,0), 5, P(0,-4), b); + Ax.subdivide(2).tick_ratio(1).align(t).draw(); + + axis Ay(P(0,0), P(0,1), 5, P(-4,0), l); + Ay.align(r).draw(); + + axis Ax2(P(0,YSZ), P(5,YSZ), 5); + Ax2.subdivide(2).tick_ratio(1).align(b).draw_ticks(); + + axis Ay2(P(XSZ,0), P(XSZ, 1), 5); + Ay2.align(l).draw_ticks(); + + std::vector<P> data1, data2, data3, data4; + data1.push_back(pt(775, 883)); + data1.push_back(pt(875, 883)); + data1.push_back(pt(975, 883)); + data1.push_back(pt(1075, 884)); + data1.push_back(pt(1175, 886)); + data1.push_back(pt(1275, 888)); + data1.push_back(pt(1375, 893)); + data1.push_back(pt(1475, 903)); + data1.push_back(pt(1575, 915)); + data1.push_back(pt(1675, 944)); + data1.push_back(pt(1775, 998)); + data1.push_back(pt(1875, 1089)); + data1.push_back(pt(1975, 1225)); + data1.push_back(pt(2075, 1405)); // final common point + + data1.push_back(pt(2125, 1505)); + data1.push_back(pt(2175, 1573)); + data1.push_back(pt(2275, 1693)); + data1.push_back(pt(2375, 1777)); + data1.push_back(pt(2475, 1829)); + data1.push_back(pt(2575, 1860)); + data1.push_back(pt(2675, 1882)); + data1.push_back(pt(2775, 1893)); + data1.push_back(pt(2875, 1895)); + data1.push_back(pt(2975, 1896)); + + data2.push_back(pt(1975, 1225)); + data2.push_back(pt(2075, 1409)); + data2.push_back(pt(2125, 1507)); + data2.push_back(pt(2175, 1576)); + data2.push_back(pt(2275, 1710)); + data2.push_back(pt(2375, 1800)); + data2.push_back(pt(2475, 1851)); + data2.push_back(pt(2575, 1878)); + data2.push_back(pt(2675, 1892)); + data2.push_back(pt(2775, 1895)); + data2.push_back(pt(2875, 1896)); + + data3.push_back(pt(1975, 1225)); + data3.push_back(pt(2075, 1409)); + data3.push_back(pt(2125, 1508)); + data3.push_back(pt(2175, 1597)); + data3.push_back(pt(2275, 1746)); + data3.push_back(pt(2375, 1841)); + data3.push_back(pt(2475, 1882)); + data3.push_back(pt(2575, 1895)); + data3.push_back(pt(2675, 1896)); + + data4.push_back(pt(1975, 1225)); + data4.push_back(pt(2075, 1409)); + data4.push_back(pt(2125, 1519)); + data4.push_back(pt(2175, 1667)); + data4.push_back(pt(2275, 1861)); + data4.push_back(pt(2375, 1892)); + data4.push_back(pt(2475, 1896)); + + spline(data1, 12); + spline(data2, 12); + spline(data3, 12); + spline(data4, 12); + + plain(); + key(pt(2288, 1706), "$1$"); + key(pt(2305, 1742), "$2$"); + key(pt(2314, 1789), "$3$"); + key(pt(2292, 1873), "$4$"); + crop(); + + label(P(1.5), P(0,-4), "$\\rho$", b); + label(P(2.75, 0), P(0,-18), // added period + "\\textsc{Fig.~2} -- Central form factors, tail variation.", b); + + label_angle(90); + label(P(0, 0.6), P(-24,0), "\\Code{FFCR} and/or \\Code{FFCI}", l); + deactivate(scr); + + inset(scr, P(1.125,0.5), P(8, 4.25)); + + // now draw rest of page + label_angle(0); + label(pic(1004, 220), P(0,0), + "\\Code{R0 = 1.2},\\quad \\Code{A = 0.52},\\quad \\Code{HA = 0},\\quad \\Code{FN1A = 1},\\quad $\\rho_{m_A} = \\bar{\\rho}_N = 3.24$", r); + + label(pic(1700, 160), P(0,0), "\\framebox{p - Cu\\quad $9.75$~\\MeV}", t); + + P lb(pic(1232, 304)), dY(pic(1232, 364) - lb); + Circ(lb, "$1$"); + label(lb, P(12,0), "\\Code{FN2A = 0.01}", r); + + lb += dY; + Circ(lb, "$2$"); + // Capitalize Standard + label(lb, P(12,0), "\\Code{FN2A = 1}\\qquad(Standard form factor)", r); + + lb += dY; + Circ(lb, "$3$"); + label(lb, P(12,0), "\\Code{FN2A = 3}", r); + + lb += dY; + Circ(lb, "$4$"); + label(lb, P(12,0), "\\Code{FN2A = 10}", r); + + tikz_format(); + end(); +} diff --git a/29784-t/images/sources/027a.xp b/29784-t/images/sources/027a.xp new file mode 100644 index 0000000..5a1cf1b --- /dev/null +++ b/29784-t/images/sources/027a.xp @@ -0,0 +1,191 @@ +/* -*-ePiX-*- */ +#include "epix.h" +using namespace ePiX; + +P sw(666,2122), ne(2984,602); +double XSZ(25), YSZ(3); // Cartesian dimensions + +P pt(double x, double y) +{ + return P(XSZ*(x-sw.x1())/(ne.x1() - sw.x1()), + YSZ*(y-sw.x2())/(ne.x2() - sw.x2())); +} + +P Bl(380, 2140), Tr(3180, 40); +P pic(double x, double y) +{ + return P(8*(x-Bl.x1())/(Tr.x1() - Bl.x1()), + 6*(y-Bl.x2())/(Tr.x2() - Bl.x2())); +} + +void Circ(const P& loc, const std::string& msg) +{ + dot_size(16); + circ(loc); + label(loc, msg); +} + +int main() +{ + picture(P(0,0), P(8,6), "8 x 6in"); + + begin(); + degrees(); + + screen scr(P(0,0), P(XSZ, YSZ)); + activate(scr); + + grid(P(0,0), P(25, 3), 5, 3); + bold(); + grid(); + + axis Ax(P(0,0), P(XSZ,0), 5, P(0,-4), b); + Ax.subdivide(5).tick_ratio(1).align(t).draw(); + + axis Ay(P(0,0), P(0,YSZ), 3, P(-4,0), l); + Ay.subdivide(5).tick_ratio(1).align(r).draw(); + + axis Ax2(P(0, YSZ), P(XSZ,YSZ), 5); + Ax2.subdivide(5).tick_ratio(1).align(b).draw_ticks(); + + axis Ay2(P(XSZ,0), P(XSZ,YSZ), 3); + Ay2.subdivide(5).tick_ratio(1).align(l).draw_ticks(); + + std::vector<P> data1, data2, data3, data4; + data1.push_back(pt(666, 1614)); + data1.push_back(pt(675, 1614)); + data1.push_back(pt(775, 1614)); + data1.push_back(pt(865, 1614)); + data1.push_back(pt(875, 1614)); + data1.push_back(pt(975, 1614)); + data1.push_back(pt(1075, 1614)); + data1.push_back(pt(1175, 1615)); + data1.push_back(pt(1275, 1616)); + data1.push_back(pt(1375, 1618)); + data1.push_back(pt(1475, 1620)); + data1.push_back(pt(1575, 1629)); + data1.push_back(pt(1675, 1640)); + data1.push_back(pt(1775, 1657)); // Meets path4 + data1.push_back(pt(1875, 1683)); + data1.push_back(pt(1975, 1728)); + data1.push_back(pt(2075, 1794)); // first common point + + data1.push_back(pt(2175, 1865)); + data1.push_back(pt(2275, 1937)); + data1.push_back(pt(2375, 1996)); + data1.push_back(pt(2475, 2043)); + data1.push_back(pt(2575, 2075)); + data1.push_back(pt(2675, 2089)); + data1.push_back(pt(2775, 2098)); + data1.push_back(pt(2875, 2104)); + data1.push_back(pt(2975, 2108)); + + data2.push_back(pt(666, 1108)); + data2.push_back(pt(675, 1108)); + data2.push_back(pt(775, 1117)); + data2.push_back(pt(875, 1136)); + data2.push_back(pt(975, 1163)); + data2.push_back(pt(1075, 1200)); + data2.push_back(pt(1175, 1243)); + data2.push_back(pt(1275, 1292)); + data2.push_back(pt(1375, 1344)); + data2.push_back(pt(1475, 1398)); + data2.push_back(pt(1575, 1456)); + data2.push_back(pt(1675, 1516)); + data2.push_back(pt(1775, 1578)); // Meets path4 + data2.push_back(pt(1875, 1642)); + data2.push_back(pt(1975, 1715)); + data2.push_back(pt(2075, 1795)); // first common point + + data3.push_back(pt(666, 2120)); + data3.push_back(pt(675, 2121)); + data3.push_back(pt(775, 2113)); + data3.push_back(pt(875, 2093)); + data3.push_back(pt(975, 2066)); + data3.push_back(pt(1075, 2033)); + data3.push_back(pt(1175, 1991)); + data3.push_back(pt(1275, 1945)); + data3.push_back(pt(1375, 1896)); + data3.push_back(pt(1475, 1846)); + data3.push_back(pt(1575, 1799)); + data3.push_back(pt(1675, 1761)); + data3.push_back(pt(1775, 1737)); + data3.push_back(pt(1875, 1730)); + data3.push_back(pt(1975, 1752)); + data3.push_back(pt(2075, 1794)); // first common point + + data4.push_back(pt(666, 600)); + data4.push_back(pt(675, 603)); + data4.push_back(pt(775, 633)); + data4.push_back(pt(875, 707)); + data4.push_back(pt(975, 817)); + data4.push_back(pt(1075, 943)); + data4.push_back(pt(1175, 1078)); + data4.push_back(pt(1275, 1219)); + data4.push_back(pt(1375, 1357)); + data4.push_back(pt(1475, 1474)); + data4.push_back(pt(1575, 1568)); + data4.push_back(pt(1675, 1627)); + data4.push_back(pt(1775, 1656)); // Meets path4 + + spline(data1, 12); + spline(data2, 12); + spline(data3, 12); + spline(data4, 12); + + plain(); + Circ(pt(953, 1658), "$1$"); + Circ(pt(943, 1198), "$2$"); + Circ(pt(958, 2019), "$3$"); + Circ(pt(940, 852), "$4$"); + + label(P(17.5), P(0,-4), "$\\rho$", b); + label(P(12.5, 0), P(0,-18), // added period + "\\textsc{Fig.~3} -- Central form factors; central dips and rises.", b); + + label_angle(90); + label(P(0, 1.5), P(-18,0), "\\Code{FFCR} and/or \\Code{FFCI}", l); + + deactivate(scr); + + inset(scr, P(1.25,0.5), P(8, 4.375)); + + // now draw rest of page + label_angle(0); + label(pic(1156, 224), P(0,0), + "\\Code{R0 = 1.25},\\quad \\Code{A = 0.65},\\quad \\Code{FN1A = 1},\\quad \\Code{FN2A = 1}", r); + + label(pic(1608,180), P(0,0), "\\framebox{p - Ag\\quad $135$~\\MeV}", t); + + P lb(pic(1300, 300)), dY(pic(1300, 364) - lb); + Circ(lb, "$1$"); + // Capitalized Standard + label(lb, P(12,0), "\\Code{HA = 0}, \\Code{PMA = 1}, $\\rho_{m_A} = \\bar{\\rho}_N = 15.04$\\quad (Standard form factor)", r); + + lb += dY; + Circ(lb, "$2$"); + label(lb, P(12,0), "\\Code{HA = 1}", r); + + label(pic(1578, 354), "\\Ditto"); + label(pic(1578, 420), "\\Ditto"); + + label(pic(1770, 354), "\\Ditto"); + label(pic(1770, 420), "\\Ditto"); + + label(pic(1922, 354), "\\Ditto"); + label(pic(1922, 420), "\\Ditto"); + + label(pic(2069, 354), "\\Ditto"); + label(pic(2069, 420), "\\Ditto"); + + lb += dY; + Circ(lb, "$3$"); + label(lb, P(12,0), "\\Code{HA =-1}", r); + + lb += dY; + Circ(lb, "$4$"); + label(lb, P(12,0), "\\Code{HA = 2}, \\Code{PMA = 0.7}, $\\rho_{m_A} = 0.7\\bar{\\rho}_N = 10.53$", r); + + tikz_format(); + end(); +} diff --git a/29784-t/images/sources/028a.xp b/29784-t/images/sources/028a.xp new file mode 100644 index 0000000..232182b --- /dev/null +++ b/29784-t/images/sources/028a.xp @@ -0,0 +1,166 @@ +/* -*-ePiX-*- */ +#include "epix.h" +using namespace ePiX; + +P sw(789,1952), ne(3000, 730); +double XSZ(5.5), YSZ(1.2); // Cartesian dimensions + +P pt(double x, double y) +{ + return P(XSZ*(x-sw.x1())/(ne.x1() - sw.x1()), + YSZ*(y-sw.x2())/(ne.x2() - sw.x2())); +} + +P Bl(380, 2200), Tr(3180, 100); +P pic(double x, double y) +{ + return P(8*(x-Bl.x1())/(Tr.x1() - Bl.x1()), + 6*(y-Bl.x2())/(Tr.x2() - Bl.x2())); +} + +void Circ(const P& loc, const std::string& msg) +{ + dot_size(16); + circ(loc); + label(loc, msg); +} + +void key(const P& loc, const std::string& msg) +{ + P stem(P(0.5, 0.25)); + double scale(5 - 2*loc.x1()); // to put labels at 4.5 = (5+stem.x1())/2 + + P elbow(loc + scale*stem), tail(elbow+P(0.25)); + line(elbow, tail); + base(White(), 2.5); + line(elbow, tail); + base(Neutral(), 0); + arrow(elbow, elbow-scale*0.99*stem); + + Circ(tail, msg); +} + +int main() +{ + picture(P(0,0), P(8,6), "8 x 6in"); + + begin(); + degrees(); + + screen scr(P(0,0), P(XSZ, YSZ)); + activate(scr); + + grid(P(0,0), P(6, 1.2), 6, 3); + bold(); + grid(); + + axis Ax(P(0,0), P(5,0), 5, P(0,-4), b); + Ax.subdivide(2).tick_ratio(1).align(t).draw(); + + axis Ay(P(0,0), P(0,1), 5, P(-4,0), l); + Ay.align(r).draw(); + + axis Ax2(P(0,YSZ), P(5,YSZ), 5); + Ax2.subdivide(2).tick_ratio(1).align(b).draw_ticks(); + + axis Ay2(P(XSZ,0), P(XSZ,YSZ), 6); + Ay2.align(l).draw_ticks(); + + std::vector<P> data1, data2, data3; + data1.push_back(pt(791, 931)); + data1.push_back(pt(875, 931)); + data1.push_back(pt(975, 931)); + data1.push_back(pt(1075, 931)); + data1.push_back(pt(1175, 931)); + data1.push_back(pt(1275, 932)); + data1.push_back(pt(1375, 935)); + data1.push_back(pt(1475, 936)); + data1.push_back(pt(1575, 941)); + data1.push_back(pt(1675, 962)); + data1.push_back(pt(1775, 1013)); + data1.push_back(pt(1875, 1105)); + data1.push_back(pt(1975, 1245)); + data1.push_back(pt(2075, 1427)); // first common point + + data1.push_back(pt(2175, 1603)); + data1.push_back(pt(2275, 1743)); + data1.push_back(pt(2375, 1837)); + data1.push_back(pt(2475, 1896)); + data1.push_back(pt(2575, 1927)); + data1.push_back(pt(2675, 1940)); + data1.push_back(pt(2775, 1947)); + data1.push_back(pt(2875, 1948)); + data1.push_back(pt(2990, 1948)); + + data2.push_back(pt(1275, 932)); + data2.push_back(pt(1375, 935)); + data2.push_back(pt(1475, 939)); + data2.push_back(pt(1575, 956)); + data2.push_back(pt(1675, 982)); + data2.push_back(pt(1775, 1031)); + data2.push_back(pt(1875, 1120)); + data2.push_back(pt(1975, 1250)); + data2.push_back(pt(2075, 1428)); + data2.push_back(pt(2175, 1603)); + + data3.push_back(pt(791, 931)); + data3.push_back(pt(875, 932)); + data3.push_back(pt(975, 933)); + data3.push_back(pt(1075, 937)); + data3.push_back(pt(1175, 944)); + data3.push_back(pt(1275, 954)); + data3.push_back(pt(1375, 967)); + data3.push_back(pt(1475, 984)); + data3.push_back(pt(1575, 1006)); + data3.push_back(pt(1675, 1037)); + data3.push_back(pt(1775, 1084)); + data3.push_back(pt(1875, 1159)); + data3.push_back(pt(1975, 1268)); + data3.push_back(pt(2075, 1428)); + + spline(data1, 12); + spline(data2, 12); + spline(data3, 12); + + plain(); + key(pt(1678, 962), "$1$"); + key(pt(1714, 997), "$2$"); + key(pt(1729, 1060), "$3$"); + crop(); + + label(P(2.5), P(0,-4), "$\\rho$", b); + label(P(2.75, 0), P(0,-18), // added period + "\\textsc{Fig.~4} -- Central form factors, knee variation.", b); + + label_angle(90); + label(P(0, 0.6), P(-24,0), "\\Code{FFCR} and/or \\Code{FFCI}", l); + deactivate(scr); + + inset(scr, P(1.125,0.5), P(8, 4.25)); + + // now draw rest of page + label_angle(0); + label(pic(1292, 244), P(0,0), + "\\Code{R0 = 1.20},\\quad \\Code{A = 0.52},\\quad \\Code{FN2A = 1},\\quad \\Code{PMA = 1},\\quad $\\rho_{m_A} = \\bar{\\rho}_N = 3.24$", r); + + label(pic(1916, 204), P(0,0), "\\framebox{p - Cu\\quad $9.75$~\\MeV}", t); + + P lb(pic(1584, 320)), dY(pic(1584, 384) - lb); + Circ(lb, "$1$");// labels uncircled in original + label(lb, P(12,0), "\\Code{FN1A = 0.01}", r); + label(lb, P(100,0), "\\Code{HA = 0}", r); + + lb += dY; + Circ(lb, "$2$"); + label(lb, P(12,0), "\\Code{FN1A = 1}", r); + label(lb, P(100,0), "\\Code{HA = 0}", r); + label(lb, P(172,0), "(Standard form factor)", r); + + lb += dY; + Circ(lb, "$3$"); + label(lb, P(12,0), "\\Code{FN1A = 3}", r); + label(lb, P(100,0), "\\Code{HA = 0.046}", r); + + tikz_format(); + end(); +} diff --git a/29784-t/images/sources/030a.xp b/29784-t/images/sources/030a.xp new file mode 100644 index 0000000..9bc4912 --- /dev/null +++ b/29784-t/images/sources/030a.xp @@ -0,0 +1,185 @@ +/* -*-ePiX-*- */ +#include "epix.h" +using namespace ePiX; + +P sw(776, 1790), ne(2999, 778); +double XSZ(5.5), YSZ(0.4); // Cartesian dimensions + +P pt(double x, double y) +{ + return P(XSZ*(x-sw.x1())/(ne.x1() - sw.x1()), + YSZ*(y-sw.x2())/(ne.x2() - sw.x2())); +} + +P Bl(380, 2240), Tr(3180, 140); +P pic(double x, double y) +{ + return P(8*(x-Bl.x1())/(Tr.x1() - Bl.x1()), + 6*(y-Bl.x2())/(Tr.x2() - Bl.x2())); +} + +void Circ(const P& loc, const std::string& msg) +{ + dot_size(16); + circ(loc); + label(loc, msg); +} + +void key(const P& loc, const std::string& msg, bool extend=false) +{ + P stem(P(0.5, 0.035)); + double scale(8.5 - 2*loc.x1()); // to put labels at 4.5 = (8.5+stem.x1())/2 + + P elbow(loc + scale*stem); + P tail(extend ? elbow+P(0.45) : elbow+P(0.25)); + line(elbow, tail); + base(White(), 2.5); + line(elbow, tail); + base(Neutral(), 0); + arrow(elbow, elbow-scale*0.99*stem); + + Circ(tail, msg); +} + +int main() +{ + picture(P(0,0), P(8,6), "8 x 6in"); + + begin(); + degrees(); + + screen scr(P(0,0), P(XSZ, YSZ)); + activate(scr); + + grid(P(0,0), P(6, 0.4), 6, 4); + bold(); + grid(); + + axis Ax(P(0,0), P(5,0), 5, P(0,-4), b); + Ax.subdivide(2).tick_ratio(1).align(t).draw(); + + axis Ay(P(0,0), P(0,YSZ), 4, P(-4,0), l); + Ay.subdivide(2).tick_ratio(1).align(r).unmark(0.4).draw(); + + axis Ax2(P(0,YSZ), P(5,YSZ), 5); + Ax2.subdivide(2).tick_ratio(1).align(b).draw_ticks(); + + axis Ay2(P(XSZ,0), P(XSZ,YSZ), 4); + Ay2.subdivide(2).tick_ratio(1).align(l).draw_ticks(); + + std::vector<P> data1, data2, data3, data4; + data1.push_back(pt(775, 1768)); + data1.push_back(pt(875, 1790)); + data1.push_back(pt(975, 1790)); + data1.push_back(pt(1075, 1788)); + data1.push_back(pt(1175, 1783)); + data1.push_back(pt(1275, 1776)); + data1.push_back(pt(1375, 1761)); + data1.push_back(pt(1475, 1737)); + data1.push_back(pt(1575, 1699)); + data1.push_back(pt(1675, 1629)); + data1.push_back(pt(1775, 1523)); + data1.push_back(pt(1875, 1391)); + data1.push_back(pt(1975, 1270)); + + data1.push_back(pt(2025, 1243)); // final common point + data1.push_back(pt(2075, 1239)); + data1.push_back(pt(2175, 1349)); + data1.push_back(pt(2275, 1502)); + data1.push_back(pt(2375, 1621)); + data1.push_back(pt(2475, 1687)); + data1.push_back(pt(2575, 1732)); + data1.push_back(pt(2675, 1762)); + data1.push_back(pt(2775, 1777)); + data1.push_back(pt(2875, 1783)); + data1.push_back(pt(2975, 1787)); + + data2.push_back(pt(2025, 1243)); // final common point + data2.push_back(pt(2075, 1237)); + data2.push_back(pt(2175, 1317)); + data2.push_back(pt(2275, 1466)); + data2.push_back(pt(2375, 1620)); + data2.push_back(pt(2475, 1698)); + data2.push_back(pt(2575, 1745)); + data2.push_back(pt(2675, 1774)); + data2.push_back(pt(2775, 1784)); + data2.push_back(pt(2875, 1786)); + data2.push_back(pt(2975, 1787)); + + data3.push_back(pt(2025, 1243)); // final common point + data3.push_back(pt(2075, 1235)); + data3.push_back(pt(2175, 1268)); + data3.push_back(pt(2275, 1412)); + data3.push_back(pt(2375, 1610)); + data3.push_back(pt(2475, 1721)); + data3.push_back(pt(2575, 1769)); + data3.push_back(pt(2675, 1787)); + data3.push_back(pt(2775, 1787)); + + data4.push_back(pt(2025, 1243)); // final common point + data4.push_back(pt(2050, 1236)); + data4.push_back(pt(2075, 1229)); + data4.push_back(pt(2100, 1208)); + data4.push_back(pt(2125, 1164)); + data4.push_back(pt(2150, 1111)); + data4.push_back(pt(2175, 1048)); + data4.push_back(pt(2200, 1007)); + data4.push_back(pt(2225, 1025)); + data4.push_back(pt(2250, 1102)); + data4.push_back(pt(2275, 1328)); + data4.push_back(pt(2325, 1669)); + data4.push_back(pt(2375, 1763)); + data4.push_back(pt(2475, 1787)); + data4.push_back(pt(2575, 1787)); + data4.push_back(pt(2675, 1787)); + + spline(data1, 12); + spline(data2, 12); + spline(data3, 12); + spline(data4, 12); + + plain(); + key(pt(2190, 1370), "$1$", true); + key(pt(2180, 1326), "$2$"); + key(pt(2178, 1272), "$3$", true); + key(pt(2256, 1174), "$4$"); + crop(); + + label(P(3.5), P(0,-4), "$\\rho$", b); + label(P(2.75, 0), P(0,-18), // label set on two lines in orig; added period + "\\textsc{Fig.~5} -- Spin-orbit form factor (derivative form). Tail variation.", b); + + label_angle(90); + label(P(0, 0.2), P(-24,0), "\\Code{FFSR} and/or \\Code{FFSI}", l); + deactivate(scr); + + // inset(scr, P(1.125,0.5), P(8, 4.25)); + inset(scr, P(0.75,0.5), P(8, 4.25)); + + // now draw rest of page + label_angle(0); + label(pic(1100, 312), P(0,0), + "\\Code{R0 = 1.2},\\quad \\Code{A = 0.52},\\quad \\Code{FN1A = 3},\\quad \\Code{PMA = 1},\\quad $\\rho_{m_A} = \\bar{\\rho}_N = 3.24$", r); + + label(pic(1780, 260), P(0,0), "\\framebox{p - Cu\\quad $9.75$~\\MeV}", t); + + P lb(pic(1244, 372)), dY(pic(1244, 440) - lb); + Circ(lb, "$1$"); + label(lb, P(12,0), "\\Code{FN2A = 0.01}", r); + + lb += dY; + Circ(lb, "$2$"); + // Capitalized Standard + label(lb, P(12,0), "\\Code{FN2A = 1}\\qquad(Standard derivative form factor)", r); + + lb += dY; + Circ(lb, "$3$"); + label(lb, P(12,0), "\\Code{FN2A = 3}", r); + + lb += dY; + Circ(lb, "$4$"); + label(lb, P(12,0), "\\Code{FN2A = 10}", r); + + tikz_format(); + end(); +} diff --git a/29784-t/images/sources/031a.xp b/29784-t/images/sources/031a.xp new file mode 100644 index 0000000..715ace1 --- /dev/null +++ b/29784-t/images/sources/031a.xp @@ -0,0 +1,188 @@ +/* -*-ePiX-*- */ +#include "epix.h" +using namespace ePiX; + +P sw(680, 1382), ne(2988, 624); +double XSZ(25), YSZ(0.03); // Cartesian dimensions + +P pt(double x, double y) +{ + return P(XSZ*(x-sw.x1())/(ne.x1() - sw.x1()), + YSZ*(y-sw.x2())/(ne.x2() - sw.x2())); +} + +P Bl(380, 2180), Tr(3180, 80); +P pic(double x, double y) +{ + return P(8*(x-Bl.x1())/(Tr.x1() - Bl.x1()), + 6*(y-Bl.x2())/(Tr.x2() - Bl.x2())); +} + +void Circ(const P& loc, const std::string& msg) +{ + dot_size(16); + circ(loc); + label(loc, msg); +} + + +int main() +{ + picture(P(0,0), P(8,6), "8 x 6in"); + + begin(); + degrees(); + + screen scr(P(0,-YSZ), P(XSZ, YSZ)); + activate(scr); + + grid(P(0,-YSZ), P(30, YSZ), 6, 6); + bold(); + grid(); + + axis Ax(P(0,-YSZ), P(30,-YSZ), 6, P(0,-4), b); + Ax.subdivide(5).unmark(30).tick_ratio(1).align(t).draw(); + + axis Ay(P(0,-YSZ), P(0,YSZ), 6, P(-4,0), l); + Ay.subdivide(2).tick_ratio(1).align(r).draw(); + + axis Ax2(P(0,YSZ), P(30,YSZ), 6); + Ax2.subdivide(5).tick_ratio(1).align(b).draw_ticks(); + + axis Ay2(P(XSZ,-YSZ), P(XSZ,YSZ), 6); + Ay2.subdivide(2).tick_ratio(1).align(l).draw_ticks(); + + std::vector<P> data1, data2, data3, data4; + spline(pt(680, 1356), pt(690, 1369), pt(700, 1377), pt(710, 1379)); + + // data1.push_back(pt(680, 1356)); + // data1.push_back(pt(700, 1375)); + data1.push_back(pt(710, 1379)); + data1.push_back(pt(725, 1379)); + data1.push_back(pt(775, 1379)); + data1.push_back(pt(875, 1380)); + data1.push_back(pt(975, 1379)); + data1.push_back(pt(1075, 1376)); + data1.push_back(pt(1175, 1375)); + data1.push_back(pt(1275, 1372)); + data1.push_back(pt(1375, 1366)); + data1.push_back(pt(1475, 1355)); + data1.push_back(pt(1575, 1340)); + data1.push_back(pt(1675, 1316)); + data1.push_back(pt(1733, 1296)); // hits data4 + data1.push_back(pt(1775, 1282)); + data1.push_back(pt(1875, 1238)); + data1.push_back(pt(1975, 1185)); + data1.push_back(pt(2075, 1135)); + data1.push_back(pt(2175, 1122)); + data1.push_back(pt(2275, 1154)); // first common point + + data1.push_back(pt(2375, 1215)); + data1.push_back(pt(2475, 1273)); + data1.push_back(pt(2575, 1316)); + data1.push_back(pt(2675, 1344)); + data1.push_back(pt(2775, 1362)); + data1.push_back(pt(2875, 1371)); + data1.push_back(pt(2983, 1376)); + + // data2.push_back(pt(680, 654)); + // data2.push_back(pt(690, 681)); + // data2.push_back(pt(725, 718)); + spline(pt(680, 654), pt(690, 681), pt(725, 718), pt(750, 730)); + data2.push_back(pt(750, 730)); + data2.push_back(pt(775, 743)); + data2.push_back(pt(875, 790)); + data2.push_back(pt(975, 830)); + data2.push_back(pt(1075, 870)); + data2.push_back(pt(1175, 914)); + data2.push_back(pt(1275, 958)); + data2.push_back(pt(1375, 995)); + data2.push_back(pt(1475, 1032)); + data2.push_back(pt(1575, 1064)); + data2.push_back(pt(1675, 1083)); + data2.push_back(pt(1775, 1096)); + data2.push_back(pt(1875, 1099)); + data2.push_back(pt(1975, 1096)); + data2.push_back(pt(2075, 1100)); + data2.push_back(pt(2175, 1115)); + data2.push_back(pt(2275, 1153)); // first common point + data2.push_back(pt(2375, 1215)); + + data3.push_back(pt(680, 2054)); + data3.push_back(pt(775, 2010)); + data3.push_back(pt(875, 1965)); + data3.push_back(pt(975, 1921)); + data3.push_back(pt(1075, 1876)); + data3.push_back(pt(1175, 1828)); + data3.push_back(pt(1275, 1781)); + data3.push_back(pt(1375, 1732)); + data3.push_back(pt(1475, 1678)); + data3.push_back(pt(1575, 1618)); + data3.push_back(pt(1675, 1550)); + data3.push_back(pt(1775, 1470)); + data3.push_back(pt(1875, 1371)); + data3.push_back(pt(1975, 1262)); + data3.push_back(pt(2075, 1171)); + data3.push_back(pt(2175, 1126)); + data3.push_back(pt(2225, 1133)); + data3.push_back(pt(2275, 1154)); // first common point + + data4.push_back(pt(1451, 624)); + data4.push_back(pt(1475, 679)); + data4.push_back(pt(1575, 929)); + data4.push_back(pt(1675, 1164)); + data4.push_back(pt(1733, 1296)); + + spline(data1, 4); + spline(data2, 4); + spline(data3, 4); + spline(data4, 4); + + plain(); + Circ(pt(1428, 1320), "$1$"); + Circ(pt(1356, 944), "$2$"); + Circ(pt(1376, 1688), "$3$"); + line(pt(1704, 1175), pt(1741, 1261)); + dart(pt(1741, 1261), pt(1806, 1236)); + Circ(pt(1716, 1168), "$4$"); + crop(); + + label(P(12), P(0,-4), "$\\rho$", b); + label(P(12.5, -YSZ), P(0,-18), // Added period + "{\\small\\textsc{Fig.~6} -- Spin-orbit form factors (derivative form). Effect of dips and rises in central form factor.}", b); + + label_angle(90); + label(P(0, 0), P(-36,0), "\\Code{FFSR} and/or \\Code{FFSI}", l); + deactivate(scr); + + inset(scr, P(1.125,0.5), P(8, 4.25)); + + // now draw rest of page + label_angle(0); + label(pic(1088, 268), P(0,0), + "\\Code{R0 = 1.25},\\quad \\Code{A = 0.65},\\quad \\Code{FN1A = 1},\\quad \\Code{FN2A = 1}", r); + + label(pic(1624, 208), P(0,0), "\\framebox{p - Ag\\quad $135$~\\MeV}", t); + + P lb(pic(1216, 340)), dY(pic(1216, 408) - lb); + Circ(lb, "$1$"); + // Capitalized Standard + label(lb, P(12,0), "\\Code{HA = 0},\\quad\\Code{PMA = 1},\\qquad $\\rho_{m_A} = \\bar{\\rho}_N = 15.04$\\quad (Standard derivative form factor)", r); + + lb += dY; + Circ(lb, "$2$"); + label(lb, P(12,0), "\\Code{HA = 1},", r); + label(lb, P(72,0), "\\Ditto\\hspace*{1in}\\Ditto\\qquad\\Ditto\\qquad\\Ditto", r); + + lb += dY; + Circ(lb, "$3$"); + label(lb, P(12,0), "\\Code{HA = -1},", r); + label(lb, P(72,0), "\\Ditto\\hspace*{1in}\\Ditto\\qquad\\Ditto\\qquad\\Ditto", r); + + lb += dY; + Circ(lb, "$4$"); + label(lb, P(12,0), "\\Code{HA = 2},\\quad\\Code{PMA = 0.7},\\quad $\\rho_{m_A} = 0.7\\ \\bar{\\rho}_N = 10.53$", r); + + tikz_format(); + end(); +} diff --git a/29784-t/images/sources/032a.xp b/29784-t/images/sources/032a.xp new file mode 100644 index 0000000..1364b3f --- /dev/null +++ b/29784-t/images/sources/032a.xp @@ -0,0 +1,177 @@ +/* -*-ePiX-*- */ +#include "epix.h" +using namespace ePiX; + +P sw(758, 1718), ne(2976, 960); +double XSZ(5.5), YSZ(0.3); // Cartesian dimensions + +P pt(double x, double y) +{ + return P(XSZ*(x-sw.x1())/(ne.x1() - sw.x1()), + YSZ*(y-sw.x2())/(ne.x2() - sw.x2())); +} + +P Bl(380, 2180), Tr(3180, 80); +P pic(double x, double y) +{ + return P(8*(x-Bl.x1())/(Tr.x1() - Bl.x1()), + 6*(y-Bl.x2())/(Tr.x2() - Bl.x2())); +} + +void Circ(const P& loc, const std::string& msg) +{ + dot_size(16); + circ(loc); + label(loc, msg); +} + +void key(const P& loc, const std::string& msg) +{ + P stem(P(0.5, -0.05)); + double scale(2 - loc.x1()); // to put labels at 2.25 = (4+stem.x1())/2 + + P elbow(loc + scale*stem), tail(elbow-P(0.25)); + line(elbow, tail); + base(White(), 2.5); + line(elbow, tail); + base(Neutral(), 0); + arrow(elbow, elbow-scale*0.99*stem); + + Circ(tail, msg); +} + +int main() +{ + picture(P(0,0), P(8,6), "8 x 6in"); + + begin(); + degrees(); + + screen scr(P(0,0), P(XSZ, YSZ)); + activate(scr); + + grid(P(0,0), P(6, YSZ), 6, 3); + bold(); + grid(); + + axis Ax(P(0,0), P(5,0), 5, P(0,-4), b); + Ax.subdivide(2).tick_ratio(1).align(t).draw(); + + axis Ay(P(0,0), P(0,YSZ), 3, P(-4,0), l); + Ay.align(r).draw(); + + axis Ax2(P(0,YSZ), P(5,YSZ), 5); + Ax2.subdivide(2).tick_ratio(1).align(b).draw_ticks(); + + // axis Ay2(P(XSZ,0), P(XSZ,YSZ), 3); + // Ay2.align(l).draw_ticks(); + + std::vector<P> data1, data2, data3; + data1.push_back(pt(758, 1718)); + data1.push_back(pt(1275, 1718)); + data1.push_back(pt(1375, 1712)); + data1.push_back(pt(1475, 1687)); + data1.push_back(pt(1575, 1645)); + data1.push_back(pt(1675, 1559)); + data1.push_back(pt(1775, 1411)); + data1.push_back(pt(1875, 1249)); + data1.push_back(pt(1975, 1149)); + data1.push_back(pt(2075, 1158)); + data1.push_back(pt(2175, 1276)); // first common point + + data1.push_back(pt(2275, 1439)); + data1.push_back(pt(2375, 1556)); + data1.push_back(pt(2475, 1634)); + data1.push_back(pt(2575, 1682)); + data1.push_back(pt(2675, 1703)); + data1.push_back(pt(2775, 1710)); + data1.push_back(pt(2875, 1715)); + data1.push_back(pt(2975, 1715)); + + data2.push_back(pt(758, 1718)); + data2.push_back(pt(975, 1715)); + data2.push_back(pt(1075, 1712)); + data2.push_back(pt(1175, 1708)); + data2.push_back(pt(1275, 1697)); + data2.push_back(pt(1375, 1683)); + data2.push_back(pt(1475, 1654)); + data2.push_back(pt(1575, 1615)); + data2.push_back(pt(1675, 1544)); + data2.push_back(pt(1725, 1494)); + data2.push_back(pt(1775, 1438)); + data2.push_back(pt(1825, 1369)); + data2.push_back(pt(1875, 1296)); + data2.push_back(pt(1890, 1275)); + data2.push_back(pt(1925, 1234)); + data2.push_back(pt(1975, 1187)); + data2.push_back(pt(2075, 1168)); + data2.push_back(pt(2175, 1277)); // first common point + + data3.push_back(pt(758, 1658)); + data3.push_back(pt(775, 1657)); + data3.push_back(pt(875, 1652)); + data3.push_back(pt(975, 1649)); + data3.push_back(pt(1075, 1644)); + data3.push_back(pt(1175, 1642)); + data3.push_back(pt(1275, 1638)); + data3.push_back(pt(1375, 1628)); + data3.push_back(pt(1475, 1609)); + data3.push_back(pt(1575, 1578)); + data3.push_back(pt(1675, 1534)); + data3.push_back(pt(1725, 1502)); + data3.push_back(pt(1775, 1460)); + data3.push_back(pt(1825, 1412)); + data3.push_back(pt(1875, 1357)); + data3.push_back(pt(1894, 1336)); + data3.push_back(pt(1975, 1236)); + data3.push_back(pt(2025, 1180)); + data3.push_back(pt(2050, 1172)); + data3.push_back(pt(2075, 1173)); + data3.push_back(pt(2125, 1204)); + data3.push_back(pt(2175, 1280)); // first common point + + spline(data1, 6); + spline(data2, 6); + spline(data3, 6); + + plain(); + key(pt(1901, 1209), "$1$"); + key(pt(1890, 1275), "$2$"); + key(pt(1894, 1336), "$3$"); + crop(); + + label(P(3.5), P(0,-4), "$\\rho$", b); + label(P(2.75, 0), P(0,-18), + "\\textsc{Fig.~7} -- Spin-orbit form factor (derivative form). Knee variation.", b); + + label_angle(90); + label(P(0, 0.15), P(-24,0), "\\Code{FFSR} and/or \\Code{FFSI}", l); + deactivate(scr); + + inset(scr, P(1.125,1.5), P(8, 4.25)); + + // now draw rest of page + label_angle(0); + label(pic(1238, 376), P(0,0), + "\\Code{R0 = 1.20},\\quad \\Code{A = 0.52},\\quad \\Code{FN2A = 1},\\quad \\Code{PMA = 1},\\quad $\\rho_{m_A} = 1$, $\\bar{\\rho}_N = 3.24$", r); + + label(pic(1760, 278), P(0,0), "\\framebox{p - Cu\\quad $9.75$~\\MeV}", t); + + P lb(pic(1624, 462)), dY(pic(1624, 528) - lb); + Circ(lb, "$1$"); + label(lb, P(12,0), "\\Code{FN1A = 0.01},", r); + label(lb, P(96,0), "\\Code{HA = 0}", r); + + lb += dY; + Circ(lb, "$2$"); + label(lb, P(12,0), "\\Code{FN1A = 1},", r); + label(lb, P(96,0), "\\Code{HA = 0}\\qquad(Standard derivative form factor)", r); + + lb += dY; + Circ(lb, "$3$"); + label(lb, P(12,0), "\\Code{FN1A = 3}", r); + label(lb, P(96,0), "\\Code{HA = 0.046}", r); + + tikz_format(); + end(); +} diff --git a/29784-t/images/sources/057a.xp b/29784-t/images/sources/057a.xp new file mode 100644 index 0000000..c616953 --- /dev/null +++ b/29784-t/images/sources/057a.xp @@ -0,0 +1,69 @@ +/* -*-ePiX-*- */ +#include "epix.h" +using namespace ePiX; +const double dx(0.25); + +double row0(-1.25), bot(-0.5), row1(0), row2(1), sep(1.75), row3(2.25); + +int main() +{ + picture(P(0,-1.5), P(36,2.5), "6 x 0.75in"); + + begin(); + arrow_inset(0.25); + + line(P(0, sep), P(xmax(), sep)); + line(P(0, sep+0.05), P(xmax(), sep+0.05)); + + line(P(xmax()-1, bot), P(xmax()-1, ymax())); + line(P(xmax(), bot), P(xmax(), ymax())); + + for (int i=6; i <= 21; ++i) + line(P(i, bot), P(i, ymax())); + + font_size("footnotesize"); + label(P(0,row1), P( 2,0), "Floating nos.", r); + label(P(0,row2), P( 2,0), "Integers", r); + label(P(6,row3), P(-2,0), "Columns.", l); + + for (int i=1; i <= 15; ++i) + { + std::ostringstream buf; + buf << i; + label(P(i+5.5, row3), buf.str()); + + if (i <= 5) + label(P(i+5.5, row2), "x"); + + else if (i <= 13) + label(P(i+3.5, row1), "x"); + + else + label(P(i+5.5, row1), "x"); + } + + label(P(6.5), "$±$"); + label(P(7.5), "$0$"); + label(P(8.5), P(0,-2), "$.$"); + label(P(18.5), "$±$"); + label(P(xmax()-0.5, row3), "$72$"); + + base(White(), 2.5); + line(P(11+dx,row2), P(xmax()-dx,row2)); + line(P(21+dx,row1), P(xmax()-dx,row1)); + + base(Neutral(), 0); + aarrow(P(11+dx,row2), P(xmax()-dx,row2), 0.5); + aarrow(P(21+dx,row1), P(xmax()-dx,row1), 0.5); + + masklabel(P(0.5*(xmax()+11), row2), "any Hollerith character"); + masklabel(P(0.5*(xmax()+21), row1), "any Hollerith character"); + + label(P(19.5, row0), + "$\\underbrace{\\rule{0.5in}{0pt}}_{\\text{exponent}}$"); + + label(P(13, row0), + "$\\underbrace{\\rule{1.333in}{0pt}}_{\\text{fractional part}}$"); + tikz_format(); + end(); +} diff --git a/29784-t/old/29784-t.tex b/29784-t/old/29784-t.tex new file mode 100644 index 0000000..ac278a5 --- /dev/null +++ b/29784-t/old/29784-t.tex @@ -0,0 +1,7802 @@ +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % +% % +% The Project Gutenberg EBook of A Fortran Program for Elastic Scattering % +% Analyses with the Nuclear Optical Model, by Michel A. Melkanoff % +% and David S. Saxon and John S. Nodvik and David G. Cantor % +% % +% This eBook is for the use of anyone anywhere at no cost and with % +% almost no restrictions whatsoever. You may copy it, give it away or % +% re-use it under the terms of the Project Gutenberg License included % +% with this eBook or online at www.gutenberg.org % +% % +% % +% Title: A Fortran Program for Elastic Scattering Analyses with the % +% Nuclear Optical Model % +% % +% Author: Michel A. Melkanoff % +% David S. Saxon % +% John S. Nodvik % +% David G. Cantor % +% % +% Release Date: August 24, 2009 [EBook #29784] % +% % +% Language: English % +% % +% Character set encoding: ISO-8859-1 % +% % +% *** START OF THIS PROJECT GUTENBERG EBOOK ELASTIC SCATTERING ANALYSES *** +% % +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % + +\def\ebook{29784} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% %% +%% Packages and substitutions: %% +%% %% +%% book: Standard document class. Required. %% +%% %% +%% inputenc: Standard DP encoding. Required. %% +%% fontenc: Font encoding, for bold smallcaps. Required. %% +%% %% +%% amsmath: AMS mathematics enhancements. Required. %% +%% amssymb: AMS mathematics symbols. Required. %% +%% mathrsfs: AMS script fonts. Required. %% +%% %% +%% fancyhdr: Enhanced running headers and footers. Required. %% +%% longtable: Multi-page tables. Required. %% +%% array: Enhanced tabular environment. Required. %% +%% %% +%% multicol: Multi-column environment for index. Required. %% +%% lscape: For data tables in landscape orientation. Required. %% +%% %% +%% alltt: Fixed-width font environment. Required. %% +%% textcomp: Ditto mark. Required. %% +%% %% +%% indentfirst: Indent units' first paragraph. Required. %% +%% ifthen: Logical conditionals. Required. %% +%% %% +%% listings: Prettified Fortran code. Required. %% +%% %% +%% rotating: Graphics rotation. Required. %% +%% tikz: Extended picture macros. Required. %% +%% %% +%% geometry: Enhanced page layout package. Required. %% +%% %% +%% hyperref: Hypertext embellishments for pdf output. Required. %% +%% %% +%% %% +%% Producers's Comments: The text block is fairly wide (6.3 in) to %% +%% accommodate wide displayed equations and program listings. %% +%% Nonetheless, the listing on page 93 gives five overfull hbox %% +%% warnings, the largest almost 91 pt. %% +%% %% +%% The original text is a typed manuscript. Every effort has %% +%% been made to capture the authors' semantic intent with %% +%% regard to sectioning. %% +%% %% +%% Things to Check: The book contains nine landscape pages -- six %% +%% plots, and three pages of program output -- which should %% +%% automatically float to good page breaks. No text runs off %% +%% the page. %% +%% %% +%% %% +%% Spellcheck: OK %% +%% Smoothreading pool: No %% +%% lacheck: OK, about 100 false positives %% +%% %% +%% Lprep/gutcheck: OK %% +%% PDF pages: 111 (if ForPrinting set to false) %% +%% PDF page size: US Letter (8.5" x 11") %% +%% PDF bookmarks: created, point to ToC entries %% +%% PDF document info: filled in %% +%% ToC page numbers: OK %% +%% Images: 8 eepic files written with tikz macros %% +%% %% +%% Summary of log file: %% +%% * 4 underfull hboxes %% +%% * 13 overfull hboxes (largest ~90pt) %% +%% * 20 underfull vboxes %% +%% %% +%% %% +%% Compile History: %% +%% %% +%% May, 2009: adhere (Andrew D. Hwang) %% +%% texlive2007, GNU/Linux %% +%% %% +%% Command block: %% +%% %% +%% pdflatex x2 %% +%% %% +%% %% +%% August 2009: pglatex. %% +%% Compile this project with: %% +%% pdflatex 29784-t.tex ..... TWO times %% +%% %% +%% pdfTeXk, Version 3.141592-1.40.3 (Web2C 7.5.6) %% +%% %% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% %%%%%%%%%%%%%%%%%%%%%%%%%%% PACKAGES %%%%%%%%%%%%%%%%%%%%%%%%%%%%% % + +\listfiles +\documentclass[12pt,letterpaper]{book}[2005/09/16] + +\usepackage[latin1]{inputenc}[2006/05/05] +\usepackage[T1]{fontenc} +\usepackage{amssymb}[2002/01/22] +\usepackage{amsmath}[2000/07/18] +\usepackage{mathrsfs}[1996/01/01] + +\usepackage{fancyhdr} +\usepackage{longtable}[2004/02/01] +\usepackage{array}[2005/08/23] + +\usepackage{multicol}[2006/05/18] +\usepackage{lscape}[2000/10/22] + +\usepackage{alltt}[1997/06/16] +\usepackage{textcomp}[2005/09/27] + +\usepackage{indentfirst}[1995/11/23] +\usepackage{ifthen}[2001/05/26] + +\usepackage{listings}[2004/10/17] + +\usepackage{rotating}[1997/09/26] +\usepackage{tikz}[2006/10/17] + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%% Interlude: Set up PRINTING (default) or SCREEN VIEWING %%%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% ForPrinting=true (default) false +% Asymmetric margins Symmetric margins +% Black hyperlinks Blue hyperlinks +% Even-odd page headings Uniform page headings +% Start Preface, ToC, etc. recto No blank verso pages +% +\newboolean{ForPrinting} + +%% *** UNCOMMENT the next line for a PRINT-OPTIMIZED VERSION *** %% +%\setboolean{ForPrinting}{true} + +%% Initialize values to ForPrinting=false +\newcommand{\Margins}{hmarginratio=1:1} % Symmetric margins +\newcommand{\HLinkColor}{blue} % Hyperlink color +\newcommand{\PDFPageLayout}{SinglePage} +\newcommand{\TransNote}{Transcriber's Note} +\newcommand{\TransNoteCommon}{% + Minor typographical corrections, changes to the presentational + style, and regularizations of spelling and hyphenation have been + made without comment. +% All such changes are [** PP: Noted] in this source file + \bigskip + + Every effort has been made to remove OCR errors from the \FORTRAN\ + code. +} +\newcommand{\TransNoteText}{% + \TransNoteCommon + \bigskip + + This PDF file is formatted for screen viewing, but may be easily + recompiled for printing. Please see the preamble of the \LaTeX\ + source file for instructions. +} + +%% Re-set if ForPrinting=true +\ifthenelse{\boolean{ForPrinting}}{% + \renewcommand{\Margins}{hmarginratio=2:3} % Asymmetric margins + \renewcommand{\HLinkColor}{black} % Hyperlink color + \renewcommand{\PDFPageLayout}{TwoPageRight} + \renewcommand{\TransNote}{Transcriber's Note} + \renewcommand{\TransNoteText}{% + \TransNoteCommon + \bigskip + + This PDF file is formatted for printing, but may be easily + recompiled for screen viewing. Please see the preamble of the + \LaTeX\ source file for instructions. + } +}{% If ForPrinting=false, don't skip to recto + \renewcommand{\cleardoublepage}{\clearpage} +} +%%%% End of PRINTING/SCREEN VIEWING code; back to packages %%%% + + +% [** N.B. There are four line breaks tuned to 5in text width] +\usepackage[body={6.3in,9in},\Margins]{geometry}[2002/07/08] + +%%%% PDF and hyperref options %%%% +\providecommand{\ebook}{00000} % Overridden during white washing +\usepackage[pdftex, + hyperfootnotes=false, + pdftitle={The Project Gutenberg eBook \#\ebook: A Fortran program for elastic scattering analyses with the nuclear optical model}, + pdfauthor={Michel A. Melkanoff, John S. Nodvik, David S. Saxon, David G. Cantor}, + pdfkeywords={David Starner, Andrew D. Hwang, + Project Gutenberg Online Distributed Proofreading Team}, + pdfstartview=Fit, % default value + pdfstartpage=1, % default value + pdfpagemode=UseNone, % default value + bookmarks=true, % default value + linktocpage=false, % default value; if true, see @@@@ below + pdfpagelayout=\PDFPageLayout, + pdfdisplaydoctitle, + pdfpagelabels=true, + bookmarksopen=true, + bookmarksopenlevel=1, + colorlinks=true, + linkcolor=\HLinkColor]{hyperref}[2007/02/07] + + +%%%% lstlistings setup %%%% +\lstloadlanguages{fortran} +\lstset{language=[77]fortran, + basicstyle=\footnotesize, + aboveskip=0pt, + belowskip=0pt} % Abut adjacent environments + +% listings basic size for program output +\newcommand{\WideDatasize}{\scriptsize} +\newcommand{\VeryWideDatasize}{\scriptsize} + +%%%% ToC setup %%%% +\newcommand{\SecHeading}[1]{\centering\Large\bfseries\scshape #1} + +\AtBeginDocument{\renewcommand{\contentsname}% + {\protect\SecHeading{Table of Contents}\protect\\[0pt]}} + +\newcommand{\ToCBox}[1]{\makebox[3em][l]{#1}} + +% No page numbers +\AtBeginDocument{\addtocontents{toc}{\protect\thispagestyle{empty}}} +\newcommand{\TableofContents}{{\small\tableofcontents}} + + +%%%% Sectional divisions %%%% +\newcommand{\ChapSkip}{\vspace*{0.25in}} + +% Must handle manual linebreak +\newcommand{\Chapter}[3][] + {\clearpage + \thispagestyle{empty} + \section*{\SecHeading{#2~#3}} + \ChapSkip + \label{chapter:#2}% + \ifthenelse{\equal{#1}{}}% + {\addcontentsline{toc}{chapter}% No optional argument + {\texorpdfstring{\protect\ToCBox{#2} #3}{#2 #3}}}% + {\addcontentsline{toc}{chapter}% Optional argument + {\texorpdfstring{\protect\ToCBox{#2} #3}{#2 #1}}}% +} + +\newcommand{\Section}[2] + {\section*{\normalfont\large\bfseries\scshape#1~#2} + \addcontentsline{toc}{section}% + {\texorpdfstring{#1~#2}{#1 #2}}% +} + +% Must handle manual linebreak +\newcommand{\Subsection}[3][] + {\subsection*{\normalfont\normalsize\bfseries\scshape#2~#3} + \ifthenelse{\equal{#1}{}}% + {\addcontentsline{toc}{subsection}% No optional argument + {\texorpdfstring{#2~#3}{#2 #3}}}% + {\addcontentsline{toc}{subsection}% Optional argument + {\texorpdfstring{#2~#3}{#2 #1}}}% +} + +\newcommand{\Subsubsection}[2] + {\subsubsection*{\normalfont\normalsize#1~\bfseries\scshape#2}} + +\makeatletter +\newcommand{\subsubsubsection} +{\@startsection{subsubsubsection}{4}{\parindent}% + {-0.5\baselineskip}{0pt}{\normalfont\normalsize}}% run-in heading + +\newcommand{\subsubsubsubsection} +{\@startsection{subsubsubsubsection}{4}{0pt}% + {0.25\baselineskip}{0.01pt}{\normalfont\normalsize}}% +\makeatother + +\newcommand{\Subsubsubsection}[2]{\subsubsubsection*{#1~\scshape#2}\quad} + +\newcommand{\Note}[1] + {\ifthenelse{\not\equal{#1}{}} + {\paragraph{Note~#1:}} + {\paragraph{Note:}}} + + +% Standard (sub-)list formatting parameters +\newcommand{\ListInit}{% + \setlength{\leftmargin}{\parindent}% + \setlength{\labelwidth}{0pt}% + \setlength{\labelsep}{0pt}% + \setlength{\itemindent}{-\parindent}% + \setlength{\itemsep}{0pt}% +} + +% General-purpose replacement for itemize (with bold labels) +\newenvironment{Biblio}{\begin{list}{}{\ListInit}}{\end{list}} + + +%%%% Miscellaneous formatting %%%% +%%%% Fixed-width environment to format PG boilerplate %%%% +% 9.2pt leaves no overfull hbox at 80 char line width +\newenvironment{PGtext}{% +\begin{alltt} +\fontsize{9.2}{10.5}\ttfamily\selectfont}% +{\end{alltt}} + +% For titlepage +\newcommand{\Author}[2] + {\begin{tabular}{l}% + \textbf{#1} \\ + {\footnotesize#2} + \end{tabular}} + +% For equation alignment; set #2 in a box as wide as #1 +\newlength{\TmpLen} +\newcommand{\PadTo}[2]% + {\settowidth{\TmpLen}{$#1$}% + \makebox[\TmpLen][r]{$#2$}} + +\newcommand{\Tag}[1]{\phantomsection\label{eqn:#1}\tag{#1}} +\newcommand{\Eqno}[1]{\hyperref[eqn:#1]{(#1)}} + +% \Eqref{n} - eqnation~(n); +% \Eqref[cap]{n} - Equation~(n); +% \Eqref[abbr]{n} - eq.~(n) +\newcommand{\Eqref}[2][]% +{\ifthenelse{\equal{#1}{}}% + {\hyperref[eqn:#2]{equation~(#2)}}% + {\ifthenelse{\equal{#1}{cap}}% + {\hyperref[eqn:#2]{Equation~(#2)}}% + {\ifthenelse{\equal{#1}{abbr}}% + {\hyperref[eqn:#2]{eq.~(#2)}}{}}}}% + +\newcommand{\Eqrefs}[2][]% +{\ifthenelse{\equal{#1}{}}% + {\hyperref[eqn:#2]{equations~(#2)}}% + {\ifthenelse{\equal{#1}{cap}}% + {\hyperref[eqn:#2]{Equations~(#2)}}% + {\ifthenelse{\equal{#1}{abbr}}% + {\hyperref[eqn:#2]{eqs.~(#2)}}{}}}}% + + +% \Figure{4}{028a}: Figure 4 made from 028a.eepic +\newcommand{\Figure}[2] +{\begin{figure*} +\null\vfill +\begin{center}\begin{minipage}{\linewidth} +\rotatebox{90}{\input{./images/#2.eepic}} +\end{minipage} +\phantomsection\label{figure:#1} +\end{center} +\vfill +\end{figure*} +} + +\newcommand{\ChapRef}[1]{\hyperref[chapter:#1.]{chapter~#1}} +\newcommand{\FigRef}[1]{\hyperref[figure:#1]{#1}} + +\newcommand{\Program}[1]{\subsubsubsubsection*{\bfseries Program~#1}} +\newcommand{\Routine}[1]{\subsubsubsubsection*{\bfseries #1}} +\newcommand{\Subroutine}[1]{\subsubsubsubsection*{\bfseries Subroutine~#1}} + + +%%%% Miscelaneous macros %%%% +\DeclareMathOperator{\Imag}{Im} +\DeclareMathOperator{\Real}{Re} + +\newcommand{\Acro}[1]{\texttt{#1}}% Acronyms +\newcommand{\Code}[1]{\text{\lstinline@#1@}} + +\newcommand{\Neg}{\phantom{-}} +\newcommand{\FORTRAN}{\Acro{FORTRAN}} +\newcommand{\SCAT}[1]{\Acro{SCAT~#1}} + +\newcommand{\abs}{\text{abs}} +\newcommand{\CI}{\text{CI}} +\newcommand{\CR}{\text{CR}} +\newcommand{\inc}{\text{inc}} +\newcommand{\initial}{\text{initial}} +\newcommand{\LAB}{\text{LAB}} +\newcommand{\scatt}{\text{scatt}} +\newcommand{\SI}{\text{SI}} +\newcommand{\SR}{\text{SR}} +\newcommand{\total}{\text{total}} + +\newcommand{\MeV}{MeV} +\newcommand{\Y}{\, \mathscr{Y}} + +\newcommand{\Ditto}{\textquotestraightdblbase} + +% \ell or -\ell-1; must be called in math mode +\newcommand{\ellAlt} + {\biggl({\begin{smallmatrix}%{c} + \ell \\ \text{or}\vphantom{\big|} \\ -\ell-1 + \end{smallmatrix}}\biggr)} + + +%% Globally adjust size of super- and sub-scripts +\makeatletter +\DeclareMathSizes{\@xiipt}{\@xiipt}{10}{8} +\makeatother + +\renewcommand{\arraystretch}{1.2} % loosen array rows +\renewcommand{\headrulewidth}{0pt} + +\DeclareInputMath{183}{\cdot} + +%%%%%%%%%%%%%%%%%%%%%%%% START OF DOCUMENT %%%%%%%%%%%%%%%%%%%%%%%%%% + +\begin{document} + +\pagestyle{empty} +\pagenumbering{roman} + +%%%% PG BOILERPLATE %%%% +\pdfbookmark[0]{PG Boilerplate}{Project Gutenberg Boilerplate} + +\begin{center} +\begin{minipage}{\textwidth} +\small +\begin{PGtext} +The Project Gutenberg EBook of A Fortran Program for Elastic Scattering +Analyses with the Nuclear Optical Model, by Michel A. Melkanoff +and David S. Saxon and John S. Nodvik and David G. Cantor + +This eBook is for the use of anyone anywhere at no cost and with +almost no restrictions whatsoever. You may copy it, give it away or +re-use it under the terms of the Project Gutenberg License included +with this eBook or online at www.gutenberg.org + + +Title: A Fortran Program for Elastic Scattering Analyses with the + Nuclear Optical Model + +Author: Michel A. Melkanoff + David S. Saxon + John S. Nodvik + David G. Cantor + +Release Date: August 24, 2009 [EBook #29784] + +Language: English + +Character set encoding: ISO-8859-1 + +*** START OF THIS PROJECT GUTENBERG EBOOK ELASTIC SCATTERING ANALYSES *** +\end{PGtext} +\end{minipage} +\end{center} + +\clearpage + +%%%% Credits and transcriber's note %%%% +\begin{center} +\begin{minipage}{\textwidth} +\begin{PGtext} +Produced by David Starner, Andrew D. Hwang, and the Online +Distributed Proofreading Team at http://www.pgdp.net +\end{PGtext} +\end{minipage} +\end{center} +\vfill + +\begin{center} +\begin{minipage}{0.66\textwidth} +\small +\subsection*{\centering\normalfont\scshape% +\normalsize\MakeLowercase{\TransNote}}% +\phantomsection +\pdfbookmark[1]{Transcriber's Note}{Transcriber's Note} + +\raggedright +\TransNoteText +\end{minipage} +\end{center} + + +%% -----File: 001.png---Folio xx------- + +\clearpage + +\pdfbookmark[0]{Front Matter}{Front Matter} + +\begin{center} +\begin{tabular}{l} +\textbf{\Huge A FORTRAN Program} \\[0.25in] +\textbf{\Huge for Elastic Scattering Analyses} \\[0.25in] +\textbf{\Huge with the Nuclear Optical Model} \\[0.375in] +\end{tabular} + +\begin{tabular}{ll} +\Author{MICHEL A. MELKANOFF}{University of California, Los Angeles}\qquad & +\Author{DAVID S. SAXON}{University of California, Los Angeles} \\[0.25in] +\Author{JOHN S. NODVIK}{University of Southern California} & +\Author{DAVID G. CANTOR}{University of California, Los Angeles} +\end{tabular} +\vfill + +{\Large UNIVERSITY\quad OF\quad CALIFORNIA\quad PRESS}\\[0.125in] +{\small BERKELEY AND LOS ANGELES 1961} +\end{center} + +\phantomsection +\pdfbookmark[1]{Title Page}{Title Page} + +%% -----File: 002.png---Folio xx------- + +\clearpage +\null\vfill +\begin{center} +{\small UNIVERSITY OF CALIFORNIA PUBLICATIONS IN AUTOMATIC COMPUTATION}\\[0.125in] + +{\small\textsc{Number 1}}\\[0.125in] + +\begin{minipage}{4.125in} +\small +This publication was prepared partly under the sponsorship of +the Office of Naval Research. Reproduction in whole or in part +is permitted for any purpose of the United States Government. +\end{minipage}\\[0.25in] + +{\footnotesize +\textsc{university of california press}, Berkeley and Los Angeles, California \\ +\textsc{cambridge university press}, London, England}\\[0.25in] +\$4.50\\[0.25in] +\textit{Second Printing, 1961} +\vfill\vfill + +{\scriptsize PRINTED IN THE UNITED STATES OF AMERICA} +\end{center} + +%% -----File: 003.png---Folio xx------- + +\clearpage +\phantomsection +\pdfbookmark[1]{Acknowledgements}{Acknowledgements} + +\section*{\SecHeading{Acknowledgements}} +\ChapSkip + +The authors would like to express their sincere appreciation +to the Western Data Processing Center, Graduate School of Business +Administration, UCLA, for the use of their \Acro{IBM~709} computer. Special +thanks are due to Mrs.\ Lisa Greenstadt and Mrs.\ Lois Holloway who have +worked intensively and skillfully to prepare the program. + +This program is largely based on experience gained on the +SWAC, and the authors recall this with gratitude to Numerical Analysis +Research, Department of Mathematics, UCLA\@. + +Finally the authors would like to express their appreciation +to the National Science Foundation and the Office of Naval Research for +financial support. + +%% -----File: 004.png---Folio xx------- + +\TableofContents +\phantomsection +\pdfbookmark[1]{Table of Contents}{Table of Contents} + +\iffalse%%%% COMMENTED SCANNED TEXT %%%% +TABLE OF CONTENTS + +Chapter Page + +I. INTRODUCTION + +II. MATHEMATICAL DESCRIPTION + A. General Formulation + 1. Uncharged Incident Particles + 2. Charged Incident Particles + B. Optical Model Potential + 1. Diffuse Surface Optical Model with Volume + Absorption and Coulomb Spin-Orbit + 2. Nuclear Form Factors + 3. Final Formulation for Machine Calculation + 4. Numerical Integration + 5. Coulomb Functions + 6. Phase Shifts + 7. Cross Section and Polarization + 8. Chi Square Deviation + 9. Normalization + +III. PROGRAM DESCRIPTION + A. General Description + 1. Machine Specifications + 2. General Program Description + 3. Use of the WDPC Load-and-Go System + 4. Error Indications + B. Detailed Descriptions of the Specific Routines + of the Program + +%% -----File: 005.png---Folio xx------- + +IV. DESCRIPTION OF INPUT DATA + +V. GLOSSARY AND DESCRIPTION OF SYMBOLIC VARIABLES + APPEARING IN COMMON AND DIMENSION STATEMENTS + +VI. SYMBOLIC LISTING OF THE PROGRAM + +VII. TYPICAL INPUT AND OUTPUT + A. Input Data for Protons Against Copper at 9.75 Mev + B. Output Listing + +VIII. FURTHER SUBROUTINES AND PROGRAMS IN PREPARATION BIBLIOGRAPHY +\fi%%%% END OF COMMENTED TEXT %%%% +%% -----File: 006.png---Folio 1------- + +\mainmatter +\pagenumbering{arabic} +\pagestyle{fancy} +\fancyhead{} +\fancyfoot{} +\setlength{\headheight}{14.5pt} +\fancyhead[C]{--\ \thepage\ --} + +\Chapter{I.}{Introduction} + +The purpose of the present report is to describe in complete detail +a \FORTRAN\ code named Program \SCAT{4} written by the UCLA group in order to +analyze elastic scattering of various particles against complex nuclei +by means of the diffuse surface optical model of the nucleus. + +While a number of similar programs have been prepared and used by +other groups, there have been many requests for the UCLA program because of +its flexibility and the availability of \Acro{IBM~704} and~\Acro{709} computers for which +the program is written. + +The present program still contains some undesirable features and the +UCLA group is constantly modifying it to make it more efficient and flexible. +However, a ``final'' program will probably never be reached and it was decided +to release Program \SCAT{4} without further delay; as they develop, modifications +and additions will be described in later reports. + +Other laboratories will probably add further modifications and the +UCLA group will be grateful for description of such modifications as well as +for any suggestions in this regard. Modifications and additions deemed +worthwhile will be passed on to other users of the program but while the +UCLA group is willing to serve partially as a central clearing house, the +entire clerical responsibility cannot be assumed by the UCLA group. + +It should also be noted that, while every effort has been made to +check out the program, the UCLA group cannot guarantee its complete correctness. + +Program \SCAT{4} is available on a symbolic deck and will be mailed on +request. Air mailing will require prepaid postage by requesting parties. + +Potential users of program \SCAT{4} may find it useful to follow these +suggestions in reading the present report: + +% [** PP: Added periods after items (a), (c), and (d)] +\begin{itemize} +\item[1)] If the potential user is only interested in analyses with standard +potentials he may proceed as follows: +\begin{itemize} +\item[a)] Read the introduction to the mathematical description. %** period + +\item[b)] Consider the fundamental equations: \Eqno{34}, \Eqno{35}, \Eqno{51}, \Eqno{78} through +\Eqno{85}, \Eqno{132}, \Eqno{137} through \Eqno{139} in \ChapRef{II}. +% [** PP: Original reads Chapter II, section 1; most aren't in section 1.] + +\item[c)] Read \ChapRef{III}, section~A and the general flow chart. %** period + +\item[d)] Read the description of subroutines \Code{INPT4} and +\Code{OUTPT4} in \ChapRef{III}, section~B. %** period + +\item[e)] Read \ChapRef{IV} and~\hyperref[chapter:VII.]{VII}. +\end{itemize} + +%% -----File: 007.png---Folio 2------- + +\item[2)] If the potential user is interested in all the features of the program, +then a perusal of the whole report is advisable. The mathematical description +of \ChapRef{II} is a brief review of the theory and the basic equations +are all listed there. Symbolic \FORTRAN\ variables are indicated in capital +letters and may be looked up in the glossary making up \ChapRef{V}. +\end{itemize} + +Note that the program may be used for incident neutral particle by +letting $ZZ'= 0$. + +%% -----File: 008.png---Folio 3------- + + +\Chapter{II.}{Mathematical Description} + +Program \SCAT{4} calculates in the center-of-mass system the differential +elastic scattering cross sections~$\sigma(\theta)$, the polarization~$P(\theta)$, and the total +reaction cross section~$\sigma_R$ for particles of spin~$0$ or~$1/2$ having any mass, +charge and (non-relativistic) energy scattered by spinless nuclei of any mass +and charge for various sets of diffuse surface optical model parameters. The +incident and target particles are assumed to interact through a two-body +potential consisting of a complex nuclear potential which includes spin-orbit +interaction and whose shape can be specified by input parameters. When the +incident particle is charged, the two body potential contains, in addition, the +coulomb potential between an incident point charge and an extended, constant +charge density target. + +The calculations include numerical integrations of the radial +Schroedinger equations for the effective partial waves. The complex phase +shifts are obtained as usual by matching the logarithmic derivatives of the +numerically obtained nuclear wave functions to that of the coulomb (or +spherical Bessel) functions. The phase shifts are then used to compute +polarizations and cross sections which may be compared to the experimental +values by means of the $\chi^2$~test. + + +\Section{A.}{General Formulation} + +We begin with a brief review of the basic theory relating to the scattering +of spin~$1/2$ particles by a zero spin target\footnotemark. +\footnotetext{See J. Lepore, Phys.\ Rev.~\textbf{79}, 137 (1950).}% +We shall first consider +the case of an uncharged incident particle and indicate later the modifications +necessary if the incident particle is charged. + +The interaction is assumed to be of the form +\[ +V_T = V_1 + V_2\, \vec{S} · \vec{L} +\Tag{1} +\] +where $V_1$ and~$V_2$ are complex quantities depending only on the distance~$r$ between +the incident particle and the target particle. In terms of the Pauli spin +operator~$\vec\sigma$, the spin operator of the incident particle,~$\vec{S}$, is given by +\[ +\vec{S} = \frac{1}{2} \hbar \vec{\sigma} +\Tag{2} +\] +%% -----File: 009.png---Folio 4------- +and the (relative) orbital angular momentum operator is given by +\[ +\vec{L} = \vec{r} × \left(\frac{\hbar}{i}\vec{\nabla}\right). +\Tag{3} +\] +The Schroedinger equation is then +\[ +\left[-\frac{\hbar^2}{2\mu} \vec{\nabla}^2 + + V_1(r) + V_2(r)\, \vec{S} · \vec{L} \right] \Psi = E \Psi +\Tag{4} +\] +where +\[ +\mu = \frac{m_i\, m_b}{m_i + m_b} +\Tag{5} +\] +is the reduced mass, $m_i$ and~$m_b$ being respectively the masses of the incident +and target particles in atomic mass units. +\[ +E = \frac{m_b}{m_i + m_b} E_\LAB +\Tag{6} +\] +is the energy in the center of mass system, $E_\LAB$ being the lab energy of the +incident particle in~\MeV. + + +\Subsection{1.}{Uncharged Incident Particles} + +The wave function corresponding to a wave incident in the positive~$z$ +direction and normalized to one incident particle per unit time per unit +area is +\[ +\Psi_\inc = \frac{1}{\sqrt{v}} e^{ikz} \chi_\inc +\Tag{7} +\] +where $v$ is the relative velocity, the wave number~$k$ is given by +\[ +k = \sqrt{\frac{2\mu E}{\hbar^2}} + = 0.2195376 \sqrt{\mu E}~\text{fermi}^{-1} +\Tag{8} +\] +%% -----File: 010.png---Folio 5------- +and the incident spin function is +\[ +\chi_\inc = a_{1/2}\alpha + a_{-1/2}\beta +\Tag{9} +\] +where $\alpha$ and~$\beta$ are normalized spin eigenfunctions of~$S_z$ +and~$a_{1/2}$, $a_{-1/2}$ the corresponding amplitudes. + +The partial wave expansion corresponding to~\Eqno{7} is given by: +\[ +\Psi_\inc = \frac{1}{\sqrt{v}} \sum_{\ell=0}^\infty + (2\ell + 1) i^\ell j_\ell(kr) \sqrt{\frac{4 \pi}{2\ell + 1}} + Y_\ell^0(\theta, \varphi) \left[a_{1/2}\alpha + a_{-1/2}\beta\right] +\Tag{10} +\] +where $j_\ell(kr)$ is the regular spherical Bessel function of order~$\ell$ and the +normalized spherical harmonics are defined as +\[ +Y_\ell^m(\theta,\varphi) = (-1)^\frac{m+|m|}{2} + \sqrt{\frac{2\ell + 1}{4\pi}} + \sqrt{\frac{(\ell - |m|)!}{(\ell + |m|)!}} + P_\ell^{|m|}(\cos\theta) e^{im\varphi} +\Tag{11} +\] +where $P_\ell^{|m|}(\cos\theta)$ are the associated Legendre polynomials. + +The product functions $Y_\ell^0\alpha$ and $Y_\ell^0\beta$ which appear in~\Eqno{10} are simultaneous +eigenfunctions of the operators $\vec{L}^2$, $L_z$, $\vec{S}^2$, and $S_z$ but not of the +operator $\vec{L}·\vec{S}$ which appears in the spin-orbit interaction. This may be +remedied by introducing functions $\Y_{j\ell s}^{m_j}$ which are simultaneous eigenfunctions +of $\vec{L}^2$, $\vec{S}^2$, $\vec{J}^2$, and $J_z$ and thus of +$\vec{L}·\vec{S}$ where $\vec{J}$ is the total angular momentum, +\[ +\vec{J} = \vec{L} + \vec{S}. +\Tag{12} +\] +Since $s=1/2$, the possible values of $j$ are $j=\ell+1/2$ and $j=\ell-1/2$; the +corresponding eigenfunctions are given by +{\small +\[ +\left. +\begin{aligned} + \Y_{\ell+1/2, \ell, s}^{m_j} + &= \Neg + \sqrt{\frac{\ell + m_j + 1/2}{2\ell + 1}} Y_\ell^{m_j-1/2}\alpha + + \sqrt{\frac{\ell - m_j + 1/2}{2\ell + 1}} Y_\ell^{m_j+1/2}\beta, + \text{ for $j = \ell+1/2$} \\ +% + \Y_{\ell-1/2, \ell, s}^{m_j} %[** PP: Changed denominator to 2\ell + 1] + &= -\sqrt{\frac{\ell - m_j + 1/2}{2\ell + 1}}Y_\ell^{m_j-1/2}\alpha + + \sqrt{\frac{\ell + m_j + 1/2}{2\ell + 1}}Y_\ell^{m_j+1/2}\beta, + \text{ for $j = \ell-1/2$} +\end{aligned} +\right\} +\Tag{13} +\]}% [** PP: End of \small] +%% -----File: 011.png---Folio 6------- +The incident wave function may now be written as +\[ +\begin{aligned} + \Psi_\inc + &= \sqrt{\frac{4\pi}{V}} + \sum_{\ell=0}^{\infty} \sqrt{\ell + 1}\, i^{\ell}\, j_{\ell}(kr) + \left[ \PadTo{-a}{a}_{1/2} \Y_{\ell + 1/2, \ell, 1/2}^{1/2} + + a_{-1/2} \Y_{\ell + 1/2, \ell, 1/2}^{-1/2} \right] \\ + % + &+ \sqrt{\frac{4\pi}{V}} + \sum_{\ell=0}^{\infty} \PadTo{\sqrt{\ell + 1}}{\sqrt{\ell}\ }\, + i^{\ell}\, j_{\ell}(kr) + \left[ -a_{1/2} \Y_{\ell - 1/2, \ell, 1/2}^{1/2} + + a_{-1/2} \Y_{\ell - 1/2, \ell, 1/2}^{-1/2} \right] +%[** PP: No period] +\end{aligned} +\Tag{14} +\] +The total wave function can be written in a form similar to~\Eqno{14}: +\begin{align*} + \Psi_\total + &= \Psi_\inc + \Psi_\scatt \\ +% + &= \sqrt{\frac{4\pi}{V}} \sum_{\ell=0}^{\infty} + \sqrt{\ell + 1}\, i^{\ell}\, \frac{\Psi_\ell^+ (r)}{kr} + \left[\PadTo{-a}{a}_{1/2} \Y_{\ell + 1/2, \ell, 1/2}^{1/2} + + a_{-1/2} \Y_{\ell + 1/2, \ell, 1/2}^{-1/2} \right] \\ +% + &+ \sqrt{\frac{4\pi}{V}} \sum_{\ell=0}^{\infty} + \PadTo{\sqrt{\ell + 1}}{\sqrt{\ell}\ }\, + i^{\ell}\, \frac{\Psi_\ell^- (r)}{kr} + \left[ -a_{1/2} \Y_{\ell - 1/2, \ell, 1/2}^{1/2} + + a_{-1/2} \Y_{\ell - 1/2, \ell, 1/2}^{-1/2} \right] +\Tag{15}% belongs in between lines +\end{align*} +where $\Psi_\ell^+$ is the radial function associated with $j=\ell+1/2$ and~$\Psi_\ell^-$ is associated +with $j=\ell-1/2$. + +The terms appearing in~\Eqno{15} are not coupled by the spin-orbit interaction, +and substitution into the Schroedinger \Eqref{4} yields the +following radial equations: +\[ +\frac{d^2\Psi_\ell^±}{dr^2} + + \left\{ k^2 - \frac{2\mu}{\hbar^2} + \left[ V_1 + \frac{\hbar^2}{2} \ellAlt V_2 \right] + - \frac{\ell(\ell + 1)}{r^2} \right\} \Psi_\ell^± = 0 +\Tag{16} +\] +where the quantity~$\ell$ appears in the equation for~$\Psi_\ell^±$ and~$-\ell-1$ appears in +the equation for~$\Psi_\ell^-$. + +The radial wave function~$\Psi_\ell^±$ must reduce to that of the incident wave, +$kr\, j_\ell(kr)$, when there is no interaction and must be such that only the outgoing +wave is modified by the interaction. These conditions are satisfied +by the asymptotic expression +\begin{align*} +\Psi_\ell^± &\cong kr\, j_\ell (kr) + + C_\ell^± \left[ -y_\ell (kr) + i\, j_\ell (kr)\right] +\Tag{17} \\ +\intertext{which reduces to} +\Psi_\ell^± &\cong kr\, j_\ell (kr) + + C_\ell^± \, e^{i (kr - \ell \pi/2)} +\Tag{18} \\ +%% -----File: 012.png---Folio 7------- +\intertext{or equivalently} +\Psi_\ell^± &\cong % [** PP: Oversize fraction] + \sin(kr - \frac{\ell\pi}{2}) + C_\ell^± e^{i(kr - \ell\pi/2)} +\Tag{19} +\end{align*} +as may be seen by applying the asymptotic expression for the regular and +irregular spherical Bessel functions: +\[ +\left. +\begin{aligned} +kr\, j_\ell(kr) &\cong \Neg\sin(kr - \ell \pi/2) \\ +kr\, y_\ell(kr) &\cong -\cos(kr - \ell \pi/2). +\end{aligned} +\right\} +\Tag{20} +\] +On the other hand, in terms of complex phase shifts~$\delta_\ell^±$, \Eqno{19} must be of +the form +\[ +\Psi_\ell^± + \cong A_\ell^± \sin(kr - \ell \pi/2 + \delta_\ell^±) +\Tag{21} +\] +Comparison of the coefficients of~$e^{ikr}$ and~$e^{-ikr}$ in \Eqrefs[abbr]{21} and~\Eqno{19} +yields +\begin{align*} +C_\ell^± &= \frac{1}{2i}(e^{2i\delta_\ell^±} - 1) +\Tag{22} \\ +A_\ell^± &= e^{i\delta_\ell^±} +\Tag{23} +\end{align*} + +Substituting \Eqno{18} into~\Eqno{15} and subtracting $\Psi_\inc$ as given by~\Eqno{14}, +yields for $\Psi_\scatt$ the asymptotic form: +\[ +\Psi_\scatt \cong \frac{1}{\sqrt{V}} \frac{e^{ikr}}{r} + \left\{ + A(\theta) \left[ a_{1/2}\alpha + a_{-1/2}\beta \right] + + i B(\theta) \left[ a_{-1/2} e^{-i\varphi}\alpha + - a_{1/2} e^{i\varphi}\beta \right] + \right\} +\Tag{24} +\] +where +\[ +\left. +\begin{aligned} +A(\theta) &= \Neg\frac{1}{k} \sum_{\ell=0}^\infty + \left[ (\ell + 1) C_\ell^{+} + \ell C_\ell^{-} \right] + P_\ell(\cos \theta) \\ +B(\theta) &= -\frac{i}{k} \sum_{\ell=0}^\infty + \left[ C_\ell^{+} - C_\ell^{-} \right] + P_\ell^1(\cos \theta) +\end{aligned} +\right\} +\Tag{25} +\] + +The wave function of the scattered wave can more conveniently be +expressed in terms of~$\vec{\sigma}$ and~$\vec{n}$, the unit vector normal to the scattering +plane defined by +\[ +\vec{n} \sin\theta = \vec{k_1} × \vec{k_0} +\Tag{26} +\] +%% -----File: 013.png---Folio 8------- +where $\vec{k}_0$ and $\vec{k}_1$ are unit vectors in the direction of propagation before and +after scattering; thus +\[ +\Psi_\scatt \cong \frac{1}{\sqrt{V}} \frac{e^{ikr}}{r} + \left[ A(\theta) + B(\theta) \vec{\sigma} · \vec{n} \right] \chi_\inc + = \frac{1}{\sqrt{V}} \frac{e^{ikr}}{r} f(\theta) \chi_\inc +\Tag{27} +\] +where $f(\theta)$ is the operator +\[ +f(\theta) = A(\theta) + B(\theta) \vec{\sigma} · \vec{n}. +\Tag{28} +\] + +The differential elastic scattering cross section and polarization +vector which are given by +\begin{align*} +\sigma(\theta) + &= \left\langle \left[ f(\theta) \chi_\inc \right]^{\dagger} + \left[ f(\theta) \chi_\inc \right] \right\rangle +\Tag{29} \\ +% +\vec{P}(\theta) + &= \frac{\left\langle + \left[ f(\theta) \chi_\inc \right]^{\dagger} + \left[ f(\theta) \chi_\inc \right] \right\rangle} + {\sigma(\theta)} +\Tag{30} +\end{align*} +thus become +\begin{align*} +\sigma(\theta) + &= |A|^2 + |B|^2 + (A^*B + AB^*) \vec{n} · \vec{P}_0 +\Tag{31} \\ +% +\vec{P}(\theta) + &= \frac{(|A|^2 - |B|^2) \vec{P}_0 + + \left[ A^*B + AB^* + + 2|B|^2 \vec{P}_0 · \vec{n} \right] \vec{n} + + i (A^*B - AB^*) \vec{n} × \vec{P}_0} + {|A|^2 + |B|^2 + (A^*B + AB^*) \vec{P}_0 · \vec{n}} +\Tag{32} +\end{align*} +where the incident polarization vector $\vec{P}_0$, is given by +\[ +\vec{P}_0 = \left\langle \chi_\inc^{\dag}\ \vec{\sigma} \chi_\inc \right\rangle +\Tag{33} +\] + +If the incident beam is unpolarized, i.e., $\vec{P}_0=0$, the scattered beam +is polarized along the direction~$\vec{n}$, perpendicular to the scattering plane and +\begin{align*} +\sigma(\theta) &= |A|^2 + |B|^2 +\Tag{34} \\ +\vec{P}(\theta) &= P(\theta) \vec{n} + = \frac{(A^*B + AB^*)}{|A|^2 + |B|^2} \vec{n} +\Tag{35} +\end{align*} + +%% -----File: 014.png---Folio 9------- + +Experimentally, the polarization is sometimes obtained from a double +scattering experiment in the same plane wherein the polarization in the +first scattering is known\footnotemark. +\footnotetext{L.~Rosen, Proceedings of the International Conference on the Nuclear Optical +Model, Florida State University, Tallahassee, 1959, pp.~72--90.} The differential elastic scattering cross section +for the second scattering may then be obtained from~\Eqno{31} and~\Eqno{35}: +\[ +\begin{aligned} + \sigma_2(\theta) + &= (|A|^2 + |B|^2) \left[ + 1 + \frac{A^*B + AB^*}{|A|^2 + |B|^2} \vec{n}_2 · \vec{P}_1 + \right]\\ +% + &= (|A|^2 + |B|^2) (1 + \vec{P}_2 · \vec{P}_1). +\end{aligned} +\Tag{36} +\] + +\begin{figure*} +\begin{center} +\input{./images/014a.eepic} +\phantomsection\label{figure:1} +\end{center} +\end{figure*} +%[** Illustration: Fig.1] + +Referring to \textsc{Figure~\FigRef{1}}, it is clear that +\[ +\vec{n}_1 = \vec{n}_2^r = -\vec{n}_2^{\ell}, +\Tag{37} +\] +so that the differential scattering cross sections along the~$r$ and~$\ell$ beams +are as follows: +\[ +\left. +\begin{aligned} + \sigma_2^r(\theta) &= (|A|^2 + |B|^2)(1 + P_2 P_1) \\ + \sigma_2^{\ell}(\theta) &= (|A|^2 + |B|^2)(1 - P_2 P_1), +\end{aligned} +\right\} +\Tag{38} +\] +the ratio of the scattering intensities becomes +\[ +\frac{\sigma_2^{\ell}(\theta)} + {\sigma_2^r(\theta)} + = \frac{1 - P_2 P_1}{1 + P_2 P_1}, +\Tag{39} +\] +%% -----File: 015.png---Folio 10------- +and solving for $P_2$: +\[ +P_2 = \frac{1}{P_1}\, + \frac{\sigma_2^\ell - \sigma_2^r} + {\sigma_2^\ell + \sigma_2^r} +\Tag{40} +\] +which reduces when $P_1 = 1$ to +\[ +P_2 = \frac{\sigma_2^\ell - \sigma_2^r} + {\sigma_2^\ell + \sigma_2^r} +\Tag{41} +\] + + +\Subsection{2.}{Charged Incident Particles} + +We next consider the case in which the incident particle has charge~$Ze$ +and the target particle has charge~$Z'e$. The potential~$V(r)$ must now +include a term~$V_c(r)$ which describes the coulomb interaction. For small +values of~$r$, $V_c$ will depend on the assumed charge distribution, while for +large values of~$r$, we must have +\[ +V_c = \frac{ZZ'e^2}{r} \quad\text{($r$ large)}. +\Tag{42} +\] +It is convenient to introduce the parameter~$\eta$, +\[ +\eta = \frac{\mu\ ZZ'e^2}{\hbar^2 k} + = 0.15805086\, ZZ'\, \sqrt{\frac{m_i}{E_\LAB}} +\Tag{43} +\] + +For the ``incident wave'' we take $\Psi_c(r)\chi_\inc$, where $\Psi_c$ is the solution +to the Schroedinger equation +\[ +-\frac{\hbar}{2\mu}\, \vec{\nabla}^2\Psi_c + + \frac{ZZ'e^2}{r}\, \Psi_c = E\Psi_c +\Tag{44} +\] +corresponding to the scattering of two point charges. + +It is well known that in that case % [** PP: No indent in original] +\[ +\Psi_c = \frac{1}{\sqrt{V}}\, + \Gamma(1 + i\eta) e^{-1/2\eta\pi}\, + e^{ikz} F(-i\eta, 1, ik\xi) +\Tag{45} +\] +where $\xi=r-z$ and $F$ is the confluent hypergeometric function. + +It is important to note that $\Psi_c$ includes a distorted incoming wave +\emph{plus} a scattered wave due to the point charge potential, and as such is not +%% -----File: 016.png---Folio 11------- +strictly an incident wave. + +The asymptotic form of~$\Psi_c$ is given by +\[ +\begin{aligned} + \Psi_c &\cong \frac{1}{\sqrt{V}} + \left\{ e^{i \left[ kz\ - \eta\, \ell n\, k(r-z) \right]} + \left( 1 - \frac{\eta^2}{ik(r-z)} \right) \right. \\ + % + &+ \left. \frac{1}{r} f_c(\theta)\, e^{i(kr - \eta\, \ell n\, 2kr)} + \right\} +\end{aligned} +\Tag{46} +\] +where +\[ +f_c(\theta) = - \frac{\eta}{2k \sin^2 \theta/2}\, + e^{-i \eta\, \ell n (\sin^2 \theta/2) + 2i\ \sigma_0} +\Tag{47} +\] +is the Rutherford scattering amplitude and $\sigma_0$ is given by \Eqref{49}, +below, with $\ell = 0$. + +The partial wave expansion of~$\Psi_c$ is given by +\[ +\Psi_c = \frac{1}{\sqrt{V}} + \sum_{\ell=0}^\infty (2\ell+1)\, i^\ell\, e^{i\sigma_\ell}\, + \frac{F_\ell(\eta, kr)}{kr} \sqrt{\frac{4\pi}{2\ell + 1}} + Y_\ell^0(\theta, \varphi) +\Tag{48} +\] +where $F_\ell(\eta, kr)$ is the regular coulomb function and $\sigma_\ell$ is the usual coulomb +phase shift given by +\[ +\sigma_\ell = \arg \Gamma(\ell + 1 + i \eta) +\Tag{49} +\] + +Comparing \Eqref{48} with~\Eqno{10} we see that in \Eqref{14} it is +necessary to replace $j_\ell(kr)$ by $e^{i\sigma_\ell} \frac{F_\ell(\eta, kr)}{kr}$; thus, in this case, +\begin{align*} + \Psi_\inc &= \sqrt{\frac{4\pi}{V}} \sum_{\ell=0}^\infty + \sqrt{\ell+1}\, i^\ell\, e^{i \sigma_\ell}\, + \frac{F_\ell(\eta, kr)}{kr} + \left[ \PadTo{-a}{a}_{1/2} \Y_{\ell + 1/2, \ell, 1/2}^1/2 + + a_{-1/2} \Y_{\ell + 1/2, \ell, 1/2}^{-1/2} \right] \\ + % +& +\Tag{50} \\ + &+ \sqrt{\frac{4\pi}{V}} \sum_{\ell=0}^\infty + \PadTo{\sqrt{\ell+1}}{\sqrt{\ell}\ }\, i^\ell\, e^{i\sigma_\ell}\, + \frac{F_\ell(\eta, kr)}{kr} + \left[ -a_{1/2} \Y_{\ell - 1/2, \ell, 1/2}^1/2 + + a_{-1/2} \Y_{\ell - 1/2, \ell, 1/2}^{-1/2} \right] +\end{align*} + +The total wave function can be written as a sum of the ``incident'' wave, +$\Psi_\inc$, plus a ``scattered'' wave, $\Psi_\scatt$, where $\Psi_\scatt$ now includes only interference +terms and deviations from pure Rutherford scattering: +%% -----File: 017.png---Folio 12------- +\begin{align*} +\Psi_\total &= \Psi_\inc + \Psi_\scatt \\ +% +&= \sqrt{\frac{4\pi}{V}} \sum_{\ell=0}^\infty + \sqrt{\ell+1}\, i^\ell \, e^{i\sigma_\ell}\, + \frac{\Psi_\ell^+(r)}{kr} + \left[ \PadTo{-a}{a}_{1/2} \Y_{\ell + 1/2, \ell, 1/2}^1/2 + + a_{-1/2} \Y_{\ell + 1/2, \ell, 1/2}^{-1/2} \right] \\ +& +\Tag{51} \\ + % +&+ \sqrt{\frac{4\pi}{V}} \sum_{\ell=0}^\infty + \PadTo{\sqrt{\ell+1}}{\sqrt{\ell}\ }\, i^\ell\, e^{i\sigma_\ell}\, + \frac{\Psi_\ell^-(r)}{kr} + \left[ -a_{1/2} \Y_{\ell - 1/2, \ell, 1/2}^1/2 + + a_{-1/2} \Y_{\ell - 1/2, \ell, 1/2}^{-1/2} \right] +\end{align*} +This wave function, $\Psi_\total$, % [** PP: Typo \Psi_tot] +is formally almost identical to the expression given +by \Eqref{15} and the radial wave functions~$\Psi_\ell^±$ obey an equation which is +formally identical to \Eqref{16} except that $V_1(r)$ must now include the +coulomb potential~$V_c(r)$ which may differ from a point charge potential at +close distances. + +The radial wave function $\Psi_\ell^±$ must now reduce to the ``incident'' wave, +$F_\ell(\eta, kr)$, when the potential becomes a coulomb point charge potential, and +must be such that only the outgoing wave is modified by the non-coulomb +interaction. These conditions are satisfied by the asymptotic expression: +\begin{align*} +\Psi_\ell^± + &\cong F_\ell(\eta, kr) + + C_\ell^± \left[ G_\ell(\eta, kr) + i F_\ell(\eta, kr) \right] +\Tag{52} \\ +\intertext{which reduces to} +\Psi_\ell^± + &\cong F_\ell(\eta, kr) + + C_\ell^± e^{i(kr - \eta\, \ell n\, 2kr - \ell\pi/2 + \sigma_\ell)} +\Tag{53} +\end{align*} +or equivalently +\[ +\Psi_\ell^± +\cong \sin(kr - \eta\, \ell n\, 2kr - \ell \pi/2 + \sigma_\ell) + + C_\ell^± + e^{i(kr - \eta\, \ell n\, 2kr - \ell \pi/2 + \sigma_\ell)} +\Tag{54} +\] +as may be seen by introducing the asymptotic expressions for the regular and +irregular coulomb functions: +\[ +\left. +\begin{aligned} + F_\ell(\eta, kr) + &\cong \sin(kr - \eta\, \ell n\, 2kr - \ell \pi/2 + \sigma_\ell) \\ + G_\ell(\eta, kr) + &\cong \cos(kr - \eta\, \ell n\, 2kr - \ell \pi/2 + \sigma_\ell) +\end{aligned} +\right\} +\Tag{55} +\] + +%% -----File: 018.png---Folio 13------- + +In this case, the ``nuclear phase shift'' $\delta_{\ell}^{±}$ is taken to be such +that the asymptotic form of~$\Psi_{\ell}^{±}$ is given by +\[ +\Psi_{\ell}^{±} \cong A_{\ell}^{±} + \sin (kr - \eta\, \ell n\, 2kr - \ell \pi/2 + \sigma_\ell + \delta_\ell^±) +\Tag{56} +\] +Comparison of the coefficients of $e^{i(kr - \eta\, \ell n\, 2kr)}$ and $e^{-i(kr - \eta\, \ell n\, kr)}$ +in \Eqrefs{54} and~\Eqno{56} yields +\begin{align*} +C_{\ell}^{±} &= \frac{1}{2i} \left[ e^{2i\, \delta_{\ell}^{±}}-1 \right] +\Tag{57} \\ +A_{\ell}^{±} &= e^{i\, \delta_{\ell}^{±}} +\Tag{58} +\end{align*} +Substituting~\Eqno{53} into~\Eqno{51} and making use of~\Eqno{46} and~\Eqno{50} we obtain for +the asymptotic form of the total wave function +\begin{align*} + \Psi_\total &\cong \frac{1}{\sqrt{V}} + \left\{ e^{i[kz - \eta\, \ell n\, k(r-z)]} + \left[ 1 - \frac{\eta^2}{ik(r-z)} \right] \right\} \chi_\inc \\[-12pt] +&\Tag{59} \\ +% + &+ \frac{1}{\sqrt{V}} \frac{e^{i(kr - \eta\, \ell n\, 2kr)}}{r} + \left\{ A(\theta) \left[ a_{1/2} \alpha + a_{-1/2} \beta \right] + + i B(\theta) \left[ a_{-1/2} e^{-i\varphi} \alpha + - a_{1/2} e^{i\varphi} \beta \right] \right\} +\end{align*} +where +\[ +\begin{aligned} + A(\theta) &= f_c(\theta) + + \frac{1}{k} \sum_{\ell=0}^\infty e^{2i \sigma_\ell} + \left[ (\ell+1) C_{\ell}^{+} + \ell C_{\ell}^{-} \right] + P_{\ell} (\cos\theta) \\ + B(\theta) &= -\frac{i}{k} \sum_{\ell=0}^\infty e^{2i\sigma_\ell} + \left[ C_{\ell}^{+} - C_{\ell}^{-} \right] + P_{\ell}^1 (\cos\theta) +\end{aligned} +\Tag{60} +\] +and $f_c(\theta)$ is given by \Eqref{47}. + +From this point, the formulation follows through as in the case of +uncharged particles. + + +\Section{B.}{Optical Model Potential} + +\Subsection[Diffuse Surface Optical Model with Volume Absorption and +Coulomb Spin-Orbit.]% +{1.}{Diffuse Surface Optical Model with Volume Absorption and \hfill\break +Coulomb Spin-Orbit.} + +The interaction~\Eqno{1} is assumed to have the form +\[ +V_T = V_\text{CN} + V_\text{SO} + V_\text{Coul} + V_\text{Coul SO} +\Tag{61} +\] +%% -----File: 019.png---Folio 14------- +where the terms appearing in \Eqref{61} are respectively the central +nuclear, spin-orbit nuclear, coulomb, and coulomb spin-orbit potentials. + +We shall first consider the case for which the real and imaginary +parts of the central potential have a special common form factor (corresponding +to volume absorption), and the spin-orbit potential is of the +Thomas type. This particular central potential form factor has been used +extensively and will be referred to as the standard form factor. We shall +then discuss other form factors available in the program. + + +\Subsubsection{(a)}{Central nuclear potential} +\[ +V_\text{CN} = (-V - iW) \frac{1}{(1 + e^{(r - R_N)/a})} +\Tag{62} +\] +where~$V$ and~$W$ are respectively the depths of the real and imaginary part of +the nuclear potential in \MeV\ ($V$ and~$W$ are positive for an attractive, absorbing +potential), and a common volume absorption form factor is assumed, where +\[ +R_N = R_\text{ON} m_b^{1/3} × 10^{-13}~\text{cm} +\Tag{63} +\] +$R_\text{ON}$ being the nuclear radius constant and~$a$ is the rounding parameter in $10^{-13}~\text{cm}$. + + +\Subsubsection{(b)}{Nuclear spin-orbit potential} + +The nuclear spin-orbit potential is often written in the Thomas form +\[ +V_\text{SO} = \lambda \frac{1}{2 M_p^2 c^2} + \left\{ \frac{1}{r}\, \frac{d}{dr} + \left[ \frac{-V}{1 + e^{(r-R_N)/a}} \right] \right\} \vec{S} · \vec{L} +\Tag{64} +\] +where $M_p$ is the proton test mass and $c$ the velocity of light. If~$\lambda$ were~$1$, +the spin-orbit term would be that predicted by the Dirac equation. To +provide more freedom in the model one writes +\[ +\lambda = 4 \left( \frac{M_p}{M_\pi} \right)^2 \frac{V_S + iW_S}{V} +\Tag{65} +\] +%% -----File: 020.png---Folio 15------- +where $M_\pi$ is the pion rest mass and~$V_S$ and~$W_S$ are respectively the strengths +of the real and imaginary parts of the nuclear spin-orbit potential in~\MeV. + +It may be noted that a negative value of the real part of~$\lambda$ would be +in accordance with the shell model of the nucleus where a (real) negative +spin-orbit term is required to give the proper level sequence in contra-distinction +to the atomic case. + + +\Subsubsection{(c)}{Coulomb potential} + +The coulomb potential is taken here to correspond to a constant +charge density within the nucleus extending to a distance~$R_c$ given by +\[ +R_c = R_\text{oc} m_b^{1/3} × 10^{-13}~\text{cm} +\Tag{66} +\] +where $R_\text{oc}$ is the coulomb radius constant; thus +\[ +\begin{aligned} +V_\text{Coul} + &= (ZZ'e^2/2R_c) (3 - r^2/R_c^2) && \quad\text{for $r \leq R_c$} \\ + &= ZZ'e^2/r && \quad\text{for $r \geq R_c$} +\end{aligned} +\Tag{67} +\] + + +\Subsubsection{(d)}{Coulomb spin-orbit potential} + +The coulomb spin-orbit term is assumed to have the form\footnote + {W.~Heckrotte, Phys.\ Rev.\ \textbf{101}, l406 (1956).} +\[ +V_\text{Coul SO} + = (\mu_P - \tfrac{1}{2}) \frac{1}{M_P^2 c^2} + \left[ \frac{1}{r}\, \frac{d}{dr} V_\text{Coul} \right] \vec{S} · \vec{L} +\Tag{68} +\] +where $\mu_P$ is the proton magnetic moment in nuclear magnetons. It may be +noted that the coulomb spin-orbit term is negligible except at very high +energies. + +Substituting \Eqrefs{62}, \Eqno{64}, \Eqno{67}, and~\Eqno{68} into \Eqref{16} +and transforming to the dimensionless variable +\[ +\rho = kr +\Tag{69} +\] +%% -----File: 021.png---Folio 16------- +we find +\begin{multline} + \left\{\vphantom{\Bigg|} -\frac{d^2}{d\rho^2} + +\frac{\ell(\ell + 1)}{\rho^2} + - \left( \frac{V + iW}{E} \right) + \left( \frac{1}{1 + e^{(\rho - \bar{\rho}_N)/ka}} \right) + \right. \\ +% + + \left( \frac{\hbar}{M_\pi c} \right)^2 + \left( \frac{V_S + iW_S}{E} \right) k^2 + \left[ - \frac{1}{\rho}\, \frac{d}{d\rho} + \left( \frac{1}{1 + e^{(\rho - \bar{\rho}_N)/ka}} \right) \right] + \ellAlt +\Tag{70} \\ +% +\left. + U_\text{Coul} + U_\text{Coul SO} - 1 + \vphantom{\Bigg|}\right\} \Psi_\ell^±(\rho) = 0 +\end{multline} +where +\[ +\begin{aligned} + U_\text{Coul} + &= \frac{\eta}{\bar{\rho}_c} \left( 3 - \frac{\rho^2}{\bar{\rho}_c^2} \right) + && \text{for $\rho \leq \bar{\rho}_c$} \\ + % + &= 2 \eta/\rho && \text{for $\rho \geq \bar{\rho}_c$} +\end{aligned} +\Tag{71} +\] +\[ +\begin{aligned} + U_\text{Coul SO} + &= -\frac{1}{2} \left( \frac{\hbar}{M_P c} \right)^2 + (\mu_P - \tfrac{1}{2}) (2\eta) \left( k^2 / \bar{\rho}_c^3 \right) + \ellAlt && \text{for $\rho \leq \bar{\rho}_c$} \\ +% + &= -\frac{1}{2} \left( \frac{\hbar}{M_P c} \right)^2 + (\mu_P - \tfrac{1}{2}) (2\eta) \left( k^2 / \rho^3 \right) + \ellAlt && \text{for $\rho \geq \bar{\rho}_c$} +\end{aligned} +\Tag{72} +\] +and where +\begin{align*} +\bar{\rho}_N &= k R_N +\Tag{73} \\ +\bar{\rho}_c &= k R_c. +\Tag{74} +\end{align*} +Substituting now % [** PP: Typo substituting] +\begin{align*} +&\left( \frac{\hbar}{M_\pi c} \right)^2 = 2.00 × 10^{-26}~\text{cm}^2 +\Tag{75} \\ +% +&2\eta\, k^2 · \tfrac{1}{2} \left( \frac{\hbar}{M_P c} \right)^2 +\cong 2\eta \left( \frac{E}{M_P c^2} \right) += 2\eta \, \frac{E}{931} +\Tag{76} \\ +% +&\mu_P - \tfrac{1}{2} = 2.7934 - 0.5 = 2.2934 +\Tag{77} +\end{align*} +%% -----File: 022.png---Folio 17------- +into \Eqref{70} yields: +{\small +\begin{align*} + &\frac{d^2}{d\rho^2} \Psi_\ell^± (\rho) + = \left\{ -1 + \frac{\ell(\ell + 1)}{\rho^2} + - \left( \frac{V + iW}{E} \right) + \left( \frac{1}{1 + e^{(\rho - \bar{\rho}_N)}/ka} \right) + + \frac{\eta}{\bar{\rho}_c} + \left( 3 - \frac{\rho^2}{\bar{\rho}_c^2} \right) \right. \\ +% + &+ \left. \left[ 2 \left( \frac{V_S + iW_S}{E} \right) + \left( \frac{k}{a} \right) + \left( \frac{1}{\rho}\, + \frac{e^{(\rho - \bar{\rho}_N)/ka}} + {(1 + e^{(\rho - \bar{\rho}_N)/ka})^2} \right) + - 0.004926\, \frac{\eta E}{\bar{\rho}_c^3} \right] + \ellAlt \right\} + \Psi_\ell^±(\rho), \text{ for $\rho \leq \bar{\rho}_c$} \\ +% + &\qquad= \left\{ -1 + \frac{\ell(\ell + 1)}{\rho^2} + - \left( \frac{V + iW}{E} \right) + \left( \frac{1}{1 + e^{(\rho - \bar{\rho}_N)/ka}} \right) + + \frac{2\eta}{\rho} \right. +\Tag{78} \\ +% + &+ \left. \left[ 2 \left( \frac{V_S + iW_S}{E} \right) + \left( \frac{k}{a} \right) + \left( \frac{1}{\rho}\, + \frac{e^{(\rho - \bar{\rho}_N)/ka}} + {(1 + e^{(\rho - \bar{\rho}_N)/ka})^2} \right) + - 0.004926\, \frac{\eta E}{\rho^3} \right] + \ellAlt \right\} + \Psi_\ell^±(\rho),\text{ for $\rho \geq \bar{\rho}_c$} +\end{align*}}% [** PP: End of \small] + + +\Subsection{2.}{Nuclear Form Factors} + +\Eqref[cap]{78} may be rewritten in such a way as to display explicitly +the various nuclear form factors: +\begin{align*} + &\frac{d^2}{d\rho^2} \Psi_\ell^±(\rho) + = \left\{ -1 + \frac{\ell(\ell+1)}{\rho^2} + - \frac{V}{E}\, f_\CR(\rho) + - i \frac{W}{E}\, f_\CI(\rho) + + \frac{\eta}{\bar{\rho}_c} + \left( 3 - \frac{\rho^2}{\bar{\rho}_c^2} \right) \right. \\ +% + &+ \left. \left[ \frac{V_S}{E}\, \frac{2k}{a}\, f_\SR(\rho) + + i \frac{W_S}{E}\, \frac{2k}{a}\, f_\SI(\rho) + - 0.004926 \frac{\eta E}{\bar{\rho}_c^3} \right] + \ellAlt \right\} + \Psi_\ell^±(\rho), \text{ for $\rho \leq \bar{\rho}_c$} \\ +% + &\qquad= \left\{ -1 + \frac{\ell(\ell+1)}{\rho^2} + - \frac{V}{E}\, f_\CR(\rho) + - i \frac{W}{E}\, f_\CI(\rho) + + \frac{2 \eta}{\rho} \right. +\Tag{79} \\ +% + &+ \left. \left[ \frac{V_S}{E}\, \frac{2k}{a}\, f_\SR(\rho) + + i \frac{W_S}{E}\, \frac{2k}{a}\, f_\SI(\rho) + - 0.004926 \frac{\eta E}{\rho^3} \right] + \ellAlt \right\} + \Psi_\ell^±(\rho), \text{ for $\rho \geq \bar{\rho}_c$} +\end{align*} + +Three basic nuclear form factors and some special modifications of them +are presently available in the program. In addition the coulomb spin-orbit +term may be excluded at will. The required form factors may be chosen by +assigning the proper values to the symbolic quantities \Code{KTRL} as described on +% [** PP: ``pages 41 and 42'' in original] +\hyperref[page:41]{pages~\pageref{page:41}}~\textit{ff}. + +%% -----File: 023.png---Folio 18------- + +\Subsubsection{(a)}{Basic Form Factors} + +\Subsubsubsection{(i)}{Volume absorption} +(\Code{KTRL(I) = 0, I = 1, 7, 8, 9, 10}) +\begin{align*} +f_\CR(\rho) + &= f_\CI(\rho) %[** PP: Slant fraction in original] + = \frac{1}{(1 + e^{(\rho-\bar{\rho}_N)/ka})} +\Tag{80} \\ +f_\SR(\rho) + &= f_\SI(\rho) + = \frac{1}{\rho}\, \frac{e^{(\rho - \bar{\rho}_N)/ka}} + {(1 + e^{(\rho - \bar{\rho}_N)/ka})^2} +\Tag{81} +\end{align*} + + +\Subsubsubsection{(ii)}{Gaussian absorption} +(\Code{KTRL(1) = 1}) + +$f_\CR$ is given by~\Eqno{80}, $f_\SR$ and~$f_\SI$ are given by~\Eqno{81} and +\begin{align*} +f_\CI(\rho) &= e^{-[(\rho - \bar{\rho}_G)/kb]^2} +\Tag{82} \\ +\intertext{where} +\bar{\rho}_G &= k R_\text{OG} m_b^{1/3}, +\Tag{83} +\end{align*} +$R_\text{OG}$ being the nuclear Gaussian radius constant, %[** PP: Typo contant] +and~$b$ determines the Gaussian width. + + +\Subsubsubsection{(iii)}{Square well} +(\Code{KTRL(1) = 2}) +\begin{align*} + f_\CR(\rho) = f_\CI(\rho) + &= 1 \qquad \text{for $\rho \leq \bar{\rho}_N$} \\[-6pt] +\Tag{84} \\[-6pt] + &= 0 \qquad \text{for $\rho \geq \bar{\rho}_N$} \\ +f_\SR(\rho) = f_\SI(\rho) &= 0. % [** PP: Added period] +\Tag{85} +\end{align*} + + +\Subsubsection{(b)}{Special Central Nuclear Form Factors\footnotemark} +\footnotetext{J.S.~Nodvik, Proceedings of the International Conference on the Nuclear +Model, Florida State University, Tallahassee, 1959, pp.~16--23.} +(\Code{KTRL(1) = 0}) + +The purpose of these form factors is to allow one to modify the +knee or tail of the potential curve and produce central rises or depressions +in the real and/or imaginary parts of the central nuclear potential, as +specified by proper choice of the \Code{KTRL}'s. + +%% -----File: 024.png---Folio 19------- + +\Subsubsubsection{(i)}{Form~A} +(\Code{KTRL(7) = 1} for real part, \Code{KTRL(8) = 1} for imaginary part). +\[ +\left. +\begin{aligned} + f_\CR(\rho) \text{ and/or } f_\CI(\rho) + &= \left[1 + h_A(\rho)\right] f_{nA_1}(\rho) & + 0 &< \rho \leq \rho_{m_A} \\ + &= f_{nA_1}(\rho) & + \rho_{m_A} &\leq \rho \leq \bar{\rho}_N \\ + &= f_{nA_2}(\rho) & + \bar{\rho}_N &\leq \rho \leq \rho_\text{max} +\end{aligned} +\right\} +\Tag{86} +\] + + +\Subsubsubsection{(ii)}{Form~B} +(\Code{KTRL(7) = 2} for real part, \Code{KTRL(8) = 2} for imaginary part). +\[ +\left. +\begin{aligned} + f_\CR(\rho) \text{ and/or } f_\CI(\rho) + &= \left[1 + h_B(\rho)\right] f_{nB_1}(\rho) & + 0 &< \rho \leq \rho_{m_B} \\ + &=\quad f_{nB_1}(\rho) & + \rho_{m_B} &\leq \rho \leq \bar{\rho}_N \\ + &=\quad f_{nB_2}(\rho) & + \bar{\rho}_N &\leq \rho \leq \rho_\text{max} +\end{aligned} +\right\} +\Tag{87} +\] + +% [** PP: Changed subscript o to 0 throughout] +The presence of forms~$A$ and~$B$ allows distinct form factors in the real +and imaginary parts. The presence of $A_1$, $A_2$ and~$B_1$, $B_2$ allows distinct shapes +in the knee and tail of the form factors. Letting~$x$ be either $A$ or~$B$, and~$n$ +be either $nA_1$, $nA_2$, $nB_1$, or~$nB_2$, +\begin{align*} + h_x(\rho) + &= h_{0x} \left[ 2 \left( \frac{\rho}{\rho_{m_x}} \right)^3 + - 3 \left( \frac{\rho}{\rho_{m_x}} \right)^2 + 1 \right] + = h_{0x} \left( 1 - \frac{\rho}{\rho_{m_x}} \right)^2 + \left( 1 + \frac{\rho}{\rho_{m_x}} \right) +\Tag{88} \\ +f_n(\rho) + &= \frac{1}{1 + g_n(\rho)} +\Tag{89} \\ +\intertext{where} +g_n(\rho) + &= \exp \left\{ \frac{1}{n}\, \left( \frac{\bar{\rho}_N}{ka} \right) + \left[ \left( \frac{\rho}{\bar{\rho}_N} \right)^n - 1 \right] \right\} +\Tag{90} +\end{align*} +where $h_{0A}$, $h_{0B}$, $nA_1$, $nA_2$, $nB_1$, $nB_2$, $\rho_{m_A}$, $\rho_{m_B}$ are selected constants. (The $n$'s +are always taken as $\geq 0$.) + +\Note{1} If $h_{0x}$ is taken to be zero and $nx_1$, $nx_2$ are taken to be~$1$, forms $A$ +and~$B$ reduce to the volume absorption form. + +\Note{2} The three curves defined by \Eqrefs{86} and~\Eqno{87} join smoothly +with continuous derivatives as long as $\rho_{m_x}$ is chosen less than~$\bar{\rho}_N$. + +\Note{3} Positive values of $h_{0x}$ will produce central rises in the form +factors while negative values will produce a central depression. + +%% -----File: 025.png---Folio 20------- + +\Note{4} If $nx_1 > 1$, the knee of the potential will be sharper than for the +usual volume absorption case, while $0 \leq nx_1 \leq 1$ will soften the knee of the +curve. + +\Note{5} If $nx_2 > 1$, this will shorten the potential tail while $0 \leq nx_2 \leq 1$ +will extend it. + +Some typical shapes are presented in \textsc{Figures~\FigRef{2}}, \FigRef{3}, and~\FigRef{4}. + + +\Subsubsection{(c)}{Special Nuclear Spin-Orbit Form Factors +(\Code{KTRL(1) = 0})} % [** PP: Omitted period] +%****\footnote Error, or refers to previous footnote? + +% [** PP: A and B are labels, not math] +Two special nuclear spin-orbit form factors are available. They +can be applied to the real and/or imaginary parts of the nuclear spin-orbit % [** PP: Added hyphen] +potential. The first of these form factors corresponds to the Thomas term +applied to form~A in the central nuclear potential, while the second uses +form~B itself; this permits one to study the result of deviations from the +Thomas form. + + +\Subsubsubsection{(i)}{Derivative form factor~A} +(\Code{KTRL(9) = 1} for real part, \Code{KTRL(1O) = 1} +for imaginary part) +{\small% [** PP: Hard-coded size change to make everything fit] +\[ +\left. +\begin{aligned} + f_\SR(\rho) \text{ and/or } f_\SI(\rho) + &= (ka) \left[ + -\frac{1}{\rho}\, \frac{d}{d\rho}\, (\text{form factor~A}) + \right] \\ + &= (ka) \left[ -\left( \frac{1}{\rho}\, \frac{dh_A(\rho)}{d\rho} \right) + f_{nA_1}(\rho) + - \left( 1 + h_A(\rho) \right) + \left( \frac{1}{\rho}\, \frac{df_{nA_1}(\rho)}{d\rho} \right) + \right] && \\ + &&&\makebox[-12pt][r]{\text{for $0 \leq \rho \leq \rho_{m_a}$}} \\ + % + &= (ka) \left[ - \frac{1}{\rho}\, \frac{df_{nA_1}(\rho)}{d\rho} + \right] && \makebox[-12pt][r]{\text{for $\rho_{m_a} \leq \rho \leq \overline{\rho}_N$}} \\ + % + &= (ka) \left[ - \frac{1}{\rho}\, \frac{df_{nA_2}(\rho)}{d\rho} + \right] && \makebox[-12pt][r]{\text{for $\bar{\rho}_N \leq \rho \leq \rho_\text{max}$}} +\end{aligned} +\hspace*{-12pt}\right\} +\Tag{91} +\] +}% [** PP: End of \small] +where +\begin{align*} +-\frac{1}{\rho}\, \frac{dh_A(\rho)}{d\rho} + &= \frac{6h_{0A}}{\rho_{m_A}^2} \left( 1 - \frac{\rho}{\rho_{m_A}} \right) +\Tag{92} \\ +-\frac{1}{\rho}\, \frac{df_n{\rho}}{d\rho} + &= \left( \frac{\bar{\rho}_N}{ka} \right) + \frac{1}{\rho^2}\, \left( \frac{\rho}{\bar{\rho}_N} \right)^n + g_n(\rho) \left[ f_n(\rho) \right]^2 +\Tag{93} +\end{align*} +and $f_n(\rho)$ and $g_n(\rho)$ are given by \Eqrefs{89} and~\Eqno{90}. + +%% -----File: 026.png---Folio 21------- + +\Figure{2}{026a} +%[Illustration: Fig. 2. - Central form factor, tail variations] + +\iffalse %% Fig. 2 +%\begin{center} +% \underline{p - Cu \quad $9.75$~\MeV} +% \bigskip +%\end{center} +% +%$\mathrm{RO} = 1.20$, $\mathrm{A} = 0.52$, $\mathrm{HA} = 0$, +%$\mathrm{FN1A} = 1$, $\rho_{m_A} = \bar{\rho}_N = 3.24$ +% +%\begin{tabular}{cccl} +% \textcircled{1} & $\mathrm{FN2A}$ & = & $0.01$ \\ +% \textcircled{2} & $\mathrm{FN2A}$ & = & $1$ \quad (standard \ form \ factor)\\ +% \textcircled{3} & $\mathrm{FN2A}$ & = & $3$ \\ +% \textcircled{4} & $\mathrm{FN2A}$ & = & $10$ +%\end{tabular} +\fi%% End of Fig. 2 + +%% -----File: 027.png---Folio 22------- + +\Figure{3}{027a} +%[Illustration: Fig.~3. - Central form factors; central dips and rises] + +\iffalse %% Fig. 3 +%\begin{center} +% \underline{p - Ag \quad $135$~\MeV} +% \bigskip +%\end{center} +% +%$\mathrm{RO} = 1.25$, $\mathrm{A} = 0.65$, $\mathrm{FN1A} = 1$, $\mathrm{FN2A} = 1$ +% +%\begin{tabular}{ccccccc} +% \textcircled{1} & $\mathrm{HA}=1$ & $\mathrm{PMA}=1$, & $\rho_{m_A}=$ +% & $\bar{\rho}_N=$ & $15.04$ & (standard form factor)\\ + % +% \textcircled{2} & $\mathrm{HA}=1$ & " & " & " & " &\\ + % +% \textcircled{3} & $\mathrm{HA}=-1$ & " & " & " & " &\\ + % +% \textcircled{4} & $\mathrm{HA}=2$, & $\mathrm{PMA}=0.7$, & +% $\rho_{m_A}=$ & $0.7\bar{\rho}_N=$ & $10.53$ & +%\end{tabular} +\fi%% End of Fig. 3 + +%% -----File: 028.png---Folio 23------- + +\Figure{4}{028a} +%[Illustration: Fig.~4. Central form factors, knee variation] + +\iffalse %% Fig. 4 +%\begin{center} +% \underline{p - Cu \quad $9.75$~\MeV} +% \bigskip +%\end{center} +% +%$\mathrm{RO} = 1.20$, $\mathrm{A} = 0.52$, $\mathrm{FN2A} = 1$, +%$\mathrm{PMA} = 1$, $\rho_{m_A}=\bar{\rho}_N=3.24$ +% +%\begin{tabular}{cllc} +% 1. & $\mathrm{FN1A}=0.01$, & $\mathrm{HA}=0$ & \\ +% 2. & $\mathrm{FN1A}=1$, & $\mathrm{HA}=0$ & (standard form factor)\\ +% 3. & $\mathrm{FN1A}=3$, & $\mathrm{HA}=0.046$ & +%\end{tabular} +\fi%% End of Fig. 4 + +%% -----File: 029.png---Folio 24------- + + +% [** PP: Not capitalizing factor, for consistency] +\Subsubsubsection{(ii)}{Form factor~B} +(\Code{KTRL(9) = 2} for real part, \Code{KTRL(10) = 2} for +imaginary part) +\[ +\text{$f_\SR(\rho)$ and/or $f_\SI(\rho) = \frac{1}{2}$. [form factor~B as per \Eqref{87}]} +\Tag{94} +\] + +\Note{} If $h_{0A}$ is taken to be zero while $nA_1$ and~$nA_2$ are taken to be~$1$, the +derivative form factor in~\Eqno{91} becomes identical to the usual spin-orbit +form factor~\Eqno{81}. + +Some typical shapes are presented in \textsc{Figures~\FigRef{5}}, \FigRef{6}, and~\FigRef{7}. + + +\Subsection{3.}{Final Formulation for Machine Calculation} + +The complex radial wave function $\Psi_\ell^±(\rho)$ may be written as +\[ +\Psi_\ell^±(\rho) = x_\ell^±(\rho) + i y_\ell^±(\rho) +\Tag{95} +\] +and \Eqref{79} for $\vec{\sigma} · \vec{\ell} = \ell$ or +$-\ell-1$ can now be separated into two real +coupled differential equations, and dropping the subscripts and superscripts +for convenience: +\[ +\left. +\begin{aligned} + \frac{d^2 x}{d \rho^2} &= px - qy \\ + \frac{d^2 y}{d \rho^2} &= qx + py +\end{aligned} +\right\} +\Tag{96} +\] +where +\[ +\left. +\begin{aligned} + p &= U_\CR + U_\SR \ellAlt + \frac{\ell(\ell+1)}{\rho^2} \\ + q &= U_\CI + U_\SI \ellAlt +\end{aligned} +\right\} +\Tag{97} +\] +Formulas~\Eqno{97} are convenient for programming purposes as the $U$'s are now +independent of~$\ell$, indeed: +\[ +\left. +\begin{aligned} + U_\CR + &= -1 - \frac{V}{E}\, f_\CR + + \frac{\eta}{\bar{\rho}_c} + \left( 3 - \frac{\rho^2}{\bar{\rho}_c^2} \right) + && \text{for $\rho \leq \bar{\rho}_c$} \\ +% + &= -1 - \frac{V}{E}\, f_\CR + + \frac{2\eta}{\rho} + && \text{for $\rho \geq \bar{\rho}_c$} +\end{aligned} +\right\} +\Tag{98} +\] + +%% -----File: 030.png---Folio 25------- + +\Figure{5}{030a} +%[Illustration: Fig. 5. - Spin-orbit form factor(derivative form). Tail variation.] + +\iffalse %% Fig. 5 +%\begin{center} +% \underline{p - Cu \quad $9.75$~\MeV} +% \bigskip +%\end{center} +% +%$\mathrm{RO} = 1.20$, $\mathrm{A} = 0.52$, $\mathrm{HA}=0$, $\mathrm{FN1A} = 1$, +%$\mathrm{PMA} = 1$, $\rho_{m_A}=\bar{\rho}_N=3.24$ +% +%\begin{tabular}{cll} +% \textcircled{1} & $\mathrm{FN2A} = 0.01$ &\\ +% \textcircled{2} & $\mathrm{FN2A} = 1$ & (standard derivative form factor)\\ +% \textcircled{3} & $\mathrm{FN2A} = 3$ &\\ +% \textcircled{4} & $\mathrm{FN2A} = 10$ & +%\end{tabular} +\fi%% End of Fig. 5 + +%% -----File: 031.png---Folio 26------- + +\Figure{6}{031a} +%[Illustration: Fig.~6. - Spin-orbit form factors (derivative form). Effect +%of dips and rises in central form factor] + +\iffalse %% Fig. 6 +%\begin{center} +% \underline{p - Ag \quad $135$~\MeV} +% \bigskip +%\end{center} +% +%$\mathrm{RO} = 1.25$, $\mathrm{A} = 0.65$, $\mathrm{FN1A} = 1$, $\mathrm{FN2A} = 1$ +% +%\begin{tabular}{clccccc} +% \textcircled{1} & $\mathrm{HA}=0$ & $\mathrm{PMA}=1$, & $\rho_{m_A}=$ +% & $\bar{\rho}_N=$ & $15.04$ & (standard derivative form factor)\\ + % +% \textcircled{2} & $\mathrm{HA}=1$ & " & " & " & " &\\ + % +% \textcircled{3} & $\mathrm{HA}=-1$ & " & " & " & " &\\ + % +% \textcircled{4} & $\mathrm{HA}=2$, & $\mathrm{PMA}=0.7$, & +% $\rho_{m_A}=0.7$ & $\bar{\rho}_N=$ & $10.53$ & +%\end{tabular} +\fi%% End of Fig. 6 + +%% -----File: 032.png---Folio 27------- + +\Figure{7}{032a} +%[Illustration: Fig.7. Spin-orbit form factor (derivative form). +%Knee variation.] + +\iffalse %% Fig. 7 +%\begin{center} +% \underline{p - Cu \quad $9.75$~\MeV} +% \bigskip +%\end{center} +% +%$\mathrm{RO} = 1.20$, $\mathrm{A} = 0.52$, $\mathrm{FN2A} = 1$, +%$\mathrm{PMA} = 1$, $\rho_{m_A}=1$, $\bar{\rho}_N=3.24$ +% +%\begin{tabular}{cllc} +% 1. & $\mathrm{FN1A}=0.01$, & $\mathrm{HA}=0$ & \\ +% 2. & $\mathrm{FN1A}=1$, & $\mathrm{HA}=0$ & (standard derivative form factor)\\ +% 3. & $\mathrm{FN1A}=3$, & $\mathrm{HA}=0.046$ & +%\end{tabular} +\fi%% End of Fig. 7 + +%% -----File: 033.png---Folio 28------- + +\begin{align*} + &U_\CI = -\frac{W}{E}\, f_\CI +\Tag{99} \\ +% +&\left. +\begin{aligned} + U_\SR + &= \frac{V_S}{E}\, \frac{2k}{a}\, f_\SR + - 0.004926 \frac{\eta E}{\bar{\rho}_c^3} + && \text{for $\rho \leq \bar{\rho}_c$} \\ + % + &= \frac{V_S}{E}\, \frac{2k}{a}\, f_\SR + - 0.004926 \frac{\eta E}{\rho^3} + && \text{for $\rho \geq \bar{\rho}_c$} +\end{aligned} +\right\} +\Tag{100} \\ +% +&U_\SI = \frac{W_S}{E}\, \frac{2k}{a}\, f_\SI +\Tag{101} +\end{align*} + + +\Subsection{4.}{Numerical Integration} + +\Eqrefs[cap]{96} must be integrated numerically twice for each $\ell=0$ +to $\ell_\text{max}$ where $\ell_{\text{max}+1}$ corresponds to a +partial wave negligibly disturbed by +the scattering. + +The method chosen for numerical integration is the 3-point Runge-Kutta +method: it lends itself to easy starting, permits one to change the +interval quite easily and gives excellent accuracy with relatively large +steps. + +Given $x_{i1}$, $y_{i1}$, $\dot{x}_{i1}$, $\dot{y}_{i1}$, at~$\rho_i$, +where $\dot{x}_{i1} \equiv \left( \frac{dx}{d\rho} \right)_{i,1}$ etc. +\begin{align*} + \ddot{x}_{i1} &= f(x_{i1},y_{i1},\rho_i);\quad + \ddot{y}_{i1} = g(x_{i1},y_{i1},\rho_i) +\Tag{102} \\ +% + x_{i2} &= x_{i1} + \dot{x}_{i1} \frac{\Delta\rho}{2};\quad + y_{i2} = y_{i1} + \dot{y}_{i1} \frac{\Delta\rho}{2} +\Tag{103} \\ +% + \ddot{x}_{i2} &= f(x_{i2},y_{i2},\rho_i+\frac{\Delta\rho}{2});\quad + \ddot{y}_{i2} = g(x_{i2},y_{i2},\rho_i+\frac{\Delta\rho}{2}) +\Tag{104} \\ +% + x_{i3} &= x_{i2} + \ddot{x}_{i1} \frac{(\Delta\rho)^2}{4};\quad + y_{i3} = y_{i2} + \ddot{y}_{i1} \frac{(\Delta\rho)^2}{4} +\Tag{105} \\ +% + \ddot{x}_{i3} &= f(x_{i3},y_{i3},\rho_i+\frac{\Delta\rho}{2});\quad + \ddot{y}_{i3} = g(x_{i3},y_{i3},\rho_i+\frac{\Delta\rho}{2}) +\Tag{106} \\ +% + x_{i4} &= x_{i2} + \dot{x}_{i1} \frac{\Delta\rho}{2} + + \ddot{x}_{i2} \frac{(\Delta\rho)^2}{2};\quad + y_{i4} = y_{i2} + \dot{y}_{i1} \frac{\Delta\rho}{2} + + \ddot{y}_{i2} \frac{(\Delta\rho)^2}{2} +\Tag{107} \\ +% + \ddot{x}_{i4} &= f(x_{i4},y_{i4},\rho_i+\Delta\rho);\quad + \ddot{y}_{i4} = g(x_{i4},y_{i4},\rho_i+\Delta\rho) +\Tag{108} +\end{align*} +%% -----File: 034.png---Folio 29------- +and finally +\begin{align*} + x_{i+1,1} &= x_{i1} + \Delta x_i + = x_{i1} + \frac{(\Delta\rho)^2}{6} + ( \ddot{x}_{i1} + \ddot{x}_{i2} + \ddot{x}_{i3}) + + \Delta\rho \; \dot{x}_{i1} +\Tag{109} \\ +% + \dot{x}_{i+1,1} &= \dot{x}_{i1} + \Delta\dot{x}_i + = \dot{x}_{i1} + \frac{\Delta\rho}{6} + ( \ddot{x}_{i1} + 2\ddot{x}_{i2} + 2\ddot{x}_{i3} + \ddot{x}_{i4}) +\Tag{110} \\ +% + y_{i+1,1} &= y_{i1} + \Delta y_i + = y_{i1} + \frac{(\Delta\rho)^2}{6} + ( \ddot{y}_{i1} + \ddot{y}_{i2} + \ddot{y}_{i3}) + + \Delta\rho \dot{y}_{i1} +\Tag{111} \\ +% + \dot{y}_{i+1,1} &= \dot{y}_{i1} + \Delta\dot{y}_i + = \dot{y}_{i1} + \frac{\Delta\rho}{6} + ( \ddot{y}_{i1} + 2\ddot{y}_{i2} + 2\ddot{y}_{i3} + \ddot{y}_{i4}) +\Tag{112} +\end{align*} + +The process is continued until the nuclear potential becomes negligible +at which time the wave functions and their first derivatives must be saved for +later matching with those of the coulomb function. + +% [** PP: Heading on separate line in original] +\paragraph{Starting values:} +If $\rho_\initial$ is very small, the following starting values may be used: +\[ +\left. +\begin{aligned} + x_\ell (\rho = \rho_\initial) = (\Delta\rho_1)^{\ell+1};\quad + \dot{x}_\ell (\rho = \rho_\initial) = (\ell+1)(\Delta\rho_1)^\ell \\ + % + y_\ell (\rho = \rho_\initial) = 0;\quad + \dot{y}_\ell (\rho = \rho_\initial) = 0 +\end{aligned} +\right\} +\Tag{113} +\] + + +\Subsection{5.}{Coulomb Functions} + +The regular and irregular coulomb functions are given by the following +asymptotic formulas which may be used successfully for large values of~$\rho$: +% [** PP: right-align braces in following groups] +\begin{align*} +\left. +\begin{aligned} + F_0 &\sim \sin[\Real(\varphi_0)] e^{-\Imag(\varphi_0)} \\ + F_1 &\sim \sin[\Real(\varphi_1)] e^{-\Imag(\varphi_1)} \\ + G_0 &\sim \cos[\Real(\varphi_0)] e^{-\Imag(\varphi_0)} \\ + G_1 &\sim \cos[\Real(\varphi_1)] e^{-\Imag(\varphi_1)} +\end{aligned} +\right\} & % Top-level alignment stop +\Tag{114} \\ +\intertext{where} +\left. +\begin{aligned} + \varphi_0 &= \rho - \eta\, \ell n\, 2\rho + \sigma_0 + + \sum_{k=2}^\infty \frac{a_k}{\rho^{k-1}} \left( \frac{1}{1-k} \right)\\ + % + \varphi_1 &= \rho - \eta\, \ell n\, 2\rho + \sigma_1 - \frac{\pi}{2} + + \sum_{k=2}^\infty \frac{b_k}{\rho^{k-1}} \left( \frac{1}{1-k} \right) +\end{aligned} +\right\} & % Top-level alignment stop +\Tag{115} \\ +%% -----File: 035.png---Folio 30------- +\intertext{and where} +\left. +\begin{gathered} + a_1 = -\eta, \quad a_2 = \frac{ -\eta^2}{2} + i\eta \\ + b_1 = -\eta, \quad b_2 = -\frac{2+\eta^2}{2} + i \frac{\eta}{2} \\ + a_k = -\left( \frac{1}{2} \sum_{m=1}^{k-1} a_m\, a_{k-m} \right) + - i \frac{k-1}{2}\, a_{k-1} +\end{gathered} +\right\} & % Top-level alignment stop +\Tag{116} \\ +\intertext{with a similar recurrence formula holding for~$b_k$} +\left. +\begin{aligned} + \sigma_0 &= \arg \Gamma(1 + i\eta) \\ + \sigma_1 &= \sigma_0 + \tan^{-1}\eta +\end{aligned} +\right\} & % Top-level alignment stop +\Tag{117} +\end{align*} +Furthermore the quantity~$\sigma_0$ may be successfully approximated over the whole +range of~$\eta$ by the following formula: +\begin{align*} + \sigma_0 + &= -\eta + \left( \frac{\eta}{2} \right) \ln(\eta^2+16) + + \frac{7}{2} \tan^{-1} \left( \frac{\eta}{4} \right) + - \left[ \tan^{-1}\eta + \tan^{-1} \left( \frac{\eta}{2} \right) + + \tan^{-1} \left( \frac{\eta}{3} \right) \right] \\ +& +\Tag{118} \\ + % + &\quad - \frac{\eta}{12(\eta^2 + 16)} + \left[ 1 + \frac{1}{30}\, \frac{\eta^2 - 48}{(\eta^2 + 16)^2} + + \frac{1}{105}\, \frac{\eta^4 - 160 \eta^2 + 1280}{(16 + \eta^2)^4} + \right]. +\end{align*} + +The above formulas which can of course be generalized for any value of~$\ell$ are +equivalent though not formally identical to the formulas listed by Abramowitz\footnote + {Tables of Coulomb Wave Functions, Vol.~I, National Bureau of Standards, + Applied Mathematics Series~17, Washington, 1952, p.~XV.} +and by Fröberg\footnote + {C.~E.\ Fröberg, Rev.\ Mod.\ Phys. \textbf{27}, 399 (1955).}. + +Rather than use these formulas for obtaining $F_\ell$ and~$G_\ell$ for any value of +$\ell > 1$, it is preferable to make use of recurrence formulas. + +The following upward recurrence formula is suitable for finding~$G_\ell$: +\[ +G_{\ell+1} += \frac{(2\ell + 1) \left[ \eta + \frac{\ell(\ell + 1)}{\rho} \right] G_\ell + - (\ell + 1) \left[ \ell^2 + \eta^2 \right]^{1/2} G_{\ell-1}} + {\ell \left[ (\ell + 1)^2 + \eta^2 \right]^{1/2}}. +\Tag{119} +\] + +%% -----File: 036.png---Folio 31------- + +A similar recurrence relation can only be used for downward recurrence +on the~$F_\ell$'s, otherwise results rapidly lose all significance. This may be +done by means of a method due to Stegun and Abramowitz\footnote + {Stegun and Abramowitz, Phys.\ Rev.\ \textbf{98}, 1851 (1955).} and which is essentially +as follows. + +Let it be required to compute~$F_\ell$ from $\ell=0$ to $\ell=\ell_\text{max}$. +\begin{itemize} +\item[(1)] Let $\ell^{(1)} = \ell_\text{max} + 10$ + +(The number~10 is arbitrary but has found satisfactory from practical +experience) + +Let $F_{\ell^{(1)}+1}^{(1)} = 0$ and $F_{\ell^{(1)}}^{(1)} =0.1$. Successive values of~$F_\ell^{(1)}$ can be computed +from $\ell=0$ to $\ell=\ell^{(1)}-1$ by means of the downward recurrence formula: +\[ +F_{\ell-1}^{(1)} + = \frac{(2\ell + 1) \left[ \eta + \frac{\ell(\ell+1)}{\rho} \right] F_\ell^{(1)} + - \ell \left[ (\ell + 1)^2 + \eta^2 \right]^{1/2} F_{\ell+1}^{(1)}} + {(\ell + 1)\left[\ell^2 + \eta^2\right]^{1/2}}. +\Tag{120} +\] +Letting the constant +\[ +\alpha = (F_0^{(1)} G_1 - F_1^{(1)} G_0)(1 + \eta^2)^{1/2} +\Tag{121} +\] +one may compute successively +\[ +F_\ell = F_\ell^{(1)}\alpha^{-1} +\Tag{122} +\] +for $\ell = \ell_\text{max} + 1$ to $\ell=0$. + +\item[(2)] To verify the accuracy of the~$F_\ell$'s obtained above one may compute as above +a new set of functions $F_\ell^{(2)}$ starting perhaps from $\ell^{(2)} = \ell^{(1)} + 5$ (again the +number~5 is obtained from practical experience) and letting now $F_{\ell^{(2)}+1}^{(2)} = 0$, +$F_{\ell^{(2)}}^{(2)} = 0.1$. This yields a new set of~$F_\ell$'s. + +\item[(3)] Comparison of the two sets of~$F_\ell$'s obtained in~(1) and~(2) above indicates +the accuracy of the computation. If this proves insufficient, let $\ell^{(3)} =\ell^{(2)} +5$ +and starting from $F_{\ell^{(3)}+1}^{(3)} = 0$, $F_{\ell^{(3)}}^{(3)} = 0.1$ one may obtain a third +set set of~$F_\ell$'s which is to be compared with the second set. + +This procedure may be continued until two successive sets of~$F_\ell$'s are +found to agree. The derivatives of the coulomb functions may be obtained +from the formula +\[ +Y_\ell^{'} + = \frac{ \left[ \frac{(\ell+1)^2}{\rho} + \eta \right] Y_\ell + - \left[ (\ell + 1)^2 + \eta^2 \right]^{1/2} Y_{\ell+1}}{(\ell+1)} +\Tag{123} +\] +%% -----File: 037.png---Folio 32------- +where $Y_\ell$ stands for either $F_\ell$ or~$G_\ell$. +\end{itemize} + + +\Subsection{6.}{Phase Shifts} + +The phase shifts are obtained in the usual fashion by matching +the logarithmic derivatives of the coulomb functions with those of the +numerically integrated functions at a value of~$\rho$ sufficiently large so +that the nuclear potential becomes negligible. + +Matching the logarithmic derivative of the nuclear function +$\Psi_\ell = x_\ell + i y_\ell$ with that of its asymptotic form +\[ +F_\ell + (G_\ell + i F_\ell) C_\ell +\] +yields +\[ +\frac{\Psi_\ell^{'}}{\Psi_\ell} + = \frac{F_\ell^{'} + (G_\ell^{'} + i F_\ell^{'}) C_\ell} + {F_\ell + (G_\ell + i F_\ell) C_\ell} +\Tag{124} +\] +which lead to +\[ +C_\ell^± + = \frac{\Psi_\ell^± F_\ell^{'} - \Psi_\ell^{±'} F_\ell} + {\Psi_\ell^{± '} G_\ell - \Psi_\ell^± G_\ell^{'} + + i (\Psi_\ell^{± '} F_\ell - \Psi_\ell^± F_\ell^{'})} +\Tag{125} +\] +the quantities $C_\ell$ being related to the complex phase shifts through \Eqref{57}. + + +\Subsection{7.}{Cross Section and Polarization} + +The differential elastic scattering cross section~$\sigma(\theta)$ and the +polarization~$P(\theta)$ for an unpolarized incident beam are obtained % [** PP: Typo obtain] +from +\Eqrefs{34} and~\Eqno{35} while the reaction cross section may be obtained % [** PP: Typo obtain] +as follows. +\[ +\sigma_R = \frac{N_\abs}{N_\inc} +\Tag{126} +\] +where $N_\abs$ is the absorbed flux, and $N_\inc$ is the incident flux which was +assumed to be~$1$ (see \Eqref{7}). By definition, +\[ +N_\abs = - \frac{\hbar}{2i\mu} + \int\left[ \Psi_\total^\dagger \frac{\partial\Psi_\total}{\partial r} + - \Psi_\total \frac{\partial\Psi_\total^\dagger}{\partial r} \right] + r_0^2 \sin\theta\, d\theta\, d\varphi +\Tag{127} +\] +where the integral is taken over the surface of a large sphere of radius +$r = r_0$. Substituting \Eqref{51} for $\Psi_\total$ into \Eqref{127} and +%% -----File: 038.png---Folio 33------- +making use of the orthonormality of the $\Y^{m_j}_{j,\ell,s}$'s and of the relation +\[ +\left| a_{1/2} \right|^2 + \left| a_{-1/2} \right|^2 - 1, +\Tag{128} +\] +yields after carrying out the surface integration: +\begin{align*} +\sigma_R = N_\abs + &= \frac{4\pi}{V} \sum^\infty_{\ell=0} (\ell + 1) + \left\{ r^2 \left( -\frac{\hbar}{2i\mu} \right) + \left[ \frac{\Psi_\ell^{+*}}{kr} + \frac{\partial}{\partial r} \left( \frac{\Psi_\ell^{+}}{kr} \right) + - \frac{\Psi_\ell^{+}}{kr} + \frac{\partial}{\partial r} \left( \frac{\Psi_\ell^{+*}}{kr} \right) + \right] \right\}_{r=r_0} \\ + % +& \Tag{129} \\ + &- \frac{4\pi}{V} \sum^\infty_{\ell=0} \ell + \left\{ r^2 \left( -\frac{\hbar}{2i\mu} \right) + \left[ \frac{\Psi_\ell^{-*}}{kr} + \frac{\partial}{\partial r} \left( \frac{\Psi_\ell^{-}}{kr} \right) + - \frac{\Psi_\ell^{-}}{kr} + \frac{\partial}{\partial r} \left( \frac{\Psi_\ell^{-*}}{kr} \right) + \right] \right\}_{r=r_0} +\end{align*} +Now substituting the asymptotic form~\Eqno{52} for~$\Psi_\ell^±$ and making use of the +Wronskian relations +\[ +G_\ell F'_\ell - F_\ell G'_\ell = 1 +\Tag{130} +\] +we are led to the following: +{\small +\[ +\frac{4\pi}{V} \left\{ r^2 \left( -\frac{\hbar}{2i\mu} \right) + \left[ \frac{\Psi_\ell^{±*}}{kr} + \frac{\partial}{\partial r} \left( \frac{\Psi_\ell^±}{kr} \right) + - \frac{\Psi_\ell^{±}}{kr} + \frac{\partial}{\partial r} \left( \frac{\Psi_\ell^{±*}}{kr} \right) + \right] \right\}_{r=r_0} + = \frac{4\pi}{k^2} \left[ \Imag(C_\ell^±) - |C_\ell^±|^2 \right]. +\Tag{131} +\]}% [** PP: End of \small] +Finally, substitution of~\Eqno{131} into~\Eqno{129} yields +\begin{align*} +\sigma = \frac{4\pi}{k^2} \sum^\infty_{\ell=0} \biggl\{ + &(\ell + 1) + \Bigl[ + \Imag(C_\ell^+) - \bigl(\Imag(C_\ell^+)\bigr)^2 + - \bigl(\Real(C_\ell^+)\bigr)^2 \Bigr] \\ + &\qquad+ \ell + \Bigl[ + \Imag(C_\ell^-) - \bigl(\Imag(C_\ell^-)\bigr)^2 + - \bigl(\Real(C_\ell^-)\bigr)^2 \Bigr] \biggr\}. +\Tag{132} +\end{align*} + +\Note{} The quantities $e^{2i\sigma_\ell}$ appearing in \Eqref{60} may be obtained by the +following recurrence formulas: +\[ +\begin{aligned} +\Real(e^{2i\sigma_{\ell + 1}}) + &= \cos 2\sigma_{\ell + 1} + = \left[ \frac{(\ell + 1)^2 - \eta^2}{(\ell + 1)^2 + \eta^2} + \cos 2\sigma_\ell \right] + - \left[ \frac{2\eta(\ell + 1)}{(\ell + 1)^2 + \eta^2} + \sin 2\sigma_\ell \right] \\ +% +\Imag(e^{2i\sigma_{\ell + 1}}) + &= \sin 2\sigma_{\ell + 1} + = \left[ \frac{(\ell + 1)^2 - \eta^2}{(\ell + 1)^2 + \eta^2} + \sin 2\sigma_\ell \right] + + \left[ \frac{2\eta(\ell + 1)}{(\ell + 1)^2 + \eta^2} + \cos 2\sigma_\ell \right] +\end{aligned} +\Tag{133} +\] +while the Legendre polynomials obey the usual relations +%% -----File: 039.png---Folio 34------- +\begin{gather*} +P_0 (\cos\theta) = 1,\quad P_1 (\cos\theta) = \cos\theta \\ +% +P_{\ell+1}(\cos\theta) + = \frac{1}{\ell+1} \left[ (2\ell+1) \cos\theta P_\ell (\cos\theta) + - \ell P_{\ell-1}(\cos\theta) \right] +\Tag{134} \\ +% +P_\ell^{(1)}(\cos\theta) + = \frac{\ell+1}{\sin\theta} \left[ \cos\theta P_\ell(\cos\theta) + - P_{\ell+1}(\cos\theta) \right]. +\Tag{135} +\end{gather*} +One may also compute the Rutherford scattering cross section: +\[ +\sigma_c(\theta) = \left| f_c(\theta) \right|^2. +\Tag{136} +\] + + +\Subsection{8.}{Chi Square Deviation} + +Experimental and theoretical quantities may be compared by means of +the chi square deviation: +\[ +\chi_T^2 = \chi_\sigma^2 + \chi_P^2 +\Tag{137} +\] +where +\begin{align*} +\chi_\sigma^2 &= \sum_\theta \chi_\sigma^2(\theta) + = \sum_\theta \left[ + \frac{\sigma^\text{th}(\theta) - \sigma^\text{ex}(\theta)} + {\Delta\sigma^\text{ex}(\theta)} + \right]^2 +\Tag{138} \\ +% +\chi_P^2 &= \sum_\theta \chi_P^2(\theta) + = \sum_\theta \left[ + \frac{P^\text{th}(\theta) - P^\text{ex}(\theta)} + {\Delta P^\text{ex}(\theta)} + \right]^2 +\Tag{139} +\end{align*} +where the $\sigma^\text{th}(\theta)$ and~$P^\text{th}(\theta)$ are the theoretically obtained cross sections and +polarizations while $\sigma^\text{ex}(\theta)$, $\Delta\sigma^\text{ex}(\theta)$, $P^\text{ex}(\theta)$, +$\Delta P^\text{ex}(\theta)$ are respectively the +experimentally given cross sections, standard deviations in the cross sections, +polarization and standard deviations in the polarization. + +It should be noted that the constants were chosen such that the +differential and reaction cross section will be obtained in units of +$10^{-26}~\text{cm}^2$. The polarizations are of course dimensionless ratios. + + +\Subsection{9.}{Normalization} + +The radial wave functions~$\Psi_\ell^{±}$ and their derivatives obtained from +numerical integration of the radial Schroedinger equation contain an arbitrary +normalization factor,~$1/M_\ell^±$. This factor however does not affect the +cross section and polarization since these are obtained from the phase +%% -----File: 040.png---Folio 35------- +shifts which in turn are obtained from ratios of logarithmic derivatives +(see \Eqref{125}) wherein the~$M_\ell$'s cancel out. If on the other hand the +normalized radial wave functions and their derivatives are required, the +normalization terms may be obtained as follows: + +The asymptotic form of~$\Psi_\ell^±$ must obey \Eqref{52} but improper +normalization results in the fact that the calculated wave functions are +actually given by +\[ +x_\ell^±(\rho) + iy_\ell^±(\rho) + = M_\ell^± \left\{ F_\ell(\eta, \rho) + + C_\ell^± \left[ G_\ell(\eta, \rho) + + i F_\ell(\eta, \rho) \right] \right\} +\Tag{140} +\] +Now, for $\rho \leq \rho_\text{max}$ the nuclear potentials are negligible and \Eqref{52} +represents the exact solution; in particular, at $\rho = \rho_\text{max}$, we must have +\[ +x_\ell^±(\rho_\text{max}) + iy_\ell^±(\rho_\text{max}) + = M_\ell^± \left\{ F_\ell(\eta, \rho_\text{max}) + + C_\ell^± \left [ G_\ell(\eta, \rho_\text{max}) + + i F_\ell(\eta, \rho_\text{max}) \right] \right\} +\Tag{141} +\] +whereby +\[ +M_\ell^± + = \frac{x_\ell^±(\rho_\text{max}) + i y_\ell^±(\rho_\text{max})} + {F_\ell(\eta, \rho_\text{max}) + + C_\ell^± \left[ G_\ell(\eta, \rho_\text{max}) + + i F_\ell(\eta, \rho_\text{max}) \right]} +\Tag{142} +\] +and the normalized radial wave functions and their derivatives are given by +\[ +\left. +\begin{aligned} +\Psi_\ell^±(\rho) + &= \frac{1}{M_\ell^±} + \left[ x_\ell^±(\rho) + iy_\ell^±(\rho) \right] \\ +% [** PP: Typo d\Psi_\ell(\rho) below?] +\frac{d\Psi_\ell^±(\rho)}{d\rho} + &= \frac{1}{M_\ell^±} + \left[ \dot{x}_\ell^±(\rho) + i\dot{y}_\ell^±(\rho) \right] +\end{aligned} +\right\} +\Tag{143} +\] +and the complete normalized wave function is given in \Eqref{51} with +$\Psi_\ell^±$ as above in \Eqref{143}. + +\Note{} During the numerical integration the program may renormalize the wave +functions and their derivatives at any value of~$\rho$ for which overflow takes +place by dividing the functions and their derivatives by the largest of these. +This is accompanied by an explicit printout as explained %[** PP: Typo expained] +in the description +of subroutine \Code{RKINT}. Such occasional internal renormalization must of course +be taken into account if correctly normalized functions are required. + +%% -----File: 041.png---Folio 36------- + + +\Chapter{III.}{Program Description} + +\Section{A.}{General Description} + +\Subsection{1.}{Machine Specifications} + +Program \SCAT{4} has been written for an \Acro{IBM~704} with floating point +traps or an \Acro{IBM~709}, with a 32,768~words memory, no drum and a minimum of +two tape units. + +The program can probably be modified for a 16K~memory by reducing +the number of~$\theta$'s (up to 75 allowed here) and the number of~$\ell$'s (up to 50 +allowed here). A large part of the memory (7500~words) is occupied by the +Legendre polynomials and this may also be reduced by computing the polynomials +as required. Furthermore, the program contains a large number of +printouts % [** PP: Removed hyphen] +which may be abbreviated to save storage space. + + +\Subsection{2.}{General Program Description} + +The program was designed to compute cross sections, polarizations +and chi square deviations at a number of specified points in the space of +the optical model parameters \Code{V}, \Code{W}, \Code{A}, \Code{VS}, \Code{WS}, and if needed~\Code{BG} (\Code{RO}, \Code{RC} and +\Code{RG} are kept fixed), for a given set of input data. + +The time to carry out a run for a single set of parameters depends +of course upon the maximum values of~$\ell$ and~$\rho$; for p-Cu at 10~\MeV\ ($\ell_\text{max} = 10$, +$\rho = 0.0625$ $(.0625)\, 0.50$ $(0.25)\,10.0$) % [** PP: Parallel construction?] +a run takes about 45~seconds including +about 15~seconds for maximum output to tape. + +The program has been written in the form of subroutines to allow +easy checking and modification. Some of these subroutines are not yet +available, but some provision have been made to include them in the future. +The following subroutines written in \FORTRAN\ are specific (sub)routines of +the program: +\begin{center} +\begin{tabular}{lcp{1in}>{\qquad}lcp{1in}} + Main routine & -- & \Code{MAIN4} & & & \\ + Subroutine & -- & \Code{CTRL4} & & & \\ + Subroutine & -- & \Code{INPT4} & Subroutine & -- & \Code{PGEN4} \\ + Subroutine & -- & \Code{POT1CH} & Subroutine & -- & \Code{INTCTR}\\ + Subroutine & -- & \Code{POP1} & Subroutine & -- & \Code{RKINT} \\ + Subroutine & -- & \Code{SIGZRO} & Subroutine & -- & \Code{CSUBL} \\ + Subroutine & -- & \Code{FSUBC} & Subroutine & -- & \Code{AB} \\ + Subroutine & -- & \Code{EXSGML} & Subroutine & -- & \Code{SGSGCP}\\ + Subroutine & -- & \Code{RHOTB} & Subroutine & -- & \Code{SIGMAR}\\ + Subroutine & -- & \Code{COULFN} & Subroutine & -- & \Code{CHISQ} \\ + Subroutine & -- & \Code{RMXINC} & Subroutine & -- & \Code{OUTPT4}\\ +\end{tabular} +\end{center} +%% -----File: 042.png---Folio 37------- +The following subroutines are general utility routines used by the program: +\begin{itemize} +\item[]Subroutine - \Code{SKIP} written in \FORTRAN\ +\item[]Subroutine - \Code{LEAVE} written in \FORTRAN\ +\item[]Subroutine - \Code{SPILL} written in \Acro{FAP} +\end{itemize} +The following subroutines are used in conjunction with the Load-and-Go +system in use at WDPC (Western Data Processing Center, UCLA). The effect +of using this system is described in \hyperref[ref:III.A.3]{section~III-A-3} below. +\begin{itemize} +\item[]Subroutine - \Code{SAVE} +\item[]Subroutine - \Code{PDUMP} +\item[]Subroutine - \Code{EXIT} +\end{itemize} +\bigskip +The program assumes the presence of the following Fortran elementary function +subroutines: +\begin{center} +\begin{tabular}{lcl} +\Code{LOGF } & -- & (natural logarithm) \\ +\Code{SINF } & -- & (sine) \\ +\Code{COSF } & -- & (cosine) \\ +\Code{EXPF } & -- & (exponential) \\ +\Code{SQRTF} & -- & (square root) \\ +\Code{ATANF} & -- & (arc tangent) \\ +\end{tabular} +\end{center} + + +\Subsection{3.}{Use of the WDPC Load-and-Go System} +\phantomsection\label{ref:III.A.3}% ad hoc + +Program \SCAT{4} has been written for the Load-and-Go system in use at +the WDPC, UCLA\@. This \emph{only} affects it as follows: + +\Subsubsubsection{(i)}{Special subroutines of the load-and-go system.} + +\Subroutine{\Code{SAVE}} + +The purpose of this subroutine is to allow the operator to interrupt +the calculation without loss. The program is normally run with Sense Switch~1 +off; turning on Sense Switch~1 will cause the program to call \Code{SAVE} after +completing the innermost \Code{DO} loop of subroutine \Code{CTRL4}. \Code{SAVE} then writes +on tape the content of the core memory as well as all other information +required to continue the computation such as the contents of the AC, MQ, +index registers, etc\ldots. % ** Registers + +A restart routine will then later reload the core memory, reset +all registers etc\ldots, and return right after the \Code{CALL SAVE} statement. +The following statements up to statement number~66 are then required to +properly position the input data tape as the latter was probably rewound +when the computation was interrupted. + +%% -----File: 043.png---Folio 38------- + +To eliminate the use of subroutine \Code{SAVE}, remove from subroutine \Code{CTRL4} +all statements from statement number~118 to statement number~66 inclusive. + +\Subroutine{\Code{PDUMP}($\alpha$,$\beta$)} + +The purpose of this subroutine is to provide a partial core dump of all +quantities between the location of the arguments in the call statement. Subroutine +\Code{PDUMP} is called by subroutine \Code{LEAVE} whenever difficulties such as +overflow or division by zero take place. + +To eliminate subroutine \Code{PDUMP}, replace in subroutine \Code{LEAVE} the statement +\Code{CALL} \Code{PDUMP(A,ZZ)} by whatever statements will cause the required core dump. + +\Subroutine{\Code{EXIT}} + +This subroutine terminates the program. + +To eliminate subroutine \Code{EXIT}, replace statement number~151 in subroutine +\Code{INPT4} by whatever statement will be used to terminate the program. + + +\Subsubsubsection{(ii)}{\Code{END} Statements.} + +The usual \FORTRAN\ \Code{END} statements do not appear in the program as +the load-and-go system provides them automatically. + + +\Subsubsubsection{(iii)}{Input and Output Statements.} + +In conjunction with the load-and-go system, the program is input +from tape, while the input data is brought in from tape~7 and all the output +is to % [** PP: sic, no auxiliary verb] +tape~6. + +All these particular features can of course be easily modified to +use the program either directly or in conjunction with any other system. + + +\Subsection{4.}{Error Indications:} + +\Subsubsubsection{(i)}{Division by zero.} + +Every division which could conceivably have a zero divisor +either because of the range of numbers used or because of an error in the +input data is followed by an \Code{IF DIVIDE CHECK}. Detection of a zero denominator is +then followed by an explicit print out and a \Code{CALL LEAVE} statement which leads +to the next set of input data. In order to be sure that no division by zero +remains undetected, every subroutine which contains an \Code{IF DIVIDE CHECK} statement +also begins with an \Code{IF DIVIDE CHECK} to verify that the trigger is off at the +start of the subroutine; if the divide check trigger is found on at the start, +there is an explicit printout % [** PP: Removed hyphen] +to that effect followed by a \Code{CALL LEAVE} statement. + +%% -----File: 044.png---Folio 39------- + +\Subsubsubsection{(ii)}{Overflow. Underflow.} +\phantomsection\label{ref:III.A.4.ii}% ad hoc + +Overflow and underflow are monitored by subroutine \Code{SPILL} (\Code{JSPILL}, +\Code{ISPILL}, $x$, $y$) which needs only be called once by \Code{MAIN4}. When \Code{SPILL} is +called, it replaces the quantities \Code{JSPILL} and % [** PP: Typo AND] +\Code{ISPILL} by zeros. Thereafter, +in case of overflow (underflow) the subroutine replaces the overflowed +(underflowed) quantity with $x$ ($y$) % [** PP: Added space] +and places into \Code{JSPILL} (\Code{ISPILL}) the +address of the command which caused overflow (underflow) to occur for +the first time. Program \SCAT{4} uses $x=y=0$. + +Every subroutine in which computations are carried out starts by +setting \Code{ISPILL} and \Code{JSPILL} equal to zero to insure correct identification +of possible subsequent overflow or underflow. The subroutine then ends +with a check of \Code{ISPILL} and \Code{JSPILL}. If either of these is not zero, there +is an explicit printout % [** PP: Removed hyphen] +describing the overflow or underflow. Underflow +results therefore in substituting zero for the underflowed quantity, but +the computation proceeds. Overflow on the other hand results in substituting +zero for the overflowed quantity and leads to a \Code{CALL LEAVE} statement to +stop the computation. + + +\Section{B.}{Detailed Descriptions of the Specific Routines of the Program} + +\Routine{\Code{MAIN4}} + +The main routine which is only used at the start of the program carries out +the following steps: + +\begin{itemize} + \item[1)] Calls \Code{SPILL} which controls overflow and underflow (see \hyperref[ref:III.A.4.ii]{III-A-4-ii}). + One such call statement is sufficient to put \Code{SPILL} in permanent + control for all subroutines. + + \item[2)] Sets up \Code{EPS1}, \Code{EPS2}, \Code{EPS3}, which are constants used to control the + accuracy of the Coulomb functions computations, and \Code{EPS4} which is + used in subroutine \Code{POT1CH}. + + \item[3)] Inputs identification and program numbers. + + \item[4)] Calls \Code{CTRL4}. +\end{itemize} + +\Routine{\Code{CTRL4} (Control~4)} + +This subroutine controls the whole flow of the program. It was coded as a +subroutine to allow it to be called by subroutine \Code{LEAVE}. It carries out the +following steps: + +\begin{itemize} + \item[1)] Advances group identification and resets run identification numbers. + + \item[2)] Call \Code{INPT4}. + +%% -----File: 045.png---Folio 40------- + + \item[3)] Calls \Code{POT1CH}. + + \item[4)]% + {\setlength{\tabcolsep}{0pt}\begin{tabular}[t]{l} + If \Code{KTRL(5) = 1}, calls \Code{POP1} \\ + if \Code{KTRL(5) = 0}, proceeds. \\ + \end{tabular}} + + \item[5)] Calls \Code{SIGZRO}, \Code{FSUBC}, \Code{EXSGML}. + + \item[6)] Sets up five (or six) nested \Code{DO} loops for varying successively + $V$, $W$, $a$, $V_s$, $W_s$ (and $b$ for a surface absorption potential). The + following steps are always done within the innermost \Code{DO} loop: + + \begin{itemize} + \item[a)]% + {\setlength{\tabcolsep}{0pt}\begin{tabular}[t]{l} + If Sense Switch~1 is on, calls \Code{SAVE} \\ + if Sense Switch~1 is off, proceeds. \\ + \end{tabular}} + + \item[b)] Advances run identification number. + +% [** PP: Overfull but not visually jarring] + \item[c)] Calls \Code{RHOTB}, \Code{COULFN}, \Code{RMXINC}, \Code{PGEN4}, \Code{INTCTR}, \Code{CSUBL}, \Code{AB}, \Code{SGSGCP}, \Code{SIGMAR}. + + \item[d)]% + {\setlength{\tabcolsep}{0pt}\begin{tabular}[t]{l} + If \Code{KTRL(2) = 0}, proceeds \\ + if \Code{KTRL(2) = 1}, calls \Code{CHISQ}. \\ + \end{tabular}} + + \item[e)] Calls \Code{OUTPT4}. + \end{itemize} + +\item[7)] When all the \Code{DO} loops have been completed, returns to step~1. +\end{itemize} + +\Routine{\Code{INPT4} (Input~4)} + +\begin{itemize} + \item[1)] Inputs \Code{KTRL(1)}; + {\setlength{\tabcolsep}{0pt}\begin{tabular}[t]{l} + if \Code{KTRL(1) = 100}, calls \Code{EXIT} \\ + if \Code{KTRL(1)} $\neq$ \Code{100}, proceeds. \\ + \end{tabular}} + + \item[2)] Inputs \Code{KTRL(I)}, \Code{I = 2 to 13}. + + \item[3)] Inputs \Code{FMI}, \Code{FMB}, \Code{ELAB}, \Code{ZZ}, \Code{RC}, \Code{V}, \Code{W}, \Code{RO}, \Code{A}, \Code{VS}, \Code{WS}, \Code{RG}, \Code{BG}, \Code{DV}, \Code{DW}, + \Code{DA}, \Code{DVS}, \Code{DWS}, \Code{DBG}, \Code{HA}, \Code{PMA}, \Code{FN1A}, \Code{FN2A}, \Code{HB}, \Code{PMB}, \Code{FN1B}, \Code{FN2B}, \Code{NVMAX}, + \Code{NWMAX}, \Code{NAMAX}, \Code{NVSMAX}, \Code{NWSMAX}, \Code{NBGMAX}. + + \item[4)] Sets up \Code{TV = V} to \Code{TBG = BG} (starting values of the parameters). + + \item[5)] Inputs \Code{NMAX}, forms \Code{NMAXP = NMAX-1}. + + \item[6)] Inputs \Code{RHOIN(I)}, \Code{I = 1 to NMAX} and \Code{DRHOIN(I), I = 1 to NMAXP}. + + \item[7)] Computes \Code{FMU} as per \Eqref{5} \\ + Computes \Code{ECM} as per \Eqref{6} \\ + Computes \Code{FKAY} as per \Eqref{8} \\ + Computes \Code{RHOBN} as per \Eqref{73} \\ + Computes \Code{RMA} and \Code{RMB} + (see \hyperref[chapter:V.]{Glossary}, under \Code{PMA}, \Code{PMB}) \\ + Computes \Code{RHOBC} as per \Eqref{74} \\ + Computes \Code{ETA} as per \Eqref{43}. + + \item[8)] Inputs \Code{LMAXM}, forms \Code{IMAX = LMAXM + 1}. + + \item[9)] Sets \Code{IIN(J) = 1, J = 1 to LMAX} (see description of subroutine \Code{INTCTR}) + +%% -----File: 046.png---Folio 41------- + + \item[10)]% + {\setlength{\tabcolsep}{0pt}\begin{tabular}[t]{ll} + If \Code{KTRL(5) = 0}, & proceeds \\ + if \Code{KTRL(5)} $\neq$ \Code{0}: & + \begin{tabular}[t]{l} + a) inputs \Code{JMAX} \\ + b) inputs \Code{THETAD(I), I = 1 to JMAX} \\ + c) computes \Code{THETA(I), I = 1 to JMAX}. \\ + \end{tabular} \\ + \end{tabular}} + \phantomsection\label{page:41}% ad hoc + + \item[11)]% + {\setlength{\tabcolsep}{0pt}\begin{tabular}[t]{l} + If \Code{KTRL(2) = 0} and/or \Code{KTRL(3) = 0}, proceeds, \\ + if \Code{KTRL(2)} $\neq$ \Code{0} and \Code{KTRL(3)} $\neq$ \Code{0}, inputs \\ + \quad\Code{SGMARX(I)}, \Code{DSGMEX(I)}, \Code{POLEX(I)}, \Code{DPOLEX(I)}, \Code{I = 1 to JMAX}. \\ + \end{tabular}} + + \item[12)] Returns to \Code{CTRL4}. +\end{itemize} + +\Routine{\Code{POT1CH} (potential~1 check)} % [** PP: Typo POTICH] + +The purpose of this subroutine is to check whether $\ell_\text{max}$ is sufficiently +large so that all the partial waves sensibly affected by the potential are +included and to check whether $\rho_\text{max}$ (the point at which the coulomb functions +will be matched to the nuclear wave functions) is sufficiently large to insure +that the non-coulomb part of the potential is negligible. If $\ell_\text{max}$ and/or +$\rho_\text{max}$ are too small, the subroutine increases them, and sets \Code{IIN}($\ell_\text{max}$)\Code{ = 1}. +The quantities $\rho_\text{max}$ and $\ell_\text{max}$ may be checked or not according to the value +assigned to \Code{KTRL(13)}: + +\Code{KTRL(13) = 1}: check both $\ell_\text{max}$ and $\rho_\text{max}$ + +\Code{KTRL(13) = 2}: check $\rho_\text{max}$ only + +\Code{KTRL(13) = 3}: check $\ell_\text{max}$ only + +\Code{KTRL(13) = 4}: do not check either. +\smallskip + +%% [** PP: Marked up lists below semantically to extent possible] +\noindent +$\rho_\text{max}$ and $\ell_\text{max}$ are checked in various ways depending upon the potential form. +The routine operates as follows: +\begin{itemize} +\item[1)] The routine first calculates the maximum values of \Code{V}, \Code{W}, \Code{A}, \Code{VS}, \Code{WS}, + and, in the case of a Gaussian absorption, of~\Code{BG} over the specified grid of + these parameters. + +\item[2)] If \Code{KTRL(1) = 0}, standard potential (or variation thereof), the routine + checks, if required, that: + \begin{itemize} + \item[a)] $\rho_\text{max}$ is sufficiently large so that + \[ + \frac{(V^2 + W^2)^{1/2}}{E}\, + \frac{1}{(1 + e^{(\rho_\text{max} - \bar{\rho}_N)/ka})} \leq \epsilon_4. +% [** PP: Change ; to . and start new sentence] +\Tag{144} + \] + If this condition is not met, $\rho_\text{max}$ is increased by the last value of + $\Delta\rho$ and the check is repeated. This is accompanied by the print out: \\ +%% -----File: 047.png---Folio 42------- +\qquad\begin{tabular}{l}% [** PP: Reformatted messages here, below] + \Code{RHOIN(NMAX) = } + (value of old $\rho_\text{max}$) + \Code{ + } (last value of \Code{DRHOIN}) \\ + \Code{RHOIN(NMAX) IS TOO SMALL IN NUCLEAR POTENTIAL}. \\ +\end{tabular} + + \item[b)] The routine also checks, if required, that $\ell_\text{max}$ is sufficiently large + so that + \[ + \frac{\sqrt{V^2 + W^2}}{E}\, + \frac{1}{(1 + e^{(\ell_\text{max} - \bar{\rho}_N)/ka})} \leq \epsilon_4. +% [** PP: Change ; to . and start new sentence] +\Tag{145} + \] + If this condition is not met, $\ell_\text{max}$ is increased by~$1$ and the check is repeated; + this is accompanied by the following printout: \\ +\qquad\begin{tabular}{l} + \Code{LMAXM = } (value of old \Code{LMAXM}) \Code{ + 1} \\ + \Code{LMAXM TOO SMALL BECAUSE OF CENTRAL POTENTIAL}. \\ +\end{tabular} + + The routine then checks that $\ell_\text{max}$ is sufficiently large so that + \[ + 2 k^2 \frac{\sqrt{V_S^2 + W_S^2}}{E}\, + \frac{1}{(1 + e^{(\ell_\text{max} - \bar{\rho}_N)/ka})} \leq \epsilon_4. +% [** PP: Change ; to . and start new sentence] +\Tag{146} + \] + If this condition is not met, $\ell_\text{max}$ is increased by~$1$ and the check is repeated; + this is accompanied by the following printout: \\ +\qquad\begin{tabular}{l} + \Code{LMAXM = } (value of old \Code{LMAXM}) \Code{ + 1} \\ + \Code{LMAXM TOO SMALL BECAUSE OF SPIN ORBIT POTENTIAL}. \\ +\end{tabular} +\end{itemize} + +\item[3)] If \Code{KTRL(1) = 1}, Gaussian absorption, + \begin{itemize} + \item[a)] The check on $\rho_\text{max}$ is as follows: + \begin{align*} + &\frac{V}{E}\, + \frac{1}{(1 + e^{(\rho_\text{max} - \bar{\rho}_N)/ka})} \leq \epsilon_4; +\Tag{147} \\ + \intertext{and} + &\frac{W}{E}\, + e^{-(\rho_\text{max} - \bar{\rho}_G/kb)^2} \leq \epsilon_4. +% [** PP: Change ; to . and start new sentence] +\Tag{148} + \end{align*} + If these conditions are not met $\rho_\text{max}$ is increased as before and the checks are + repeated; this is accompanied by the same printout as above. %[**varioref] + + \item[b)] The check on $\ell_\text{max}$ is as follows: + \begin{align*} + &\frac{V}{E}\, + \frac{1}{(1 + e^{(\ell_\text{max} - \bar{\rho}_N)/ka})} \leq \epsilon_4; +\Tag{149} \\ + \intertext{and} + &\frac{W}{E}\, + e^{-(\ell_\text{max} - \bar{\rho}_G/kb)^2} \leq \epsilon_4 +\Tag{150} + \end{align*} + and as in \Eqref{146}. + +%% -----File: 048.png---Folio 43------- + + If these conditions are not met $\ell_\text{max}$ is increased by~$1$ and the checks + repeated. The prints-out are given on the previous page. %[**varioref] +\end{itemize} + +\item[4)] If \Code{KTRL(1) = 2}, Square well + \begin{itemize} + \item[a)] The check on $\rho_\text{max}$ is as follows + \[ + \rho_\text{max} > \bar{\rho}_N +\Tag{151} + \] + + \item[b)] The check on $\ell_\text{max}$ is as follows + \[ + \ell_\text{max} > \bar{\rho}_N + 3. +\Tag{152} + \] + \end{itemize} + +Failure to meet these conditions leads % [** PP: Typo lead] +to increases in $\rho_\text{max}$ and/or $\ell_\text{max}$ +accompanied by the same printouts % [** PP: Removed hyphen] +as given above, after which the checks +are repeated. +\end{itemize} + +The program uses \Code{EPS4 = 0.001}. %% [** PP: Changed ; to .] +This quantity is specified in the +\Code{MAIN4} routine. + +The checks described above are based on a rough estimate of the phase +shifts using a WKB expression. + + +\Routine{\Code{POP1}} + +Computes \Code{P(L,J)}, \Code{PP(L,J)}, \Code{L = 1 to LMAXP}, \Code{J = 1 to JMAX} as per \Eqrefs{134} +and \Eqno{135} and returns to \Code{CTRL4}. + + +\Routine{\Code{SIGZRO} (Sigma zero)} + +Computes \Code{SIGMA0} and \Code{SIGMA1} as per \Eqrefs{117} and~\Eqno{118} and returns to \Code{CTRL4}. + + +\Routine{\Code{FSUBC}} + +Computes \Code{FCR(J)} and \Code{FCI(J)}, \Code{J = 1 to JMAX} as per \Eqref{47} and returns to \Code{CTRL4}. + + +\Routine{\Code{EXSGML} (Exponential sigma $\ell$)} + +Computes \Code{EXSGMR(J)}, \Code{EXSGMI(J)} for \Code{J = 1 to LMAX} as per \Eqref{133} and returns to \Code{CTRL4}. + + +\Routine{\Code{RHOTB} (Rho tabulation)} +\phantomsection\label{ref:RHOTB} + +The purpose of this subroutine is to construct a table of~$\rho$'s and~$\Delta \rho$'s +corresponding to each step of the numerical integration. This table is +%% -----File: 049.png---Folio 44------- +formed from the arrays of \Code{RHOIN(I)} and \Code{DRHOIN(I)} which are input by subroutine +\Code{INPT4} +\begin{center} +{\footnotesize +\begin{tabular}{|c|c|} +\multicolumn{2}{c}{\textsc{Input Arrays}} \\ +\hline +\Code{RHOIN(I)} & \Code{DRHOIN(I)} \\ +\hline +\Code{RHOIN(1)} & \Code{DRHOIN(1)} \\ +\Code{RHOIN(2)} & \Code{DRHOIN(2)} \\ + . & . \\ + . & . \\ + . & . \\ + . & . \\ +\Code{RHOIN(NMAX-1)} & \Code{DRHOIN(NMAX-1)} \\ +\Code{RHOIN(NMAX)}\hfill\break & \\ +\hline +\end{tabular} +\hfill +\begin{tabular}{|c|c|} +\multicolumn{2}{c}{\textsc{Computed Tables}} \\ +\hline +\Code{RHO(I)} & \Code{DRHO(I)} \\ +\hline +\Code{RHO(1)} & \Code{DRHO(1)} \\ +\Code{RHO(2)} & \Code{DRHO(2)} \\ + . & . \\ + . & . \\ + . & . \\ + . & . \\ +\Code{RHO(ILAST-1)} & \Code{DRHO(ILAST-1)} \\ +\Code{RHO(ILAST)}\hfill\break & \\ +\hline +\end{tabular}}% [** PP: Removed 2 ditto rows to make tables the same height] +\end{center} +$\rho$\Code{ = RHOIN(1) (DRHOIN(1)) RHOIN(2) } \ldots \Code{ (DRHOIN(NMAX-1)) RHOIN(NMAX)} \\ +\Code{RHO(I+1) = RHO(I) + DRHO(I)} \\ +\Code{DRHO(1) = DRHO(2) = } $\cdots$ \Code{ = DRHO(I) = DRHOIN(1)} \\ +\Code{ up to RHO(I) = RHOIN(2), etc}\ldots. \\ +\Code{RHO(1) = RHOIN(1); RHO(ILAST) = RHO(NMAX)} \\ +\Code{ILAST }$\geq$\Code{ NMAX}. + +If \Code{RHOIN(NMAX)} is given in such a way that it cannot be reached by +an integral number of \Code{DRHO(I)}'s, the last interval is shortened (up to~50\%) +or lengthened (by no more than~50\%) so that \Code{RHO(ILAST) = RHOIN(NMAX)}. + + +\Routine{\Code{COULFN} (Coulomb functions)} + +This is the most complex subroutine of the program. It computes +the regular and irregular coulomb functions and their derivatives for +\Code{L = 1 to LMAXM} at $\rho$\Code{ = RHOMAX} by means of asymptotic formulas. The main +steps are as follows: +\begin{itemize} +\item[1)] The $a$ and~$b$ series appearing in \Eqref{115} are calculated +according to \Eqrefs{116} and are cut off when either: +%% -----File: 050.png---Folio 45------- +\begin{itemize} +\item[(a)] The term $N_a$ (or~$N_b$) is such that the next term exceeds in magnitude +the previous one, i.e., when +\[ +[\Real (U_{N_a} + 1)]^2 + [\Imag (U_{N_a} + 1)]^2 +\geq [\Real (U_{N_a})]^2 + [\Imag (U_{N_a})]^2 +\Tag{153} +\] +where +\[ +U_k = \frac{a_k}{(k-1) \rho_\text{max}^{k-1}} +\Tag{154} +\] +and similarly for the~$b$ series. + +\item[(b)] The contributions of both the real and imaginary terms give undetectable +contributions to the real and imaginary parts of~$\varphi_0$ (and similarly +for~$\varphi_1$). During these computations, the value of $\rho_\text{max}$ may be increased by +addition of the last value of \Code{DRHOIN} and the computation starts all over again +under the following condition: +\begin{itemize} +\item[a)] The $a$ or~$b$ series is identically equal to zero. This is accompanied +by the printout: \\ +\begin{tabular}{l} % [** PP: Re-formatting] +\Code{SERIES IN PHI0 OR PHI1 IS ZERO, CHECK DATA, IF OK} \\ +\Code{INCREASE RHOMAX = } + (value of old \Code{RHOMAX}) \Code{ + } (value of last \Code{DRHOIN}) \\ +\end{tabular} + +\item[b)] Either of the two series diverges too quickly, i.e., the $N_a$-th +(or $N_b$-th) term still gives a non-negligible contribution to the series +obtained so far, viz.\ +\[ +\left| \frac{\left[ \Real (U_{N_a}) \right]^2 + + \left[ \Imag (U_{N_a}) \right]^2} + {\left[ \Real \left(\sum_{k=2}^{N_a-1} U_k\right) \right]^2 + + \left[ \Imag \left(\sum_{k=2}^{N_a-1} U_k\right) \right]^2} +\right| \geq EPS3 +\Tag{155} +\] +(\Code{EPS3} is given the value $0.00001$ in the \Code{MAIN4} routine.) +% [** PP: Added period] + +This is accompanied by the printout: \\ +\begin{tabular}{l} +\Code{IF OK A OR B SERIES DIVERGES TOO QUICKLY} \\ +\Code{INCREASE RHOMAX = } + (value of old \Code{RHOMAX}) \Code{ + }(value of last \Code{DRHOIN}). \\ +\end{tabular} + +\item[c)] Over 48~terms are required in either the $a$ or~$b$ series. This is +accompanied by the printout: \\ +\begin{tabular}{l} +\Code{INCREASE RHOMAX = } + (value of old \Code{RHOMAX}) \Code{ + } (value of last \Code{DRHOIN}) \\ +\Code{A OR B SERIES CONVERGES TOO SLOWLY}. \\ +\end{tabular} +\end{itemize} +\end{itemize} + +\item[2)] The quantities $\varphi_0$, $\varphi_1$, $F_0$, $F_1$, $G_0$, $G_1$ are formed according to +%% -----File: 051.png---Folio 46------- +\Eqrefs{114} and \Eqno{115}, and the Wronskian is checked for accuracy +requiring that +\[ +\left| \mathscr{W} - \left[ 1 + \eta^2 \right]^{-1/2} \right| += \left| F_0 G_1 - F_1 G_0 - \left[ 1 + \eta^2 \right]^{-1/2} \right| +\leq EPS1 +\Tag{156} +\] +(\Code{EPS1} is given the value $0.00001$ in the \Code{MAIN4} routine.) +% [** PP: Added period] + +If this condition is violated $\rho_\text{max}$ is increased and the computation starts +all over again; this is accompanied by the following printout: \\ +\begin{tabular}{l} +\Code{INCREASE RHOMAX = } + (old value of \Code{RHOMAX}) \Code{ + } (last value of \Code{DRHOIN}) \\ +\Code{BAD INITIAL WRONSKIAN}. +\end{tabular} + +\item[3)] The regular coulomb functions are formed by downward recurrence +as per \Eqrefs{120} and \Eqno{122} according to the accompanying description. + +Agreement between successive sets of $F_\ell$'s is verified by checking +that +\[ +\left| (F_\ell^{(n)} / F_\ell^{(n+1)}) - 1 \right| \leq EPS2 +\Tag{157} +\] +(\Code{EPS2} is given the value $0.00001$ in the \Code{MAIN4} routine) for $\ell = 0$ to $\ell_\text{max}$. + +% [** PP: Added paragraph break; ambiguous non-indent in original.] +During this computation the value of $\rho_\text{max}$ is increased and the computation +starts all over if it turns out that $\ell_{(1)} > \ell_\text{max} + 40$. This is +accompanied by the printout: \\ +\begin{tabular}{l} +\Code{INCREASE RHOMAX = } + (old value of \Code{RHOMAX}) \Code{ + } (last value of \Code{DRHOIN}) \\ +\Code{L TOO LARGE IN FBAR(L)}. +\end{tabular} + +\item[4)] The irregular coulomb functions are formed by upward recurrence +as per \Eqref{119} and the Wronskian for every $\ell = 0$ to $\ell_\text{max} + 1$ is +checked for accuracy requiring that +\[ +\left| F_\ell G_{\ell + 1} - F_{\ell + 1} G_\ell + - \frac{\ell + 1}{\left[ (\ell + 1)^2 + \eta^2\right]^{1/2}} \right| +\leq EPS1 +\Tag{158} +\] +(\Code{EPS1} is given the value $0.00001$ in the \Code{MAIN4} routine.) +% [** PP: Added period] + +If this condition is violated the value of $\rho_\text{max}$ is increased and the computation +starts all over again; this is accompanied by the printout: \\ +\begin{tabular}{l} +\Code{INCREASE RHOMAX = } + (old value of \Code{RHOMAX}) \Code{ + } (last value of \Code{DRHOIN}) \\ +\Code{BAD WRONSKIAN FOR L = } + (value of $\ell+1$ for which \Eqref{158} failed). +\end{tabular} + +\item[5)] Finally the derivatives of the coulomb functions for $\ell = 0$ to $\ell_\text{max}$ +are formed as per \Eqref{123}. +\end{itemize} + +%% -----File: 052.png---Folio 47------- + +\Routine{\Code{RMXINC} (Rho max increase)} + +The purpose of this subroutine is to extend the table of \Code{RHO(I)} and +\Code{DRHO(I)} by increments of the last value \Code{DRHOIN} until the final value of +\Code{RHO(I)} equals \Code{RHOMAX} which may have been increased by the subroutine \Code{COULFN}. + + +\Routine{\Code{PGEN4} (Potential generator 4)} + +The purpose of this subroutine is to form tables of the $\ell$-independent +parts of the potential corresponding to the \Code{RHO(I)} tables and suitable for +using in the numerical integrations. + +These include: + +\Code{UCRB(I)}, \Code{UCIB(I)}, \Code{USRB(I)}, \Code{USIB(I)} for \Code{I = 1 to ILAST} and corresponding +to the values at the beginning of an interval of integration; a corresponding +table of form factors is also formed: + +\Code{FFCR(I)}, \Code{FFCI(I)}, \Code{FFSR(I)}, \Code{FFSI(I)}, \\ +and + +\Code{UCRM(I)}, \Code{UCIM(I)}, \Code{USRM(I)}, \Code{USIM(I)}, \\ +and + +\Code{FFCRM(I)}, \Code{FFCIM(I)}, \Code{FFSRM(I)}, \Code{FFSIM(I)} for \Code{I = 1 to ILAST - 1} corresponding % [** PP: Added space in ILAST -1] +to the values in the middle of an interval of integration. + +The original and tightest part of the subroutine corresponds to a +standard form factor; modifications have been added to permit use of a +variety of form factors briefly described earlier. + +The subroutine operates as follows: The \Code{UCR-}'s are calculated as per \Eqref{98}, +the \Code{UCI-}'s as per \Eqref{99}, the \Code{USR-}'s as per \Eqref{100} and +the \Code{USI-}'s as per \Eqref{101}, wherein: + + +\Subsubsubsection{(i)}{\Code{KTRL(I) = 0}: Volume absorption or special nuclear form factor:} + +\begin{tabular}{rll@{\ }l} +If \Code{KTRL(7) = 0}, + & $f_\CR$ is computed as per \Eqref{80};\quad + & \Code{[FFCR]}\footnotemark & $= f_\CR$ \\ +\Code{ = 1}, + & $f_\CR$ is computed as per \Eqref{86}; + & \Code{[FFCR]} & $= f_\CR$ \\ +\Code{ = 2}, + & $f_\CR$ is computed as per \Eqref{87}; + & \Code{[FFCR]} & $= f_\CR$ \\[1ex] +% +If \Code{KTRL(8) = 0}, + & $f_\CI$ is computed as per \Eqref{80}; + & \Code{[FFCI]} & $= f_\CI$ \\ +\Code{ = 1}, + & $f_\CI$ is computed as per \Eqref{86}; + & \Code{[FFCI]} & $= f_\CI$ \\ +\Code{= 2}, + & $f_\CI$ is computed as per \Eqref{87}; + & \Code{[FFCI]} & $= f_\CI$ \\[1ex] +% +%% -----File: 053.png---Folio 48------- +If \Code{KTRL(9) = 0}, + & $f_\SR$ is computed as per \Eqref{81}; + & \Code{[FFSR]} & $= f_\SR$ \\ +\Code{ = 1}, + & $f_\SR$ is computed as per \Eqref{91}; + & \Code{[FFSR]} & $= f_\SR/ka$ \\ +\Code{= 2}, + & $f_\SR$ is computed as per \Eqref{94}; + & \Code{[FFSR]} & $= f_\SR/2$ \\[1ex] +% +If \Code{KTRL(10) = 0}, + & $f_\SI$ is computed as per \Eqref{81}; + & \Code{[FFSI]} & $= f_\SI$ \\ +\Code{= 1}, + & $f_\SR$ is computed as per \Eqref{91}; + & \Code{[FFSI]} & $= f_\SI/ka$ \\ +\Code{= 2}, + & $f_\SR$ is computed as per \Eqref{94}; + & \Code{[FFSI]} & $= f_\SI/2$ \\ +\end{tabular} +% [** PP: \footnotemark on previous page] +\footnotetext{\Code{FFCR} refers to the symbolic variables \Code{FFCR(I)} and~\Code{FFCRM(I)} appearing in +the program (see \hyperref[chapter:V.]{glossary of symbols}), similarly for \Code{FFCI}, \Code{FFSR}, and~\Code{FFSI}.} + + +\Subsubsubsection{(ii)}{\Code{KTRL(1) = 1}: Gaussian absorption} + +\begin{tabular}{rll@{\ }l} +$\phantom{If \Code{KTRL(9)} = 0,}$\quad + & $f_\CR$ is computed as per \Eqref{80};\quad + & \Code{[FFCR]} & $= f_\CR$ \\ + & $f_\CI$ is computed as per \Eqref{82}; + & \Code{[FFCI]} & $= f_\CI$ \\ + & $f_\SR$ is computed as per \Eqref{81}; + & \Code{[FFSR]} & $= f_\SR$ \\ + & $f_\SI$ is computed as per \Eqref{81}; + & \Code{[FFSI]} & $= f_\SI$ \\ +\end{tabular} + + +\Subsubsubsection{(iii)}{\Code{KTRL(1) = 2}: Square well} + +\begin{tabular}{rll@{\ }l} +$\phantom{If \Code{KTRL(9)} = 0,}$\quad + & $f_\CR$ is computed as per \Eqref{84}; + & \Code{[FFCR]} & $= f_\CR$ \\ + & $f_\CI$ is computed as per \Eqref{84}; + & \Code{[FFCI]} & $= f_\CI$ \\ + & $f_\SR$ and $f_\CI$ are taken to be zero. & & \\ +\end{tabular}\\ +Furthermore, + +If \Code{KTRL(11) = 1}, \Code{USR-} are computed as per \Eqref{100} \emph{including} +the coulomb spin-orbit term. + +If \Code{KTRL(11) = 0}, \Code{USR-} are computed as per \Eqref{100} \emph{excluding} the +coulomb spin-orbit term, i.e, the second term on the right hand side. \Code{KTRL(7)} +to~\Code{KTRL(11)} can of course be given any combination of permitted values. + + +\Routine{\Code{INTCTR} (Integration Control)} + +For each value of \Code{L = 1 to LMAX} this subroutine carries out the +following steps: +\begin{itemize} +\item[1)] Sets up starting values for the numerical integration as per \Eqref{113}. +The quantities \Code{IIN(L)} are not especially useful at the present time, +but they have been included in order to permit start of the numerical +integration at various values of~$\rho$ depending on~$\ell$ and thus permitting considerable +time saving by foreshortening the numerical integrations. A +study of this method is presently under way. + +\item[2)] Calls \Code{RKINT} which performs the numerical integration. + +\item[3)] Stores the final values of the functions and their derivatives at +the completion of each integration. +\end{itemize} + +%% -----File: 054.png---Folio 49------- + +\Routine{\Code{RKINT} (Runge-Kutta integration)} + +This is the most crucial subroutine in the program as most of the +time is spent in numerical integration. Special efforts have therefore +been made to produce a rapid program. + +The subroutine integrates numerically as per \Eqrefs{102} to~\Eqno{112} +the differential \Eqrefs{96} operating simultaneously on the two sets +corresponding to $\vec{\sigma}·\vec{\ell} = \ell$ and $-\ell - 1$. + +Special provisions have been made to avoid overflow; this is accomplished +by dividing all the functions and their derivatives by the largest +of these at every step (\Code{RENORM}); whenever such renormalization is carried +out it is accompanied by the following printout: \\ % [** PP: Removed hyphen] +\Code{RENORMALIZATION FACTOR = } + (value of \Code{RENORM}) \Code{IN RKINT FOR CODED} \\ +\Code{L = }(value of $\ell + 1$) and \Code{RHO = }(value of $\rho$ at which renormalization took place). + + +\Routine{\Code{CSUBL}} + +This subroutine computes $C_\ell^±$ as per \Eqref{125} for $\ell = 0$ to $\ell_\text{max}$. + + +\Routine{\Code{AB}} + +This subroutine computes \Code{A(J)} and~\Code{B(J)} for \Code{J = 1 to JMAX} i.e., for +the various angles~$\theta$ % [** PP: Typo $\theta$'s] +required, as per \Eqref{60}. + + +\Routine{\Code{SQSGCP} (Sigma, sigma-coulomb, polarization)} + +This subroutine computes $\sigma(\theta)$, $P(\theta)$, $\sigma_c(\theta)$, as per \Eqrefs{34}, +\Eqno{35}; \Eqno{136} and finally $\sigma(\theta)/\sigma_c(\theta)$ for the various angles required. + + +\Routine{\Code{SIGMAR}} + +This subroutine computes % [** PP: Typo compute] +$\sigma_R$ as per \Eqref{132}. + + +\Routine{\Code{CHISQ} (Chi Square)} + +This subroutine computes $\chi_\sigma^2(\theta)$, $\chi_\sigma^2$, $\chi_P^2(\theta)$, $\chi_P^2$, $\chi_T^2$ as per \Eqrefs{137}, +\Eqno{138} and~\Eqno{139}. + +% [** PP: Changed exp to ex twice] +\Note{} The quantities $\Delta\sigma^\text{ex}(\theta)$ and $\Delta P^\text{ex}(\theta)$ are always assumed to be non-zero. +Thus to avoid including an unknown experimental quantity, the corresponding +standard deviation must be taken as very large. + +%% -----File: 055.png---Folio 50------- + +\Routine{\Code{OUTPT4} (Output 4)} + +Several output formats are available: +\begin{itemize} % [** PP: Hard-coding ad hoc levels] +\item[(1)] \textbf{Minimum output} (\Code{KTRL(6) = 1}). + \begin{itemize} + \item[(a)] Basic quantities \\ + \Code{NUMPRG} \\ + \Code{KTRL(I)} for \Code{I = 1 to 13} \\ + \Code{FMI}, \Code{FMB}, \Code{ELAB}, \Code{ZZ}, \Code{V}, + \Code{W}, \Code{A}, \Code{RO}, \Code{VS}, \Code{WS}, \Code{RC}, + \Code{BG}, \Code{RG} + \Code{RHOBN}, \Code{RHOBC}, \Code{RHOBNG}, \Code{ECM},% [** PP: Added space] + \Code{ETA}, \Code{FKAY}, \Code{FKAYA}, \Code{FKAYB} \\ + and, if either \Code{KTRL(7)}, \Code{(8)}, \Code{(9)}, or + \Code{(10)} is not zero, \\ + \Code{HA}, \Code{RMA}, \Code{FN1A}, \Code{FN2A}, \Code{PNA}, + \Code{HB}, \Code{RMB}, \Code{FN1B}, \Code{FN2B}, \Code{PMB}, \\ + then \Code{RHOMAX}, \Code{LMAXM}, \Code{NMAX}, \Code{RHOIN(I) + for I = 1 to NMAX}, \\ + \Code{DRHOIN(I)} for \Code{I = 1 to NMAX-1, SGMRTH} \\ + and, if \Code{KTRL(2) = 1}, \Code{CHI2ST}, \Code{CHI2PT}, \Code{CHI2T}. + + \item[(b)] Basic Table \\ + \Code{THETAD(I)}, \Code{SGMATH(I)}, \Code{SRATIO(I)}, \Code{POLTH(I)}, \\ + and, if \Code{KTRL(2) = 1}, \Code{SGMAEX(I)}, \Code{POLEX(I)}, + for \Code{I = 1 to JMAX}. + \end{itemize} + +\item[(2)] \textbf{Normal output} (\Code{KTRL(6) = 0}) + \begin{itemize} + \item[(a)] Basic quantities \\ + (See above) + + \item[(b)] Basic Table \\ + (See above) + + \item[(c)] Form factor table (output only if \Code{KTRL(12) = 1}) \\ + \Code{RHO(I)}, \Code{FFCR(I)}, \Code{FFCI(I)}, \Code{FFSR(I)}, + \Code{FFSI(I)}, \\ + for \Code{I = 1 to ILAST}. + + \item[(d)] Fitting table (output only if \Code{KTRL(2)=1}) \\ + \Code{THETAD(I)}, \Code{DSGMEX(I)}, \Code{DPOLEX(I)}, \Code{CHI2S(I)}, \\ + \Code{CHI2P(I)}, \Code{CHI2(I)} for \Code{I = 1 to JMAX}. + + \item[(e)] \Code{L} table \\ + \Code{L}, \Code{CR1(L)}, \Code{CI1(L)}, \Code{CR2(L)}, \Code{CI2(L)} for \Code{L = 1 to LMAXM} + (corresponding to $\ell$ = 0 to $\ell_\text{max}$). + \end{itemize} +\end{itemize} + +%% -----File: 056.png---Folio 51------- + +This output is made for \emph{every} run, and maybe preceded by underflow +descriptions which may be ignored, and by other comments referring to an +increase in $\rho_\text{max}$, $\ell_\text{max}$, renormalization, etc. + +Every page of output is headed by the run number on the left and the +page number on the right. The number of lines per page is held to be less +than~50, otherwise the subroutine calls subroutine \Code{SKIP} which starts a new +page. + + +\Routine{\Code{SKIP}} + +This subroutine increases the page number, resets~\Code{K}, the line counter, +and outputs the run and page number. Note that arguments giving the number +of lines, page and run numbers are required. + + +\Routine{\Code{LEAVE}} + +This subroutine is called whenever a run gets into difficulty because +overflow, or division by zero occur. The subroutine calls \Code{PDUMP} to give a +partial core dump. + +This subroutine was included so as to allow for various possible +requirements upon overflow and division by zero without having to change +every command where the difficulty might occur. + +%% -----File: 057.png---Folio 52------- + + +\Chapter{IV.}{Description of Input Data} + +All data is input from tape~7. The input data tape is prepared from \Acro{IBM} +cards which contain one piece of input data per card in either of the two following +formats: +\begin{center} +\input{./images/057a.eepic} +\end{center} +\iffalse +% Columns | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10| 11| 12| 13 | 14| 15| | 72| +%==============|==============|===|===|===|===|===|===|===|===|===|===|===|==============|===|===|===============================|===| +%Integers | x | x | x | x | x |<--------------------------- any Hollerith character -----------------------------|-->| +%Floating nos. | ± | 0 | . | x | x | x | x | x | x | x | x | | ± | x | x |<-- any Hollerith character ---|-->| +\fi + +\Note{} Any floating point format which uses 15~columns or less and is acceptable +to \FORTRAN\ may be used in place of the above. + +\begin{itemize} +\item[(1)] The following identification data is input first: \\ % [** PP: Added :] +\begin{tabular}{lcl} +\Code{NUMRUN(1)} & : & month \\ +\Code{NUMRUN(2)} & : & day \\ +\Code{NUMRUN(3)} & : & year \\ +\Code{NUMRUN(4)} & : & set number (put in 0 to start with 1) \\ +\Code{NUMRUN(5)} & : & run number (put in 0 to start with 1) \\ +\Code{NUMPRG} & : & program number (we use 4). +\end{tabular} + +\Note{} The identification which consists of the five quantities \Code{NUMRUN(I)}, \Code{I = 1 to 5}, +is printed at the top left of every output sheet. \Code{NUMRUN(4)} is advanced every time +a new set of data is input, \Code{NUMRUN(5)} is advanced every time a run is made with a +new set of parameters. + +\item[(2)] Then, for every set of run, i.e., for every set of input data: +\begin{itemize} +\item[(a)] \textbf{Controls} \\ % [ad hoc formatting] +\begin{tabular}{rcl} +\Code{KTRL(1) = 0} & : & + Standard potential (possibly with generalized form factors) \\ +\Code{= 1} & : & Gaussian absorption \\ +\Code{= 2} & : & Square well\footnotemark \\ +\Code{KTRL(2) = 0} & : & no $\chi^2$ required \\ +\Code{= 1} & : & $\chi^2$ required \\ +\end{tabular} +\footnotetext{The quantity~$A$ is eventually discarded but it must still be input as $~1/2$ to +avoid overflow in the early part of the program.}% + +%% -----File: 058.png---Folio 53------- + +\begin{tabular}{rcl} +\Code{KTRL(3) = 0} & : & same experimental values as in last set \\ + \Code{= 1} & : & new experimental values coming\footnotemark \\ +\Code{KTRL(4)}$\phantom{=0}$ & : & not used in present program \\ +\Code{KTRL(5) = 0} & : & same angles as in last set \\ + \Code{ = 1} & : & new angles coming \\ +\Code{KTRL(6) = 0} & : & normal output \\ + \Code{ = 1} & : & minimum output \\ +\Code{KTRL(7) = 0} & : & \Code{UCR} -- Standard form \\ + \Code{ = 1} & : & \Code{UCR} -- form~A \\ + \Code{ = 2} & : & \Code{UCR} -- form~B \\ +\Code{KTRL(8) = 0} & : & \Code{UCI} -- Standard form \\ + \Code{ = 1} & : & \Code{UCI} -- form~A \\ + \Code{ = 2} & : & \Code{UCI} -- form~B \\ +\Code{KTRL(9) = 0} & : & \Code{USR} -- derivative standard form \\ + \Code{ = 1} & : & \Code{USR} -- derivative form~A \\ + \Code{ = 2} & : & \Code{USR} -- form~B \\ +\Code{KTRL(10)= 0} & : & \Code{USI} -- derivative standard form \\ + \Code{ = 1} & : & \Code{USI} -- derivative form~A \\ + \Code{ = 2} & : & \Code{USI} -- form~B \\ +\Code{KTRL(11)= 0} & : & do not include coulomb spin-orbit \\ + \Code{ = 1} & : & do include coulomb spin-orbit \\ +\Code{KTRL(12)= 0} & : & do not print out form factors \\ + \Code{ = 1} & : & do print out form factors \\ +\Code{KTRL(13)= 1} & : & check $\rho_\text{max}$ and $\ell_\text{max}$ \\ + \Code{ = 2} & : & check $\rho_\text{max}$ only \\ + \Code{ = 3} & : & check $\ell_\text{max}$ only \\ + \Code{ = 4} & : & do not check $\rho_\text{max}$ nor $\ell_\text{max}$. \\ +\end{tabular} +\footnotetext{\Code{KTRL(3) = 1} also requires \Code{KTRL(2) = 1} for proper operation.} + +\item[(b)] \textbf{Basic data} +\begin{lstlisting} +FMI, FMB, ELAB, ZZ, RC, V, W, RO, A, VS, WS, RG, BG, DV, DW, +DA, DVS, DWS, DBG, HA, PMA, FN1A, FN2A, HB, PMB, FN1B, FN2B, +NVMAX, NWMAX, NAMAX, NVSMAX, NWSMAX, NBGMAX. +\end{lstlisting} + +\item[(c)] \textbf{Integration data} \\ +\Code{NMAX}, \Code{RHOIN(I)} for \Code{I = 1 to NMAX}, +\Code{DRHOIN(I)} for \Code{I = 1 to NMAX - 1}, + +%% -----File: 059.png---Folio 54------- + +\item[(d)] \Code{LMAXM} + +\item[(e)] \textbf{Angles}: \\ % [** PP: Reformat next two items] +if \Code{KTRL(5) = 1} input: +\Code{JMAX}, \Code{THETAD(I)} for \Code{I = 1 to JMAX} + +% [** PP: Item (d) in original] +\item[(f)] \textbf{Experimental data}: \\ +if \Code{KTRL(2) = 1} and \Code{KTRL(3) = 1} input: \\ +\begin{tabular}{rl} +\Code{SGMAEX(I)} & for \Code{I = 1 to JMAX} \\ +\Code{DSGMEX(I)} & for \Code{I = 1 to JMAX} \\ + \Code{POLEX(I)} & for \Code{I = 1 to JMAX} \\ +\Code{DPOLEX(I)} & for \Code{I = 1 to JMAX} \\ +\end{tabular} +\end{itemize}% End of alph labels + +\item[(3)] Final card: \\ +\Code{KTRL(l) = 100}. +\end{itemize}% End of arabic labels + +%% -----File: 060.png---Folio 55------- + + +\Chapter{V.}{Glossary and Description of Symbolic Variables +Appearing in Common and Dimension Statements} + +\begin{center} +\begin{longtable}% +{>{\raggedright}p{1.25in}|>{\raggedright}p{1.75in}|p{2.75in}} +\FORTRAN\ Symbol & \qquad Math.\ Symbol & \qquad Description \\ \hline +\endfirsthead +\FORTRAN\ Symbol & \qquad Math.\ Symbol & \qquad Description \\ \hline +\endhead +\Code{A} & $a$ & +Rounding parameter appearing in standard potential, see \Eqref[abbr]{62} \\ +% +\Code{AR(I)}, \Code{AI(I)} \Code{I = 1 to 75} & +$\Real\{a_i\}$, $\Imag\{a_i\}$ & +1) Real and imaginary parts of the +terms of the auxiliary % [** PP: Typo auxilliary] +series used +to calculate asymptotically % [** PP: Typo asympotically] +the +coulomb functions, see \Eqref[abbr]{116} \\ +% +& $\Real\{A(\theta_i)\}$, $\Imag\{A(\theta_i)\}$ & +2) See \Eqref[abbr]{60} for definition \\ +% +\Code{BR(I)}, \Code{BI(I)} \par\Code{I = 1 to 75} & +$\Real\{b_i\}$, $\Imag\{b_i\}$ +$\Real\{B(\theta_i)\}$, $\Imag\{B(\theta_i)\}$ & +1) Ibid, see \Eqref[abbr]{116} \par +2) See \Eqref[abbr]{60} for definition \\ +% +\Code{BG} & $b$ & Width parameter in Gaussian absorption +see \Eqref[abbr]{82} \\ +% +\Code{CHI2(I)} \Code{I = 1 to 75} & +$\chi^2(\theta_i)$ & $=\chi_\sigma^2(\theta_i) + \chi_P^2(\theta_i)$ \\ +% +\Code{CHI2P(I)} \Code{I = 1 to 75} & +$\chi_P^2(\theta_i)$ & See \Eqref[abbr]{139} \\ +% +\Code{CHI2PT} & $\chi_P^2$ & See \Eqref[abbr]{139} \\ +% +\Code{CHI2S(I)} \Code{I = 1 to 75} & +$\chi_\sigma^2(\theta_i)$ & See \Eqref[abbr]{138} \\ +% +\Code{CHI2ST} & $\chi_\sigma^2$ & See \Eqref[abbr]{138} \\ +% +\Code{CHI2T} & $\chi^2$ & $=\chi_\sigma^2 + \chi_P^2$ \\ +% +\Code{CR1(L)}, \Code{CI1(L)} \Code{for L = 1 to 51} & +$\Real(C_\ell^{+})$, $\Imag(C_\ell^{+})$ & +See \Eqrefs[abbr]{57} and~\Eqno{125} \\ +% +\Code{CR2(L)}, \Code{CI2(L)} & +$\Real(C_\ell^{-})$, $\Imag(C_\ell^{-})$ & +See \Eqrefs[abbr]{57} and~\Eqno{125} \\ +% +\Code{DA}, \Code{DV}, \Code{DW}, \Code{DVS}, \Code{DWS}, \Code{DBG} & & +% [** PP: Removed trailing comma on prev line] +Amount by which $A$, $V$, $W$, $VS$, $WS$, $BG$ +must be incremented for succeeding +runs (these increments may be input +as positive, zero or negative). \\ +% +\Code{DPOLEX(I)} \Code{for I = 1 to 75} & +$\Delta P^\text{ex}(\theta_i)$ & +Standard deviation in the experimental +polarization (must \emph{never} be +input as~$0$) \\ +% +\Code{DRHO(I)} \Code{for I = 1 to 250} & +$\Delta\rho_i$ & Interval of numerical integration +(see description of \hyperref[ref:RHOTB]{subroutine \Code{RHOTB}}) \\ +%% -----File: 061.png---Folio 56------- +\Code{DRHOL} & & +Last interval to be used in the +numerical integration \\ +% +\Code{DRHOIN(I)} \Code{I = 1 to 250} & & +Interval of numerical integration +specified by input for \Code{RHOIN(I)} $< \rho +\leq$ \Code{RHOIN(I+1)} (See description of +\hyperref[ref:RHOTB]{subroutine \Code{RHOTB}}) \\ +% +\Code{DSGMEX(I)} \Code{I = 1 to 75} & +$\Delta\sigma^\text{ex}(\theta_i)$ & +Standard deviation in the experimental +differential elastic scattering +cross section in square +fermis/sterad, (must \emph{never} be +input as~$0$) \\ +% +\Code{ECM} & $E$ & Incident energy in center-of-mass +system (\MeV) \\ +% +\Code{ELAB} & $E_\LAB$ & Incident energy in laboratory system +(\MeV) \\ +% +\Code{EPS1}, \Code{EPS2}, \Code{EPS3} & +$\epsilon_1$, $\epsilon_2$, $\epsilon_3$ & +Error thresholds appearing in various +parts of the calculation of the coulomb +functions. See \Eqrefs[abbr]{155} to \Eqno{158} \\ +% +\Code{EPS4} & $\epsilon_4$ & +Error threshold used in \Code{POT1CH} subroutine, +see \Eqrefs[abbr]{144} to~\Eqno{150} \\ +% +\Code{ETA} & $\eta$ & See \Eqref[abbr]{43} \\ +% +\Code{ETA2} & $\eta^2$ & \\ +% +\Code{EXSGMR(L)}, \Code{EXSGMI(L)} \Code{L = 1 to 51} & +$\Real\{e^{2i\sigma_\ell}\}$, $\Imag\{e^{2i\sigma_\ell}\}$ & +See \Eqref[abbr]{133} \\ +% +\Code{F(L)}, \Code{L = 1 to 52} & +$F_\ell$ & See \Eqref[abbr]{114} and~\Eqno{122} \\ +% +\Code{FBAR(L)}, \Code{L = 1 to 91} & +$F_\ell^{(n)}$ & See \Eqref[abbr]{120} \\ +% +\Code{FCR(I)}, \Code{FCI(I)} \Code{I = 1 to 75} & +$\Real\{f_c(\theta_i)\}$, $\Imag\{f_c(\theta_i)\}$ & +See \Eqref[abbr]{47} \\ +% +\Code{FFCR(I)}, \Code{FFCRM(I)} % [** PP: Typos FFCIM and ``, ,''] +\Code{I = 1 to 250} & +$f_\CR(\rho_i)$ \par $f_\CR(\rho_i + \frac{\Delta\rho_i}{2})$ & +Form factors for the real central part +of the potential at the beginning and +middle of an integration interval (See +\Eqrefs[abbr]{80}, \Eqno{84}, \Eqno{86}, \Eqno{87} and description +of subroutine \Code{PGEN4}) \\ +% +\Code{FFCI(I)}, \Code{FFCIM(I)} \Code{I = 1 to 250} & +$f_\CI(\rho_i)$ \par $f_\CR(\rho_i + \frac{\Delta\rho_i}{2})$ & +As above for the imaginary central part +of the potential (See \Eqrefs[abbr]{80}, \Eqno{82}, +\Eqno{84}, \Eqno{86}, \Eqno{87}, and description of +subroutine \Code{PGEN4}) \\ +%% -----File: 062.png---Folio 57------- +\Code{FFSR(I)}, \Code{FFSRM(I)} \Code{I = 1 to 250} & +$f_\SR(\rho_i)$ $f_\SR(\rho_i + \frac{\Delta\rho_i}{2})$ & +As above for the real spin-orbit part +of the potential (See \Eqrefs[abbr]{81}, \Eqno{85}, +\Eqno{91}, \Eqno{94} and description of subroutine +\Code{PGEN4}) \\ +% +\Code{FFSI(I)}, \Code{FFSIM(I)} \Code{I = 1 to 250} & +$f_\SI(\rho_i)$ $f_\SI(\rho_i + \frac{\Delta\rho_i}{2})$ & +As above for the imaginary spin-orbit +part of the potential (See \Eqrefs[abbr]{81}, +\Eqno{85}, \Eqno{91}, \Eqno{94}, and description of +subroutine \Code{PGEN4}) \\ +% +\Code{FKAY} & $k$ & See \Eqref[abbr]{8} (inverse fermis) \\ +% +\Code{FKAYA} & $ka$ & \\ +% +\Code{FKAYB} & $kb$ & \\ +% +\Code{FMB} & $m_b$ & +Mass number of target nucleus (atomic +units) \\ +% +\Code{FMI} & $m_i$ & +Mass number of incident particle +(atomic units) \\ +% +\Code{FMU} & $\mu$ & +Reduced mass of incident particle +(atomic units (see \Eqref[abbr]{5}) \\ +% +\Code{FN1A}, \Code{FN2A} & $nA_1$, $nA_2$ & +See \Eqref[abbr]{86} and following description \\ +% +\Code{FN1B}, \Code{FN2B} & $nB_1$, $nB_2$ & +See \Eqref[abbr]{87} and following description \\ +% +\Code{FF(L)}, \Code{L = 1 to 51} & $F_\ell'$ & See \Eqref[abbr]{123} \\ +% +\Code{G(L)}, \Code{L = 1 to 52} & $G_\ell$ & +See \Eqref[abbr]{114} and~\Eqno{119} \\ +% +\Code{GP(L)}, \Code{L = 1 to 51} & $G_\ell'$ & +See \Eqref[abbr]{123} \\ +% +\Code{HA}, \Code{HB} & $h_{0A}$, $h_{0B}$ & See \Eqref[abbr]{88} \\ +% +\Code{IDATA} & & +Number of sets of data to be processed +after making use of subroutine \Code{SAVE} \\ +% +\Code{IFIRST} & & +Initial value of~\Code{I}, the subscript +appearing in \Code{RHO(I)} \\ +% +\Code{ILAST} & & +Final value of~\Code{I}, the subscript +appearing in \Code{RHO(I)} \\ +% +\Code{IIN(L)}, \Code{L = 1 to 51} & & +Originally designed to allow input of +any desired value of \Code{IFIRST} for various +\Code{L}'s in order to speed up the numerical +integration. In the present program +the \Code{IIN(L)} are all set equal to~$1$ by +subroutine \Code{INPT4} \\ +%% -----File: 063.png---Folio 58------- +\Code{ISPILL}, \Code{JSPILL} & & +Underflow and overflow indicators used +in conjunction with subroutine \Code{SPILL} \\ +% +\Code{JMAX} & & +Total number of angles input (\Code{JMAX }$\le$\Code{ 75}) \\ +% +\Code{JMAXT} & & +Temporary storage for \Code{JMAX} used after +calling subroutine \Code{SAVE} \\ +% +\Code{KTRL(I)} \Code{I = 1 to 13} & & +Controls used throughout the program +to specify the potential, input and +output type (see description of input +data) \\ +% +\Code{KTRLT(I)} \Code{I = 1 to 13} & & +Temporary storage for \Code{KTRL(I)} used +after calling subroutine \Code{SAVE} \\ +% +\Code{L} & $\ell + 1$ & \\ +% +\Code{LMAX} & $\ell_\text{max} + 1$ & \\ +% +\Code{LMAXM} & $\ell_\text{max}$ & \\ +% +\Code{NA}, \Code{NV}, \Code{NW}, +\Code{NVS}, \Code{NWS}, \Code{NBG} & & +\Code{DO} loop variables used in subroutine +\Code{CTRL4} to specify the number of times +the parameters have been incremented \\ +% +\Code{NAMAX}, \Code{NVMAX}, +\Code{NWMAX}, \Code{NVSMAX}, +\Code{NWSMAX}, \Code{NBGMAX} & & +Total number of incrementations of +the parameters specified as input +data (${} \geq 1$) \\ +% +\Code{NINPUT} & & +\Code{DO} loop variable used after calling +subroutine \Code{SAVE} in order to count the +number of sets of processed input data \\ +% +\Code{NMAX} & & +Total number of input values of \Code{RHOIN(I)} +specified in input \\ +% +\Code{NMAXT} & & +Temporary storage for \Code{NMAX} used after +calling subroutine \Code{SAVE} \\ +% +\Code{NMAXP} & & \Code{= NMAX - 1} \\ +% +\Code{NUMPRG} & & +Program number (see description of input +data)\\ +% +\Code{NUMRUN(I)} \Code{I = 1 to 5} & & +Identification (see description of input +data) \\ +% +\Code{POLEX(I)} \Code{I = 1 to 75} & $P^\text{ex}(\theta_{i})$ & +Experimental value of the polarization \\ +% +\Code{POLTH(I)} \Code{I = 1 to 75} & $P^\text{th}(\theta_{i})$ & +Calculated value of the polarization +See \Eqref[abbr]{35} \\ +%% -----File: 064.png---Folio 59------- +\Code{P(L,J)} \Code{L = 1 to 51} \Code{J = 1 to 75} & +$P_{\ell}(\theta_j)$ & +Legendre polynomial, see \Eqref[abbr]{134} \\ +% +\Code{PP(L,J)} \Code{L = 1 to 50} \Code{J = 1 to 75} & +$P^{(l)}_{\ell}(\theta_j)$ & +Associated Legendre polynomial, see +\Eqref[abbr]{135} \\ +% +\Code{PMA}, \Code{PMB} & % [** PP: Moved next entry into middle column] +$\rho_{m_{A}}/\bar{\rho_{N}}$ and $\rho_{m_{B}}/\bar{\rho_{N}}$ & +These are the +quantities specified +by the input +as they are more +convenient than +\Code{RMA} and \Code{RMB}. \\ +% +\Code{RO} & $R_\text{ON}$ & +Nuclear radius constant (fermis), see +\Eqref[abbr]{63} \\ +% +\Code{RC} & $R_\text{OC}$ & +Charge radius constant (fermis) see +\Eqref[abbr]{66} \\ +% +\Code{RG} & $R_\text{OG}$ & +Gaussian radius constant (fermis) see +\Eqref[abbr]{83} \\ +% +\Code{RHOBC} & $\bar{\rho}_{C}$ & +Value of $\rho$ at which the uniform charge +density ends, see \Eqref[abbr]{74} \\ +% +\Code{RHOBN} & $\bar{\rho}_{N}$ & +Value of $\rho$ at which the standard +potential falls to half of its initial +value, see \Eqref[abbr]{73} \\ +% +\Code{RHOBNG} & $\bar{\rho}_{G}$ & +Value of $\rho$ at which the Gaussian absorption +is centered \\ +% +\Code{RHOIN(I)} \Code{I = 1 to 250} & & +Input values of $\rho$ for which the integration +interval must change from +\Code{DRHOIN(I-1)} to \Code{DRHOIN(I)}. See description +of subroutine \Code{RHOTB}) \\ +% +\Code{ROMAX} & & +Final value of $\rho$ in the numerical +integration \\ +% +\Code{RHO(I)} \Code{I = 1 to 250} & $\rho_{i}$ & +Value of $\rho$ at the $i$-th interval of +integration, see \Eqref[abbr]{14} \\ +% +\Code{RMA}, \Code{RMB} & $\rho_{m_{A}}, \rho_{m_{B}}$ & +Values of $\rho$ at which special form +factors are matched to standard form +factors, see \Eqrefs[abbr]{86} and~\Eqno{87} \\ +% +\Code{SGMAC(I)} \Code{I = 1 to 75} & $\sigma_{c}(\theta_{i})$ & +See \Eqref[abbr]{136} (square fermis/sterad) \\ +% +\Code{SGMAEX(I)} \Code{I = 1 to 75} & $\sigma^\text{ex}(\theta_{i})$ & +Experimental values of the differential +elastic scattering cross section (square +fermis/sterad) \\ +%% -----File: 065.png---Folio 60------- +\Code{SGMATH(I)} \Code{I = 1 to 75} & $\sigma^\text{th}(\theta_1)$ & +Calculated values of the differential +elastic scattering cross section +(square fermis/sterad), see \Eqref[abbr]{34} \\ +% +\Code{SGMRTH} & $\sigma_R$ & +Calculated value of the reaction cross +section (square fermis) see \Eqref[abbr]{132} \\ +% +\Code{SIGMA0} & $\sigma_0$ & See \Eqrefs[abbr]{117} and~\Eqno{118} \\ +% +\Code{SIGMA1} & $\sigma_1$ & See \Eqref[abbr]{117} \\ +% +\Code{SRATIO(I)} \Code{I = 1 to 75} & +$\sigma(\theta_i) / \sigma_c(\theta_i)$ & +Ratio of calculated to Rutherford cross +section \\ +% +\Code{TA}, \Code{TV}, \Code{TW}, \Code{TVS}, +\Code{TWS}, \Code{TBG}, & & +Storage for initial values input for +the parameters \\ +% +\Code{THETAD(I)} \Code{I = 1 to 75} & $\theta_i$ & +Scattering angle in center-of-mass +system (degrees) \\ +% +\Code{THETA(I)} \Code{I = 1 to 75} & $\theta_i$ & +As above (radians) \\ +% +\Code{UCRB(I)}, \Code{UCRM(I)} \Code{I = 1 to 250} & +$U_\CR(\rho_i)$ $U_\CR(\rho_i + \frac{\Delta\rho_i}{2})$ & +$L$-independent part of the real central +potential at the beginning and in the +middle of the $i$-th interval of integration, +see \Eqref[abbr]{98} \\ +% +\Code{UCIB(I)}, \Code{UCIM(I)} \Code{I = 1 to 250} & +$U_\CI(\rho_i)$ $U_\CI(\rho_i + \frac{\Delta\rho_i}{2})$ & +As above for the imaginary central +potential, see \Eqref[abbr]{99} \\ +% +\Code{USRB(I)}, \Code{USRM(I)} \Code{I = 1 to 250} & +$U_\SR(\rho_i)$ $U_\SR(\rho_i + \frac{\Delta\rho_i}{2})$ & +As above for the real spin-orbit +potential, see \Eqref[abbr]{100} \\ +% +\Code{USIB(I)}, \Code{USIM(I)} \Code{I = 1 to 250} & +$U_\SI(\rho_i)$ $U_\SI(\rho_i + \frac{\Delta\rho_i}{2})$ & +As above for the imaginary spin-orbit +potential, see \Eqref[abbr]{101} \\ +% +\Code{V} & $V$ & Depth of real central potential (\MeV) \\ +% +\Code{W} & $W$ & Depth of imaginary central potential (\MeV) \\ +% +\Code{VS} & $V_S$ & Real part of spin-orbit potential depth (\MeV) \\ +% +\Code{WS} & $W_S$ & Imaginary part of spin-orbit potential depth (\MeV) \\ +%% -----File: 066.png---Folio 61------- +\Code{XC1}, \Code{XCP1} & +$x_{\ell}^{+}(\rho)$, $\dot{x}_{\ell}^{+}(\rho)$ & +Real part of the radial (unnormalized) +wave function and its first derivative +for the case $L + 1/2$ \\ +% +\Code{YC1}, \Code{YCP1} & +$y_{\ell}^{+}(\rho)$, $\dot{y}_{\ell}^{+}(\rho)$ & +As above for the imaginary part and the case $L + 1/2$ \\ +% +\Code{XD1}, \Code{XDP1} & +$x_{\ell}^{-}(\rho)$, $\dot{x}_{\ell}^{-}(\rho)$ & +As above for the real part and the case $L - 1/2$ \\ +% +\Code{YD1}, \Code{YDP1} & +$y_{\ell}^{-}(\rho)$, $\dot{y}_{\ell}^{-}(\rho)$ & +As above for the imaginary part and the case $L - 1/2$ \\ +% +\Code{X1(L)}, \Code{X1P(L)} \Code{L = 1 to 51} & +$x_{\ell}^{+}(\rho_\text{max})$, $\dot{x}_{\ell}^{+}(\rho_\text{max})$ & +Real part of the radial (unnormalized) +wave function and its first derivative +for the case $L + 1/2$ at the end of a +numerical integration \\ +% +\Code{Y1(L)}, \Code{Y1P(L)} \Code{L = 1 to 51} & +$y_{\ell}^{+}(\rho_\text{max})$, $\dot{y}_{\ell}^{+}(\rho_\text{max})$ & +As above for the imaginary part and the case $L + 1/2$ \\ +% +\Code{X2(L)}, \Code{X2P(L)} \Code{L = 1 to 51} & +$x_{\ell}^{-}(\rho_\text{max})$, $\dot{x}_{\ell}^{-}(\rho_\text{max})$ & +As above for the real part and the case $L - 1/2$ \\ +% +\Code{Y2(L)}, \Code{Y2P(L)} \Code{L = 1 to 51} & +$y_{\ell}^{-}(\rho_\text{max})$, $\dot{y}_{\ell}^{-}(\rho_\text{max})$ & +As above for the imaginary part and the case $L - 1/2$ \\ +% +\Code{ZZ} & $ZZ'$ & +Product of the atomic numbers of the target +nucleus and the incident particle. \\ +\end{longtable} +\end{center} + +%% -----File: 067.png---Folio 62------- + + +\Chapter{VI.}{Symbolic Listing of the Program} + +\begin{lstlisting} + MAIN ROUTINE - SCAT 4 + COMMON A,AR,AI, + 1BR,BI,BG, + 2CHI2,CHI2P,CHI2PT,CHI2S,CHI2ST,CHI2T,CR1,CI1,CR2,CI2, + 3DPOLEX,DSGMEX,DRHO,DRHOIN,DRHOL,DV,DW,DA,DVS,DWS,DBG, + 4ECM,ELAB,EPS1,EPS2,EPS3,EPS4,ETA,ETA2,EXSGMR,EXSGMI, + 5F,FBAR,FCR,FCI,FFCR,FFCI,FFCRM,FFCIM,FFSR,FFSI,FFSRM,FFSIM, + 6FKAY,FMB,FMI,FMU,FN1A,FN2A,FN1B,FN2B,FP,FKAYA,FKAYB, + 7G,GP, + 8HA,HB, + 9IDATA,IFIRST,IIN,ILAST,ISPILL + COMMON JMAX,JMAXT,JSPILL, + 1KTRL,KTRLT, + 2L,LMAX,LMAXM, + 3NMAX,NMAXP,NMAXT,NINPUT,NUMRUN,NUMPRG,NVMAX,NWMAX,NAMAX,NVSMAX, + 4NWSMAX,NV,NW,NA,NVS,NWS,NBGMAX,NBG, + 5P,PP,POLEX,POLTH,PMA,PMB, + 6RC,RO,RHO,RHOBC,RHOBN,RHOIN,RHOMAX,RMA,RMB,RG,RHOBNG, + 7SGMAC,SGMAEX,SGMATH,SGMRTH,SIGMA0,SIGMA1,SRATIO, + 8THETA,THETAD,TV,TW,TA,TVS,TWS,TBG, + 9UCRB,UCIB,UCRM,UCIM,USRB,USIB,USRM,USIM + COMMON V,VS, + 1W,WS, + 2X1,X2,X1P,X2P,XC1,XCP1,XD1,XDP1, + 3Y1,Y2,Y1P,Y2P,YC1,YCP1,YD1,YDP1, + 4ZZ + DIMENSION AR(75),AI(75), + 1BR(75),BI(75), + 2CHI2(75),CHI2P(75),CHI2S(75),CR1(51),CI1(51),CR2(51),CI2(51), + 3DPOLEX(75),DSGMEX(75),DRHO(250),DRHOIN(250), + 4EXSGMR(51),EXSGMI(51), + 5F(52),FBAR(91),FCR(75),FCI(75),FFCR(250),FFCI(250),FFCRM(250), + 6FFCIM(250),FFSR(250),FFSI(250),FFSRM(250),FFSIM(250),FP(51), + 7G(52),GP(51), + 8IIN(51), + 9KTRL(13),KTRLT(13) + DIMENSION NUMRUN(5), + 1P(51,75),PP(50,75),POLEX(75),POLTH(75), + 2RHO(250),RHOIN(250), + 3SGMAC(75),SGMAEX(75),SGMATH(75),SRATIO(75), + 4THETA(75),THETAD(75), + 5UCRB(250),UCIB(250),UCRM(250),UCIM(250),USRB(250),USIB(250), + 6USRM(250),USIM(250), + 7X1(51),X2(51),X1P(51),X2P(51), + 8Y1(51),Y2(51),Y1P(51),Y2P(51) + CALL SPILL(JSPILL,ISPILL,0.,0.) + EPS1= 0.00001 + EPS2= 0.00001 + EPS3= 0.00001 + EPS4=0.001 +\end{lstlisting} +%% -----File: 068.png---Folio 63------- +\begin{lstlisting} + READ INPUT TAPE 7,10,(NUMRUN(I)),I=1,5) + READ INPUT TAPE 7,10,NUMPRG + 10 FORMAT(I5) + CALL CTRL4 + GO +\end{lstlisting} +\clearpage + +%% -----File: 069.png---Folio 64------- + +\begin{lstlisting} + SUBROUTINE CTRL4 + 3 NUMRUN(4)=NUMRUN(4)+1 + NUMRUN(5)=0 + CALL INPT4 + CALL POT1CH + 35 IF(KTRL(5)) 80,81,80 + 80 CALL POP1 + 81 CALL SIGZRO + CALL FSUBC + CALL EXSGML + DO 20 NV=1,NVMAX + IF (NV-1) 102,101,102 + 101 V=TV + GO TO 103 + 102 V=V+DV + 103 DO 20 NW=1,NWMAX + IF (NW-1) 105,104,105 + 104 W=TW + GO TO 109 + 105 W=W+DW + 109 DO 20 NA=1,NAMAX + IF (NA-1) 111,110,111 + 110 A=TA + GO TO 112 + 111 A=A+DA + 112 DO 20 NVS=1,NVSMAX + IF (NVS-1) 114,113,114 + 113 VS=TVS + GO TO 115 + 114 VS=VS+DVS + 115 DO 20 NWS=1,NWSMAX + IF (NWS-1) 117,116,117 + 116 WS=TWS + GO TO 118 + 117 WS=WS+DWS + 118 DO 20 NBG=1,NBGMAX + IF(NBG-1) 120,119,120 + 119 BG=TBG + GO TO 121 + 120 BG=BG+DBG + 121 IF (SENSE SWITCH 1) 26,27 + 26 REWIND 7 + CALL SAVE(8) + READ INPUT TAPE 7,50,(LGAR,I=1,6) + IDATA= NUMRUN(4) + DO 66 NINPUT=1, IDATA + READ INPUT TAPE 7,50,(KTRLT(I),I=1,13) + 50 FORMAT (I5) + 51 FORMAT (E15.9) + READ INPUT TAPE 7,51,(GAR,I=1,27) +\end{lstlisting} +%% -----File: 070.png---Folio 65------- +\begin{lstlisting} + READ INPUT TAPE 7,50,(LGAR,I=1,6), NMAXT + NT=2*NMAXT-1 + READ INPUT TAPE 7,51,(GAR,I=1,NT) + READ INPUT TAPE 7,51,LGAR + IF (KTRLT(5)) 71,70,71 + 71 READ INPUT TAPE 7,50, JMAXT + READ INPUT TAPE 7,51,(GAR,I=1,JMAXT) + 70 IF (KTRLT(2)) 61,66,61 + 61 IF(KTRLT(3)) 63,66,63 + 63 NT=4*JMAXT + READ INPUT TAPE 7,51,(GAR,I=1,NT) + 66 CONTINUE + 27 NUMRUN(5)= NUMRUN(5)+1 + CALL RHOTB + CALL COULFN + CALL RMXINC + CALL PGEN4 + CALL INTCTR + CALL CSUBL + CALL AB + CALL SGSGCP + CALL SIGMAR + IF (KTRL(2)) 33,100,33 + 33 CALL CHISQ + 100 CALL OUTPT4 + 20 CONTINUE + GO TO 3 +\end{lstlisting} +\clearpage + +%% -----File: 071.png---Folio 66------- + +\begin{lstlisting} + SUBROUTINE INPT4 + IF DIVIDE CHECK 100,110 + 100 WRITE OUTPUT TAPE 6,101 + 101 FORMAT(59H DIVIDE CHECK TRIGGER FOUND ON AT START OF INPT4 SUBROUT + 1INE) + CALL LEAVE + STOP + 110 ISPILL=0 + JSPILL=0 + READ INPUT TAPE 7,10,KTRL(1) + IF (KTRL(1)-100) 150,151,151 + 151 CALL EXIT + STOP + 150 READ INPUT TAPE 7,10,(KTRL(I),I=2,13) + 10 FORMAT (I5) + READ INPUT TAPE 7,12,FMI,FMB,ELAB,ZZ,RC,V,W,RO,A,VS,WS,RG,BG, + 1DV,DW,DA,DVS,DWS,DBG + READ INPUT TAPE 7,12,HA,PMA,FN1A,FN2A,HB,PMB,FN1B,FN2B + READ INPUT TAPE 7,10,NVMAX,NWMAX,NAMAX,NVSMAX,NWSMAX,NBGMAX + 12 FORMAT (E15.9) + TV= V + TW=W + TA=A + TVS=VS + TWS=WS + TBG=BG + READ INPUT TAPE 7,10,NMAX + NMAXP=NMAX-1 + READ INPUT TAPE 7,12,(RHOIN(I),I=1,NMAX),(DRHOIN(I),I=1,NMAXP) + CO2=FMI+FMB + FMU=(FMI*FMB)/CO2 + ECM=ELAB*(FMB/CO2) + FKAY= .2195376*SQRTF(FMU*ECM) + T=FKAY*(FMB**.333333333) + RHOBN= T*RO + RHOBNG=T*RG + RMA=PMA*RHOBN + RMB=PMB*RHOBN + RHOBC= T*RC + ETA= .15805086*ZZ*SQRTF(FMI/ELAB) + IF DIVIDE CHECK 200,47 + 200 WRITE OUTPUT TAPE 6,201 + 201 FORMAT(43H INPUT DIVISOR WAS ZERO IN INPT4 SUBROUTINE) + CALL LEAVE + STOP + 47 READ INPUT TAPE 7,10,LMAXM + LMAX=LMAXM+1 + DO 147 J=1,LMAX + 147 IIN(J)=1 + IF (KTRL(5)) 48,50,48 +\end{lstlisting} +%% -----File: 072.png---Folio 67------- +\begin{lstlisting} + 48 READ INPUT TAPE 7,10,JMAX + READ INPUT TAPE 7,12,(THETAD(I),I=1,JMAX) + DO 49 I=1,JMAX + 49 THETA(I)= 0.01745329252*THETAD(I) + 50 IF(KTRL(2)) 51,207,51 + 51 IF(KTRL(3)) 53,207,53 + 53 READ INPUT TAPE 7,12,(SGMAEX(I),I=1,JMAX),(DSGMEX(I),I=1,JMAX), + 1(POLEX(I),I=1,JMAX),(DPOLEX(I),I=1,JMAX) + 207 IF(ISPILL)202,204,202 + 202 WRITE OUTPUT TAPE 6,203,ISPILL + 203 FORMAT(23H UNDERFLOW OCCURRED AT I5,20H IN INPT4 SUBROUTINE) + 204 IF(JSPILL)205,210,205 + 205 WRITE OUTPUT TAPE 6,206,JSPILL + 206 FORMAT(22H OVERFLOW OCCURRED AT I5,20H IN INPT4 SUBROUTINE) + CALL LEAVE + STOP + 210 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 073.png---Folio 68------- + +\begin{lstlisting} + SUBROUTINE POT1CH + IF DIVIDE CHECK 30,31 + 30 WRITE OUTPUT TAPE 6,130 + 130 FORMAT (60H DIVIDE CHECK TRIGGER FOUND ON AT START OF POT1CH SUBRO + 1UTINE) + CALL LEAVE + STOP + 31 ISPILL=0 + JSPILL=0 + IKTRL=KTRL(13) + NMAX=NMAX + NMAXP= NMAX-1 + AMAX=NAMAX-1 + TTA=MAX1F(A,((AMAX*DA)+A)) + VMAX=NVMAX-1 + TTV=MAX1F(V,((VMAX*DV)+V)) + WMAX=NWMAX-1 + TTW=MAX1F(W,((WMAX*DW)+W)) + VSWAX=NVSMAX-1 + TTVS=MAX1F(VS,((VSMAX*DVS)+VS)) + WSMAX=NWSMAX-1 + TTWS=MAX1F(WS,((WSMAX*DWS)+WS)) + BGMAX=NBGMAX-1 + TTBG=MAX1F(BG,((BGMAX*DBG)+BG)) + FKAYA=FKAY*TTA + FKAYB=FKAY*TTBG + T2=SQRTF(TTV**2+TTW**2)/ECM + T7=TTV/ECM + T8=TTW/ECM + IF DIVIDE CHECK 60,61 + 60 WRITE OUTPUT TAPE 6,160 + 160 FORMAT(26H ECM IS ZERO IN POT1CH SUB) + CALL LEAVE + STOP + 61 GO TO (3,3,111,15),IKTRL + 3 IF(KTRL(1)-2) 24,25,24 + 25 IF(RHOIN(NMAX)-RHOBN) 10,10,8 + 24 T1=1./(1.+EXPF((RHOIN(NMAX)-RHOBN)/FKAYA)) + IF DIVIDE CHECK 50,28 + 50 WRITE OUTPUT TAPE 6,150 + 150 FORMAT(28H FKAYA IS ZERO IN POT1CH SUB) + CALL LEAVE + STOP + 28 IF(KTRL(1)-1) 40,41,40 + 40 T3= T2*T1 + GO TO 43 + 41 T3=T7*T1 + 43 IF(T3-EPS4) 42,42,10 + 10 WRITE OUTPUT TAPE 6,100, RHOIN(NMAX),DRHOIN(NMAXP) + 100 FORMAT(13H RHOIN(NMAX)=E16.9,2H+ E16.9,46H RHOIN(NMAX) IS TOO SMAL +\end{lstlisting} +%% -----File: 074.png---Folio 69------- +\begin{lstlisting} + 1L IN NUCLEAR POTENTIAL) + RHOIN(NMAX)= RHOIN(NMAX)+DRHOIN(NMAXP) + GO TO 3 + 42 IF(KTRL(1)-1) 8,6,8 + 6 T11= EXPF(-((RHOIN(NMAX)-RHOBNG)/FKAYB)**2) + IF((T8*T11)-EPS4) 8,8,7 + 7 WRITE OUTPUT TAPE 6,103,RHOIN(NMAX),DRHOIN(MMAXP) + 103 FORMAT(13H RHOIN(NMAX)=E16.9,2H+ E16.9,46H RHOIN(NMAX) IS TOO SMAL + 1L IN NUCLEAR POTENTIAL) + RHOIN(NMAX)= RHOIN(NMAX)+DRHOIN(NMAXP) + GO TO 6 + 8 GO TO(111,15),IKTRL + 111 FLMAX=LMAXM + IF(KTRL(1)-2) 29,300,29 + 300 IF(FLMAX-(RHOBN+3.)) 12,12,15 + 29 T4=1./(1.+EXPF((FLMAX-RHOBN)/FKAYA)) + IF(KTRL(1)-1) 33,32,33 + 33 T5= T2*T4 + GO TO 310 + 32 T5=T7*T4 + 310 IF(T5-EPS4)13,13,12 + 12 WRITE OUTPUT TAPE 6,101,LMAXM + 101 FORMAT (7H LMAXM=I5,3H +1,45H LMAXM TOO SMALL BECAUSE OF CENTRAL P + 1OTENTIAL) + LMAX= LMAX+1 + LMAXM= LMAXM+1 + IIN(LMAX)=1 + GO TO 111 + 13 IF(KTRL(1)-1) 17,19,17 + 19 T4=EXPF(-((FLMAX-RHOBNG)/FKAYB)**2) + IF((T8*T4)-EPS4) 17,17,20 + 20 WRITE OUTPUT TAPE 6,200,LMAXM + 200 FORMAT (7H LMAXM=I5,3H +1,45H LMAXM TOO SMALL BECAUSE OF CENTRAL P + 1OTENTIAL) + LMAX=LMAX+1 + LMAXM=LMAXM+1 + IIN(LMAX)=1 + GO TO 19 + 17 T2=SQRTF(TTVS**2+TTWS**2)/ECM + 18 FLMAX=LMAXM + T4=1./(1.+EXPF((FLMAX-RHOBN)/FKAYA)) + 38 T6=2.*T2*T4*(FKAYW**2) + IF(T6-EPS4) 15,15,14 + 14 WRITE OUTPUT TAPE 6,102, LMAXM + 102 FORMAT (7H LMAXM=I5,3H +1,48H LMAXM TOO SMALL BECAUSE OF SPIN ORB + 1IT POTENTIAL) + LMAX= LMAX+1 + LMAXM= LMAXM+1 + IIN(LMAX)=1 + GO TO 18 +\end{lstlisting} +%% -----File: 075.png---Folio 70------- +\begin{lstlisting} + 15 IF(ISPILL)202,204,202 + 202 WRITE OUTPUT TAPE 6,203,ISPILL + 203 FORMAT(23H UNDERFLOW OCCURRED AT I5,14H IN POT1CH SUB) + 204 IF(JSPILL)205,210,205 + 205 WRITE OUTPUT TAPE 6,206,JSPILL + 206 FORMAT(22H OVERFLOW OCCURRED AT I5,14H IN POT1CH SUB) + CALL LEAVE + STOP + 210 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 076.png---Folio 71------- + +\begin{lstlisting} + SUBROUTINE POP1 + IF DIVIDE CHECK 1,2 + 1 WRITE OUTPUT TAPE 6,101 + 101 FORMAT (58H DIVIDE CHECK TRIGGER FOUND ON AT START OF POP1 SUBROUT + 1INE) + CALL LEAVE + STOP + 2 ISPILL=0 + JSPILL=0 + LMAXP=LWAX+1 + DO 20 J=1,JMAX + SI2=1./SINF(THETA(J)) + IF DIVIDE CHECK 3,4 + 3 WRITE OUTPUT TAPE 6,103, J + 103 FORMAT (71H DIVISOR SINF THETA IS ZERO IN FIRST DIVISION OF POP1 S + 1UBROUTINE FOR J=I3) + CALL LEAVE + STOP + 4 CO=COSF(THETA(J)) + P(1,J)=1.0 + P(2,J)=CO + PP(1,J)=0.0 + TWOLP1=3. + FL=1. + DO 20 L=1,LMAXP + TL=FL+1. + P(L+2,J)=(TWOLP1*CO*P(L+1,J)-FL*P(L,J))/TL + PP(L+1,J)=TL*SI2*(CO*P(L+1,J)-P(L+2,J)) + TWOLP1=TWOLP1+2. + 20 FL=TL + IF (ISPILL) 30,31,30 + 30 WRITE OUTPUT TAPE 6,130, ISPILL + 130 FORMAT(23H UNDERFLOW OCCURRED AT I6,19H IN POP1 SUBROUTINE) + 31 IF (JSPILL) 32,33,32 + 32 WRITE OUTPUT TAPE 6,132, JSPILL + 132 FORMAT (22H OVERFLOW OCCURRED AT I6,19H IN POP1 SUBROUTINE) + CALL LEAVE + STOP + 33 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 077.png---Folio 72------- + +\begin{lstlisting} + SUBROUTINE SIGZRO + IF DIVIDE CHECK 5,6 + 5 WRITE OUTPUT TAPE 6,105 + 105 FORMAT (60H DIVIDE CHECK TRIGGER FOUND ON AT START OF SIGZRO SUBRO + 1UTINE) + CALL LEAVE + STOP + 6 ISPILL = 0 + JSPILL = 0 + SIGMA0=-(ETA/(12.*(ETA**2+16.)))*(1.+(ETA**2-48.)/(30.*((ETA**2+16 + 1.)**2))+(ETA**4-160.*(ETA**2)+1280.)/(((16.+ETA**2)**4)*105.)) + SIGMA0=SIGMA0-ETA+(ETA/2.)*LOGF(ETA**2+16.)+((7./2.)*ATANF(ETA/4.) + 1)-(ATANF(ETA)+ATANF(ETA/2.)+ATANF(ETA/3.)) + SIGMA1=SIGMA0+ATANF(ETA) + 15 IF (ISPILL) 30,31,30 + 30 WRITE OUTPUT TAPE 6,130,ISPILL + 130 FORMAT (23H UNDERFLOW OCCURRED AT I6,21H IN SIGZRO SUBROUTINE) + 31 IF (JSPILL) 32,11,32 + 32 WRITE OUTPUT TAPE 6,132,JSPILL + 132 FORMAT (22H OVERFLOW OCCURRED AT I6,21H IN SIGZRO SUBROUTINE) + CALL LEAVE + STOP + 11 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 078.png---Folio 73------- + +\begin{lstlisting} + SUBROUTINE FSUBC + IF DIVIDE CHECK 20,21 + 20 WRITE OUTPUT TAPE 6,120 + 120 FORMAT (53H DIVIDE TRIGGER FOUND ON AT START OF FSUBC SUBROUTINE) + CALL LEAVE + STOP + 21 ISPILL=0 + JSPILL=0 + DO 10 J=1,JMAX + SN=(SINF(THETA(J)/2.0))**2 + FLN=ETA*(LOGF(SN))-2.0*SIGMA0 + FNO=ETA/(2.0*FKAY*(SN)) + IF DIVIDE CHECK 22,23 + 22 WRITE OUTPUT TAPE 6,122,J + 122 FORMAT (23H DIVISOR IS ZERO FOR J=I3,20H IN FSUBC SUBROUTINE) + CALL LEAVE + STOP + 23 FCR(J)=(-FNO*COSF(FLN)) + 10 FCI(J)=(FNO*SINF(FLN)) + IF (ISPILL) 24,25,24 + 24 WRITE OUTPUT TAPE 6,124, ISPILL + 124 FORMAT (23H UNDERFLOW OCCURRED AT I6,20H IN FSUBC SUBROUTINE) + 25 IF (JSPILL) 26,27,26 + 26 WRITE OUTPUT TAPE 6,126, JSPILL + 126 FORMAT (22H OVERFLOW OCCURRED AT I6,20H IN FSUBC SUBROUTINE) + CALL LEAVE + STOP + 27 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 079.png---Folio 74------- + +\begin{lstlisting} + SUBROUTINE EXSGML + IF DIVIDE CHECK 10,11 + 10 WRITE OUTPUT TAPE 6,110 + 110 FORMAT (60H DIVIDE CHECK TRIGGER FOUND ON AT START OF EXSGML SUBRO + 1UTINE) + CALL LEAVE + STOP + 11 ISPILL=0 + JSPILL=0 + 1 FL=O. + EXSGMR(1)=COSF(2.0*SIGMA0) + EXSGMI(1)=SINF(2.0*SIGMA0) + ETA2=ETA**2 + ETA2A=2.0*ETA + DO 20 L=2,LMAX + FL=FL+1.0 + TER0=FL**2 + TER1=TER0+ETA2 + TER2=(TER0-ETA2)/TER1 + TER3=(ETA2A*FL)/TER1 + IF DIVIDE CHECK 12,13 + 12 WRITE OUTPUT TAPE 6,112,L + 112 FORMAT (44H DIVISOR IS ZERO IN EXSGML SUBROUTINE FOR L=I3) + CALL LEAVE + STOP + 13 EXSGMR(L)=(TER2*EXSGMR(L-1))-(TER3*EXSGMI(L-1)) + 20 EXSGMI(L)=(TER2*EXSGMI(L-1))+(TER3*EXSGMR(L-1)) + IF (ISPILL) 14,15,14 + 14 WRITE OUTPUT TAPE 6,114, ISPILL + 114 FORMAT(23H UNDERFLOW OCCURRED AT I6,21H IN EXSGML SUBROUTINE) + 15 IF (JSPILL) 16,17,16 + 16 WRITE OUTPUT TAPE 6,116,JSPILL + 116 FORMAT(22H OVERFLOW OCCURRED AT I6,21H IN EXSGML SUBROUTINE) + CALL LEAVE + STOP + 17 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 080.png---Folio 75------- + +\begin{lstlisting} + SUBROUTINE RHOTB + DRHO(1)=DRHOIN(1) + RHO(1)=RHOIN(1) + N=1 + I=1 + 20 RHO(I+1)=RHO(I)+DRHOIN(N) + IF (RHO(I+1)-RHOIN(NMAX))30,50,70 + 30 IF(ABSF(RHO(I+1)-RHOIN(N+1))-.5*DRHOIN(N)) 35,35,40 + 35 N=XMINOF(N+1,NMAX-1) + 40 DRHO(I+1)=DRHOIN(N) + I=I+1 + GO TO 20 + 50 ILAST=I+1 + 60 RHO(ILAST)=RHOIN(NMAX) + DRHO(ILAST-1)=RHO(ILAST)-RHO(ILAST-1) + RHOMAX=RHOIN(NMAX) + DRHOL=DRHOIN(NMAX-1) + IF(ISPILL) 80,81,80 + 80 WRITE OUTPUT TAPE 6,180,ISPILL + 180 FORMAT(23H UNDERFLOW OCCURRED AT I6,21H IN RHOTB SUBROUTINE) + 81 IF(JSPILL)82,83,82 + 82 WRITE OUTPUT TAPE 6,182,JSPILL + 182 FORMAT(22H OVERFLOW OCCURRED AT I6,21H IN RHOTB SUBROUTINE) + CALL LEAVE + STOP + 83 RETURN + 70 IF((RHO(I+1)-RHOIN(NMAX))-.5*DRHOIN(N))50,50,75 + 75 ILAST=I + GO TO 60 +\end{lstlisting} +\clearpage + +%% -----File: 081.png---Folio 76------- + +\begin{lstlisting} + SUBROUTINE COULFN + IF DIVIDE CHECK 50,51 + 50 WRITE OUTPUT TAPE 6,150 + 150 FORMAT (60H DIVIDE CHECK TRIGGER FOUND ON AT START OF COULFN SUBRO + 1UTINE) + CALL LEAVE + STOP + 51 ISPILL=0 + JSPILL=0 + IKTRL=KTRL(13) + LMAX=LMAXM+1 + ETA2=ETA**2 + SQ=SQRTF(1.+ETA2) + 1 IJ = 1 + AR(1)=-ETA + AI(1)=0. + AR(2)=-.5*ETA2 + AI(2)=.5*ETA + 2 SI=0. + SR=0. + PR= RHOMAX + DO 10 K=2,49 + T= PR*FLOATF(1-K) + TR=AR(K)/T + TI=AI(K)/T + IF DIVIDE CHECK 52,53 + 52 WRITE OUTPUT TAPE 6,152 + 152 FORMAT(57H DIVISOR T IS ZERO IN FIRST DIVISION OF COULFN SUBROUTIN + 1E) + CALL LEAVE + STOP + 53 SQN=TR**2+TI**2 + IF(K-2) 4,4,3 + 3 IF(SQN-SQO) 4,4,11 + 4 TR=SR+TR + TI=SI+TI + IF(TR-SR) 6,5,6 + 5 IF(TI-SI) 6,13,6 + 6 SR=TR + SI=TI + AR(K+1)=0. + AI(K+1)=0. + KP=K/2 + DO 7 M=1,KP + KM=K+1-M + AR(K+1)=AR(K+1)-AR(M)*AR(KM)+AI(W)*AI(KM) + AI(K+1)=AI(K+1)-AI(KM)*AR(M)-AI(M)*AR(KM) + IF(K-2*KP) 8,9,8 + AR(K+1)=AR(K+1)-.5*(AR(KP+1)**2-AI(KP+1)**2) + AI(K+1)=AI(K+1)-AR(KP+1)*AI(KP+1) +\end{lstlisting} +%% -----File: 082.png---Folio 77------- +\begin{lstlisting} + 9 FK=.5*FLOATF(K) + AI(K+1)=AI(K+1)-FK*AR(K) + AR(K+1)=AR(K+1)+FK*AI(K) + PR= PR*RHOMAX + 10 SQO=SQN + GO TO 101 + 11 T=SR**2+SI**2 + IF(T) 105,105,12 + 12 IF(ABSF(SQO/T)-EPS3) 13,13,106 + 13 GO TO (14,15),IJ + 14 PAR=RHOMAX-ETA*LOGF(2.*RHOMAX) + PHI0R=PAR+SIGMA0+SR + PHI0I=SI + AR(2)=-1.+AR(2) + IJ=2 + GO TO 2 + 15 PHI1R=PAR+SIGMA1-1.570796325+SR + PHI1I=SI + 25 T1=EXPF(-PHI0I) + T2=EXPF(-PHI1I) + G(1)=T1*COSF(PHI0R) + G(2)=T2*COSF(PHI1R) + F1=T1*SINF(PHI0R) + F2=T2*SINF(PHI1R) + IF(ABSF(F1*G(2)-F2*G(1)-1./SQ)-EPS1) 31,31,102 + 31 IDEC=11 + 32 I=LMAX+IDEC + FBAR(I)=.1 + FBAR(I+1)=0. + LIMIT=LMAXM+IDEC + FL=LMAX+11 + T1=SQRTF((FL+1.)**2+ETA2) + IF(JSPILL) 139,133,139 + 139 WRITE OUTPUT TAPE 6,1390,JSPILL + 1390 FORMAT(23H OVERFLOW2 OCCURRED AT I6,21H IN COULFN SUBROUTINE) + CALL LEAVE + STOP + 133 DO 33 I=1,LIMIT + L=LMAX+IDEC-I + FL=L + T2=SQRTF(FL**2+ETA2) + FBAR(L)=((2.*FL+1.)*(ETA+FL*(FL+1.)/RHOMAX)*FBAR(L+l)-FL*T1*FBAR(L + 1+2))/((FL+1.)*T2) + IF DIVIDE CHECK 54,600 + 54 WRITE OUTPUT TAPE 6,154 + 154 FORMAT(56H DIVISOR IS ZERO IN SECOND DIVISION OF COULFN SUBROUTINE + 1) + CALL LEAVE + STOP + 600 IF(JSPILL) 601,33,601 +\end{lstlisting} +%% -----File: 083.png---Folio 78------- +\begin{lstlisting} + 601 WRITE OUTPUT TAPE 6,1601,JSPILL + 1601 FORMAT(22H OVERFLOW OCCURRED AT I6,21H IN COULFN SUBROUTINE,24H MU + 1LTIPLY FBAR(I) BY 0.1) + K=LMAX+IDEC + FBAR(K)=FBAR(K)*0.1 + JSPILL=0 + GO TO 133 + 33 T1=T2 + ALPHA=1./((FBAR(1)*G(2)-FBAR(2)*G(1))*SQ) + IF DIVIDE CHECK 55,43 + 55 WRITE OUTPUT TAPE 6,155 + 155 FORMAT (55H DIVISOR IS ZERO IN THIRD DIVISION OF COULFN SUBROUTINE + 1) + CALL LEAVE + STOP + 43 LMAXP=LMAX+1 + DO 34 I=1,LMAXP + 34 FBAR(I)=ALPHA*FBAR(I) + IF(IDEC-11) 371,35,371 + 371 IF(ABSF(F1/FBAR(1)-1.)-EPS2) 37,37,35 + 35 DO 36 I=1,LMAXP + 36 F(I)=FBAR(I) + IDEC=IDEC+5 + IF (IDEC-40) 32,32,103 + 37 DO 38 I=1,LMAXP + IF(ABSF(F(I)/FBAR(I)-1.)-EPS2) 44,44,35 + 44 IF DIVIDE CHECK 56,38 + 56 WRITE OUTPUT TAPE 6,156,L,I + 156 FORMAT(74H DIVISOR FBAR(I)-1. IS ZERO IN FOURTH DIVISION OF COULFN + 1 SUBROUTINE FOR L=I3,7H AND I=I3) + CALL LEAVE + STOP + 38 CONTINUE + DO 381 I=1,MAXP + 381 F(I)=FBAR(I) + 382 T1=SQ + DO 40 L=1,LMAX + FL=L + T2=SQRTF((FL+1.)**2+ETA2) + G(L+2)=((2.*FL+1.)*(ETA+FL*(FL+1.)/RHOWAX)*G(L+1)-(FL+1.)*T1*G(L)) + 1/(FL*T2) + TS=FL/T1 + IF DIVIDE CHECK 57,45 + 57 WRITE OUTPUT TAPE 6,157 + 157 FORMAT(58H DIVISOR T1 IS ZERO IN FIFTH DIVISION OF COULFN SUBROUTI + 1NE) + CALL LEAVE + STOP + 45 IF(ABSF(F(L)*G(L+1)-F(L+1)*G(L)-TS)-EPS1) 40,40,104 + 40 T1=T2 +\end{lstlisting} +%% -----File: 084.png---Folio 79------- +\begin{lstlisting} + 41 DO 42 L=1,LMAX + FL=L + T=FL**2 + T1=T/RHOMAX+ETA + IF DIVIDE CHECK 58,46 + 58 WRITE OUTPUT TAPE 6,158 + 158 FORMAT (62H DIVISOR RHOMAX IS ZERO IN SIXTH DIVISION OF COULFN SUB + 1ROUTINE) + CALL LEAVE + STOP + 46 T2=SQRTF(T+ETA2) + FP(L)=(T1*F(L)-T2*F(L+1))/FL + 42 GP(L)=(T1*G(L)-T2*G(L+1))/FL + IF DIVIDE CHECK 59,47 + 59 WRITE OUTPUT TAPE 6,159 + 159 FORMAT(60H DIVISOR FL IS ZERO IN SEVENTH DIVISION OF COULFN SUBROU + 1TINE) + CALL LEAVE + STOP + 47 IF(ISPILL) 60,61,60 + 60 WRITE OUTPUT TAPE 6,160,ISPILL + 160 FORMAT(23H UNDERFLOW OCCURRED AT I6,21H IN COULFN SUBROUTINE) + 61 IF(JSPILL) 62,63,62 + 62 WRITE OUTPUT TAPE 6,162,JSPILL + 162 FORMAT(22H OVERFLOW OCCURRED AT I6,21H IN COULFN SUBROUTINE) + CALL LEAVE + STOP + 63 RETURN + 101 WRITE OUTPUT TAPE 6,121,RHOMAX,DRHOL + GO TO (110,110,109,109),IKTRL + 109 WRITE OUTPUT TAPE 6,114 + GO TO 13 + 102 WRITE OUTPUT TAPE 6,122,RHOMAX,DRHOL + GO TO(110,110,111,111),IKTRL + 111 WRITE OUTPUT TAPE 6,114 + GO TO 31 + 103 WRITE OUTPUT TAPE 6,123,RHOMAX,DRHOL + GO TO (110,110,112,112),IKTRL + 112 WRITE OUTPUT TAPE 6,114 + GO TO 382 + 104 WRITE OUTPUT TAPE 6,124,RHOMAX,DRHOL ,L + GO TO (110,110,113,113),IKTRL + 113 WRITE OUTPUT TAPE 6,114 + GO TO 40 + 105 WRITE OUTPUT TAPE 6,125,RHOMAX,DRHOL + GO TO (110,110,115,115),IKTRL + 115 WRITE OUTPUT TAPE 6,114 + GO TO 12 + 106 WRITE OUTPUT TAPE 6,126,RHOMAX,DRHOL + GO TO (110,110,116,116),IKTRL +\end{lstlisting} +%% -----File: 085.png---Folio 80------- +\begin{lstlisting} + 116 WRITE OUTPUT TAPE 6,114 + GO TO 13 + 110 RHOMAX=RHOMAX+DRHOL + GO TO 1 + 121 FORMAT(18H INCREASE RHO MAX=E11.4,2H+ E11.4,35H A OR B SERIES CONV + 1ERGES TOO SLOWLY) + 122 FORMAT(18H INCREASE RHO MAX=E11.4,2H+ E11.4,22H BAD INITIAL WRONSK + 1IAN) + 123 FORMAT(18H INCREASE RHO MAX=E11.4,2H+ E11.4,24H L TOO LARGE IN FBA + 1R (L)) + 124 FORMAT(18H INCREASE RHO MAX=E11.4,2H+ E11.4,21H BAD WRONSKIAN FOR + 1L=I3) + 125 FORMAT(67H SERIES IN PHI0 OR PHI1 IS ZERO, CHECK DATA, IF OK INCRE + 1ASE RHOMAX=E11.4,2H+ E11.4) + 126 FORMAT(52H A OR B SERIES DIVERGES TOO QUICKLY INCREASE RHOMAX=E11. + 14,2H+ E11.4) + 114 FORMAT(42H RHOMAX INCREASE NOT PERMITTED BY KTRL(13)) + + + + + + SUBROUTINE RMXINC + 3 IF (RHOMAX-RHO(ILAST)) 1,2,1 + 1 ILAST=ILAST+1 + RHO(ILAST)=RHO(ILAST-1)+DRHOL + DRHO(ILAST-1)=DRHOL + GO TO 3 + 2 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 086.png---Folio 81------- + +\begin{lstlisting} + SUBROUTINE PGEN4 + IF DIVIDE CHECK 60,61 + 60 WRITE OUTPUT TAPE 6,160 + 160 FORMAT (59H DIVIDE CHECK TRIGGER FOUND ON AT START OF PGEN4 SUBROU + 1TINE) + CALL LEAVE + STOP + 61 ISPILL=0 + JSPILL=0 + IF(KTRL(1)) 3,4,3 + 3 KTRL(7)=0 + KTRL(8)=0 + KTRL(9)=0 + KTRL(10)=0 + 4 T1=V/ECM + T2=W/ECM + T10=VS/ECM + T11=WS/ECM + T12=FKAY*BG + T3=2.*FKAY/A + IF DIVIDE CHECK 62,65 + 62 WRITE OUTPUT TAPE 6,162 + 162 FORMAT (65H DIVISORS ECM OR A WERE WRONGLY INPUT AS ZERO IN PGEN4 + 1SUBROUTINE) + CALL LEAVE + STOP + 65 T4=T10*T3 + T5=T11*T3 + T6=FKAY*A + T7=ETA/RHOBC + IF DIVIDE CHECK 63,64 + 63 WRITE OUTPUT TAPE 6,163 + 163 FORMAT(61H DIVISOR RHOBC IS ZERO IN SECOND DIVISION OF PGEN4 SUBRO + 1UTINE) + CALL LEAVE + STOP + 64 T8=RHOBC**2 + T9=ETA*2. + I=1 + 40 EX=EXPF((RHO(I)-RHOBN)/T6) + IF DIVIDE CHECK 80,66 + 80 WRITE OUTPUT TAPE 6,165 + 165 FORMAT (58H QUANTITY T6 IS ZERO IN THIRD DIVISION OF PGEN4 SUBROUT + 1INE) + CALL LEAVE + STOP + 66 K=1 + 41 IF(I-1) 42,43,42 + 42 IF(DRHO(I)-DRHO(I-1)) 43,44,43 + 43 HDRHO=DRHO(I)*.5 +\end{lstlisting} +%% -----File: 087.png---Folio 82------- +\begin{lstlisting} + DEX=EXPF(HDRHO/T6) + 44 IF(KTRL(1)-2)53,52,53 + 52 IF(RHO(I)-RHOBN) 54,55,55 + 54 S1=1.0 + GO TO 68 + 55 S1=0.0 + GO TO 68 + 53 S1=1./(1.+EX) + IF DIVIDE CHECK 67,68 + 67 WRITE OUTPUT TAPE 6,167 + 167 FORMAT(60H DIVISOR 1.+EX IS ZERO IN FOURTH DIVISION OF PGEN4 SUBRO + 1UTINE) + CALL LEAVE + STOP + 68 S2=EX*(S1**2) + S4=S2/RHO(I) + IF DIVIDE CHECK 69,70 + 69 WRITE OUTPUT TAPE 6,169,I + 169 FORMAT(58H DIVISOR RHO IS ZERO IN FIFTH DIVISION OF PGEN4 SUBROUTI + 1NE) + CALL LEAVE + STOP + 70 IF (RHO(I)-RHOBC) 9,9,10 + 9 S3=T7*(3.-(RHO(I)**2)/T8) + GO TO 11 + 10 S3=T9/RHO(I) + 11 IF (KTRL(7)) 350,300,350 + 300 UCRB(I)=-1.-T1*S1+S3 + FFCR(I)=S1 + 301 IF (KTRL(8)) 355,302,355 + 302 IF(KTRL(1)-1) 309,308,309 + 308 S1=EXPF(-((RHO(I)-RHOBNG)/T12)**2) + IF DIVIDE CHECK 82,309 + 82 WRITE OUTPUT TAPE 6,182 + 182 FORMAT(22H BG IS ZERO IN PGEN SR) + CALL LEAVE + STOP + 309 UCIB(I)=-T2*S1 + FFCI(I)=S1 + 303 IF (KTRL(9)) 360,304,360 + 304 USRB(I)=T4*S4 + FFSR(I)=S4 + 305 IF (KTRL(11)) 501,500,501 + 500 IF (KTRL(10))365,306,365 + 306 USIB(I)=T5*S4 + FFSI(I)=S4 + 307 IF (I-ILAST) 50,200,200 + 350 ITT=1 + GO TO 340 + 355 ITT=2 +\end{lstlisting} +%% -----File: 088.png---Folio 83------- +\begin{lstlisting} + GO TO 340 + 340 ITQ=1 + IF(ITT-1) 380,380,381 + 380 IF (KTRL(7)-1) 352,351,352 + 351 TW=HA + TRM=RMA + TN1=FN1A + TN2=FN2A + GO TO 400 + 352 TH=HB + TRM=RMB + TN1=FN1B + TN2=FN2B + GO TO 400 + 381 IF (KTRL(8)-1) 352,351,352 + 400 IF (RHO(I)-RHOBN) 410,410,411 + 410 TTN=TN1 + GO TO 412 + 411 TTN=TN2 + 412 T20=RHO(I)/RHOBN + IF (TTN*LOGF(T20)-80.) 403,403,409 + 403 TQ=(T20**TTN-1.)*RHOBN/(TTN*FKAY*A) + IF DIVIDE CHECK 405,406 + 405 TG=T20**(RHOBN/(FKAY*A)) + GO TO 407 + 406 IF (TQ-80.) 408,408,409 + 408 TG=EXPF(TQ) + GO TO 407 + 409 TF=0. + GO TO 422 + 407 TFN=1./(1.+TG) + IF (RHO(I)-TRM) 420,420,419 + 419 TF=TFN + GO TO 418 + 420 T21=RHO(I)/TRM + THH=TH*(1.+(2.*T21))*((1.-T21)**2) + TF=TFN*(1.+THH) + 418 TFF=TF + 421 GO TO (422,423),ITQ + 422 GO TO (425,426,427,428),ITT + 425 FFCR(I)=TF + UCRB(I)=-1.-T1*FFCR(I)+S3 + GO TO 301 + 426 FFCI(I)=TF + UCIB(I)=-T2*FFCI(I) + GO TO 303 + 427 FFSR(I)=TF + IF (ITQ-1) 470,470,471 + 471 USRB(I)=FKAY*A*T4*FFSR(I) + GO TO 305 +\end{lstlisting} +%% -----File: 089.png---Folio 84------- +\begin{lstlisting} + 470 USRB(I)=(T4/2.)*FFSR(I) + GO TO 305 + 428 FFSI(I)=TF + IF(ITQ-1) 472,472,473 + 473 USIB(I)=FKAY*A*T5*FFSI(I) + GO TO 307 + 360 ITT=3 + IF (KTRL(9)-1) 431,431,430 + 430 ITQ=1 + GO TO 352 + 365 ITT=4 + IF (KTRL(10)-1) 431,431,430 + 472 USIB(I)=(T5/2.)*FFSI(I) + GO TO 307 + 431 ITQ=2 + GO TO 351 + 423 T23=(RHOBN/(FKAY*A))*(T20**TTN)*TG*((TFN/RHO(I))**2) + T25=T23 + IF(RHO(I)-TRM) 460,460,461 + 460 T24=6.*TH*(1.-T21)/(TRM**2) + T25=(T24*TFN)+((1.+THH)*T23) + 461 TF=T25 + IF(ITT-3) 427,427,428 + 501 T30=0.004927*ETA*ECM + IF(RHO(I)-RHOBC) 502,502,503 + 502 SOCOUL=T30/(RHOBC**3) + GO TO 504 + 503 SOCOUL=T30/(RHO(I)**3) + 504 USRB(I)=USRB(I)+SOCOUL + GO TO 500 + 50 I=I+1 + EX=EX*DEX + RHOM=RHO(I-1)+HDRHO + IF(KTRL(1)-2) 153,152,153 + 152 IF(RHOM-RHOBN)34,35,35 + 34 S1=1.0 + GO TO 72 + 35 S1=0.0 + GO TO 72 + 153 S1=1./(1.+EX) + IF DIVIDE CHECK 71,72 + 71 WRITE OUTPUT TAPE 6,171 + 171 FORMAT(54H DIVISOR 15 ZERO IN SIXTH DIVISION OF PGEN4 SUBROUTINE) + CALL LEAVE + STOP + 72 S2=EX*(S1**2) + S4=S2/RHOM + IF DIVIDE CHECK 73,74 + 73 WRITE OUTPUT TAPE 6,173 + 173 FORMAT (62H QUANTITY RHOM IS ZERO IN SEVENTH DIVISION OF PGEN4 SUB +\end{lstlisting} +%% -----File: 090.png---Folio 85------- +\begin{lstlisting} + 1ROUTINE) + CALL LEAVE + STOP + 74 IF(RHOM-RHOBC) 21,21,22 + 21 S3=T7*(3.-(RHOM**2)/T8) + GO TO 23 + 22 S3=T9/RHOM + 23 IF (KTRL(7))1350,1300,1350 + 1300 UCRM(I-1)=-1.-T1*S1+S3 + FFCRM(I-1)=51 + 1301 IF (KTRL(8)) 1355,1302,1355 + 1302 IF(KTRL(1)-1) 1309,1308,1309 + 1308 S1=EXPF(-((RHOM-RHOBNG)/T12)**2) + 1309 UCIM(I-1)=-T2*S1 + FFCIM(I-1)=S1 + 1303 IF (KTRL(9)) 1360,1304,1360 + 1304 USRM(I-1)=T4*S4 + FFSRM(I-1)=S4 + 1305 IF (KTRL(I1)) 1501,1500,1501 + 1500 IF (KTRL(I0))1365,1306,1365 + 1306 USIM(I-1)=T5*S4 + FFSIM(I-1)=S4 + 1307 IF (K-10) 24,40,40 + 1350 ITT=1 + GO TO 1340 + 1355 ITT=2 + GO TO 1340 + 1340 ITQ=1 + IF (ITT-1)1380,1380,1381 + 1380 IF (KTRL(7)-1) 1352,1351,1352 + 1351 TH=HA + TRM=RMA + TN1=FN1A + TN2=FN2A + GO TO 1400 + 1352 TH=HB + TRM=RMB + TN1=FN1B + TN2=FN2B + GO TO 1400 + 1381 IF (KTRL(8)-1) 1352,1351,1352 + 1400 IF (RHOM-RHOBN) 1410,1410,1411 + 1410 TTN=TN1 + GO TO 1412 + 1411 TTN=TN2 + 1412 T20=RHOM/RHOBN + IF (TTN*LOGF(T20)-80.) 1403,1403,1409 + 1403 TQ=(T20**TTN-1.)*RHOBN/(TTN*FKAY*A) + IF DIVIDE CHECK 1405,1406 + 1405 TG=T20**(RHOBN/(FKAY*A)) +\end{lstlisting} +%% -----File: 091.png---Folio 86------- +\begin{lstlisting} + GO TO 1407 + 1406 IF (TQ-80.) 1408,1408,1409 + 1408 TG=EXPF(TQ) + GO TO 1407 + 1409 TF=0. + GO TO 1422 + 1407 TFN=1./(1.+TG) + IF (RHOM-TRM) 1420,1420,1419 + 1419 TF=TFN + GO TO 1418 + 1420 T21=RHOM/TRM + TRH=TH*(1.+(2.*T21))*((1.-T21)**2) + TF=TFN*(1.+THH) + 1418 TFF=TF + 1421 GO TO (1422,1423),ITQ + 1422 GO TO (1425,1426,1427,1428),ITT + 1425 FFCRM(I-1)=TF + UCRM(I-1)=-1.-T1*FFCRM(I-1)+S3 + GO TO 1301 + 1426 FFCIM(I-1)=TF + UCIM(I-1)=-T2*FFCIM(I-1) + GO TO 1303 + 1427 FFSRM(I-1)=TF + IF (ITQ-1) 1470,1470,1471 + 1471 USRM(I-1)=FKAY*A*T4*FFSRM(I-1) + GO TO 1305 + 1470 USRM(I-1)=(T4/2.)*FFSRM(I-1) + GO TO 1305 + 1428 FFSIM(I-1)=TF + IF (ITQ-1) 1472,1472,1473 + 1473 USIM(I-1)=FKAY*A*T5*FFSIM(I-1) + GO TO 1307 + 1360 ITT=3 + IF (KTRL(9)-1) 1431,1431,1430 + 1430 ITQ=1 + GO TO 1352 + 1365 IIT=4 + IF (KTRL(10)-1) 1431,1431,1430 + 1472 USIM(I-1)=(T5/2.)*FFSIM(I-1) + GO TO 1307 + 1431 ITQ=2 + GO TO 1351 + 1423 T23=(RHOBN/(FKAY*A))*(T20**TTN)*TG*((TFN/RHOM)**2) + T25=T23 + IF(RHOM-TRM) 1460,1460,1461 + 1460 T24=6.*TH*(1.-T21)/(TRM**2) + T25=(T24*TFN)+((1.+THH)*T23) + 1461 TF=T25 + IF (ITT-3) 1427,1427,1428 + 1501 T30=0.004927*ETA*ECM +\end{lstlisting} +%% -----File: 092.png---Folio 87------- +\begin{lstlisting} + IF (RHOM-RHOBC) 1502,1502,1503 + 1502 SOCOUL=T30/(RHOBC**3) + GO TO 1504 + 1503 SOCOUL=T30/(RHOM**3) + 1504 USRM(I-1)=USRM(I-1)+SOCOUL + GO TO 1500 + 24 K=K+1 + EX=EX*DEX + GO TO 42 + 200 IF(ISPILL) 75,76,75 + 75 WRITE OUTPUT TAPE 6,175,ISPILL + 175 FORMAT(23H UNDERFLOW OCCURRED AT I6,20H IN PGEN4 SUBROUTINE) + 76 IF (JSPILL) 77,51,77 + 77 WRITE OUTPUT TAPE 6,177, JSPILL + 177 FORMAT(22H OVERFLOW OCCURRED AT I6,20H IN PGEN4 SUBROUTINE) + CALL LEAVE + STOP + 51 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 093.png---Folio 88------- + +\begin{lstlisting} + SUBROUTINE INTCTR + DO1 L=1,LMAX + IFIRST=IIN(L) + T=RHO(IFIRST)**(L-1) + XC1=T*RHO(IFIRST) + XD1=XC1 + FL=L + XCP1=FL*T + XDP1=XCP1 + YC1=0. + YD1=0. + YCP1=0. + YDP1=0. + CALL RKINT + X1(L)=XC1 + X2(L)=XD1 + Y1(L)=YC1 + Y2(L)=YD1 + X1P(L)=XCP1 + X2P(L)=XDP1 + Y1P(L)=YCP1 + 1 Y2P(L)=YDP1 + RETURN +\end{lstlisting} +\clearpage + +%% -----File: 094.png---Folio 89------- + +\begin{lstlisting} + SUBROUTINE RKINT + IF DIVIDE CHECK 10,11 + 10 WRITE OUTPUT TAPE 6,110,L,I + 110 FORMAT(66H DIVIDE CHECK TRIGGER FOUND ON AT START OF RKINT SUBROUT + 1INE FOR L=I3,7H AND I=I3) + CALL LEAVE + STOP + 11 ISPILL=0 + JSPILL=0 + 1 FL=L-1 + F2L=-1.-FL + F3L=FL*(FL+1.) + TB=UCRB(IFIRST)+F3L/(RHO(IFIRST)**2) + IF DIVIDE CHECK 12,13 + 12 WRITE OUTPUT TAPE 6,112,L,I + 112 FORMAT(76H DIVISOR RHO(IFIRST)**2 IS ZERO IN FIRST DIVISION OF RKI + 1NT SUBROUTINE FOR L=I3,7H AND I=I3) + CALL LEAVE + STOP + 13 PCB=TB+USRB(IFIRST)*FL + PDB=TB+USRB(IFIRST)*F2L + QCB=UCIB(IFIRST)+USIB(IFIRST)*FL + QDB=UCIB(IFIRST)+USIB(IFIRST)*F2L + IK=ILAST-1 + DO 6 I=IFIRST,IK + 2 HDRHO=.5*DRHO(I) + DRHO2=(DRHO(I)**2)*.5 + RHOM=RHO(I)+HDRHO + TM=UCRM(I)+F3L/(RHOM**2) + IF DIVIDE CHECK 14,15 + 14 WRITE OUTPUT TAPE 6,114,L,I + 114 FORMAT(70H DIVISOR RHOM**2 IS ZERO IN SECOND DIVISION OF RKINT SUB + 1ROUTINE FOR L=I3,7H AND I=I3) + CALL LEAVE + STOP + 15 PCM=TM+USRM(I)*FL + PDM=TM+USRM(I)*F2L + QCM=UCIM(I)+USIM(I)*FL + QDM=UCIM(I)+USIM(I)*F2L + XCPP1=PCB*XC1-QCB*YC1 + YCPP1=QCB*XC1+PCB*YC1 + XDPP1=PDB*XD1-QDB*YD1 + YDPP1=QDB*XD1+PDB*YD1 + XC2=XC1+XCP1*HDRHO + YC2=YC1+YCP1*HDRHO + XD2=XD1+XDP1*HDRHO + YD2=YD1+YDP1*HDRHO + XCPP2=PCM*XC2-QCM*YC2 + YCPP2=QCM*XC2+PCM*YC2 + XDPP2=PDM*XD2-QDM*YD2 +\end{lstlisting} +%% -----File: 095.png---Folio 90------- +\begin{lstlisting} + YDPP2=QDM*XD2+PDM*YD2 + DRHO4=.5*DRHO2 + SDRHO=.33333333*HDRHO + XC3=XC2+XCPP1*DRHO4 + YC3=YC2+YCPP1*DRHO4 + XD3=XD2+XDPP1*DRHO4 + YD3=YD2+YDPP1*DRHO4 + XCPP3=PCM*XC3-QCW*YC3 + YCPP3=QCM*XC3+PCM*YC3 + XDPP3=PDM*XD3-QDM*YD3 + YDPP3=QDM*XD3+PDW*YD3 + XC4=XC2+XCPP2*DRHO2+XCP1*HDRHO + YC4=YC2+YCPP2*DRHO2+YCP1*HDRHO + XD4=XD2+XDPP2*DRHO2+XDP1*HDRHO + YD4=YD2+YDPP2*DRHO2+YDP1*HDRHO + TB=UCRB(I+1)+F3L/(RHO(I+1)**2) + IF DIVIDE CHECK 16,17 + 16 WRITE OUTPUT TAPE 6,116,L,I + 116 FORMAT(74H DIVISOR RHO(I+1)**2 IS ZERO IN THIRD DIVISION FOR RKINT + 1 SUBROUTINE FOR L=I3,7H AND I=I3) + CALL LEAVE + STOP + 17 PCB=TB+USRB(I+1)*FL + PDB=TB+USRB(I+1)*F2L + QCB=UCIB(I+1)+USIB(I+1)*FL + QDB=UCI8(I+1)+USIB(I+1)*F2L + XCPP4=PCB*XC4-QCB*YC4 + YCPP4=QCB*XC4+PCB*YC4 + XDPP4=PDB*XD4-QDB*YD4 + YDPP4=QDB*XD4+PDB*YD4 + SXC=XCPP2+XCPP3 + SYC=YCPP2+YCPP3 + SXD=XDPP2+XDPP3 + SYD=YDPP2+YDPP3 + TXC=SXC+XCPP1 + TYC=SYC+YCPP1 + TXD=SXD+XDPP1 + TYD=SYD+YDPP1 + TXC1=XC1+DRHO(I)*(XCP1+SDRHO*TXC) + TYC1=YC1+DRHO(I)*(YCP1+SDRHO*TYC) + TXD1=XD1+DRHO(I)*(XDP1+SDRHO*TXD) + TYD1=YD1+DRWO(I)*(YDP1+SDRHO*TYD) + TXCP1=XCP1+SDRHO*(TXC+SXC+XCPP4) + TYCP1=YCP1+SDRHO*(TYC+SYC+YCPP4) + TXDP1=XDP1+SDRHO*(TXD+SXD+XDPP4) + TYDP1=YDP1+SDRHO*(TYD+SYD+YDPP4) + IF (JSPILL) 20,21,20 + 20 RENORM=MAX1F(ABSF(XC1),ABSF(YC1),ABSF(XCP1),ABSF(YCP1),ABSF(XD1), + 1ABSF(YD1),ABSF(XDP1),ABSF(YDP1)) + XC1=XC1/RENORM +\end{lstlisting} +%% -----File: 096.png---Folio 91------- +\begin{lstlisting} + YC1=YC1/RENORM + XCP1=XCP1/RENORM + YCP1=YCP1/RENORM + XD1=XD1/RENORM + YD1=YD1/RENORM + XDP1=XDP1/RENORM + YDP1=YDP1/RENORM + WRITE OUTPUT TAPE 6,200,RENORM,L,RHO(I) + 200 FORMAT(24H RENORMALIZATION FACTOR=E16.9,22H IN RKINT FOR CODED L=I + 13,9H AND RHO=E16.9) + JSPILL=0 + GO TO2 + 21 XC1=TXC1 + YC1=TYC1 + XD1=TXD1 + YD1=TYD1 + XCP1=TXCP1 + YCP1=TYCP1 + XDP1=TXDP1 + YDP1=TYDP1 + 6 CONTINUE + IF (ISPILL) 30,31,30 + 30 WRITE OUTPUT TAPE 6,130, ISPILL,L,I + 130 FORMAT(23H UNDERFLOW OCCURRED AT I6,27H IN RKINT SUBROUTINE FOR L= + 1I3.7H AND I=I3) + 31 IF (JSPILL) 32,4,32 + 32 WRITE OUTPUT TAPE 6,132, JSPILL,L,I + 132 FORMAT(22H OVERFLOW OCCURRED AT I6,27H IN RKINT SUBROUTINE FOR L=I + 13,7H AND I=I3) + CALL LEAVE + STOP + 4 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 097.png---Folio 92------- + +\begin{lstlisting} + SUBROUTINE CSUBL + IF DIVIDE CHECK 50,51 + 50 WRITE OUTPUT TAPE 6,150 + 150 FORMAT (59H DIVIDE CHECK TRIGGER FOUND ON AT START OF CSUBL SUBROU + 1TINE) + CALL LEAVE + STOP + 51 ISPILL=0 + JSPILL=0 + DO 40 L=1,LMAX + XNORM1=MAX1F(ABSF(X1(L))*ABSF(Y1(L)),ABSF(X1P(L)),ABSF(Y1P(L))) + TX1L=N1(L)/XNORM1 + TY1L=Y1(L)/XNORM1 + TX1PL=N1P(L)/XNORM1 + TY1PL=Y1P(L)/XNORM1 + FNORM=MAX1F(F(L),G(L),FP(L),GP(L)) + TFL=F(L)/FNORM + TGL=G(L)/FNORM + TFPL=FP(L)/FNORM + TGPL=GP(L)/FNORM + CO1=TFL*TY1PL-TFPL*TY1L + CO2=TFPL*TX1L-TFL*TX1PL + CO3=TY1L*TGPL-TY1PL*TGL+TX1L*TFPL-TX1PL*TFL + CO4=TX1PL*TGL-TX1L*TGPL+TY1L*TFPL-TY1PL*TFL + CO7=1.0/(CO3**2+CO4**2) + IF DIVIDE CHECK 52,53 + 52 WRITE OUTPUT TAPE 6,152 + 152 FORMAT(54H DIVISOR IS ZERO IN FIRST DIVISION OF CSUBL SUBROUTINE) + CALL LEAVE + STOP + 53 CR1(L)=(CO1*CO3+CO2*CO4)*CO7 + CI1(L)=(CO2*CO3-CO1*CO4)*CO7 + XNORM2=MAX1F(ABSF(X2(L)),ABSF(Y2(L)),ABSF(X2P(L)),ABSF(Y2P(L))) + TX2L=N2(L)/XNORM2 + TY2L=Y2(L)/XNORM2 + TX2PL=N2P(L)/XNORM2 + TY2PL=Y2P(L)/XNORM2 + CO1=TFL*TY2PL-TFPL*TY2L + CO2=TFPL*TX2L-TFL*TX2PL + CO3=TY2L*TGPL-TY2PL*TGL+TX2L*TFPL-TX2PL*TFL + CO4=TX2PL*TGL-TX2L*TGPL+TY2L*TFPL-TY2PL*TFL + CO7=1.0/(CO3**2+CO4**2) + IF DIVIDE CHECK 54,55 + 54 WRITE OUTPUT TAPE 6,154 + 154 FORMAT (55H DIVISOR IS ZERO IN SECOND DIVISION OF CSUBL SUBROUTINE + 1) + CALL LEAVE + STOP + 55 CR2(L)=(CO1*CO3+CO2*CO4)*CO7 + 40 CI2(L)=(CO2*CO3-CO1*CO4)*CO7 +\end{lstlisting} +%% -----File: 098.png---Folio 93------- +\begin{lstlisting} + IF (ISPILL) 56,57,56 + 56 WRITE OUTPUT TAPE 6,156,ISPILL,L + 156 FORMAT (23H UNDERFLOW OCCURRED AT I6,27H IN CSUBL SUBROUTINE FOR L + 1=I3) + 57 IF (JSPILL) 58,59,58 + 58 WRITE OUTPUT TAPE 6,158, JSPILL, L + 158 FORMAT (22H OVERFLOW OCCURRED AT I6,27H IN CSUBL SUBROUTINE FOR L= + 1I3) + CALL LEAVE + STOP + 59 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 099.png---Folio 94------- + +\begin{lstlisting} + SUBROUTINE AB + IF DIVIDE CHECK 1,2 + 1 WRITE OUTPUT TAPE 6,101 + 101 FORMAT (56H DIVIDE CHECK TRIGGER FOUND ON AT START OF AB SUBROUTIN + 1E) + CALL LEAVE + STOP + 2 ISPILL=0 + JSPILL=0 + FKAYD=1./FKAY + IF DIVIDE CHECK 3,4 + 3 WRITE OUTPUT TAPE 6,103 + 103 FORMAT(38H DIVISOR FKAY IS ZERO IN AB SUBROUTINE) + CALL LEAVE + STOP + 4 DO 20 J=1,JMAX + ASUMR=0. + ASUMI=0. + BSUMR=0. + BSUMI=0. + DO 10 L=1,LMAX + FL=L + ATR1=FL*CR1(L)+(FL-1.)*CR2(L) + ATI1=FL*CI1(L)+(FL-1.)*CI2(L) + BTR1=CR1(L)-CR2(L) + BTI1=CI1(L)-CI2(L) + ATR2=ATR1*EXSGMR(L)-(ATI1*EXSGMI(L)) + ATI2=ATR1*EXSGMI(L)+(ATI1*EXSGMR(L)) + BTR2=BTR1*EXSGMR(L)-(BTI1*EXSGMI(L)) + BTI2=BTR1*EXSGMI(L)+(BTI1*EXSGMR(L)) + ASUMR=ASUMR+(ATR2*P(L,J)) + ASUMI=ASUMI+(ATI2*P(L,J)) + BSUMR=BSUMR+(BTR2*PP(L,J)) + 10 BSUMI=BSUMI+(BTI2*PP(L,J)) + AR(J)= FCR(J)+(FKAYD*ASUMR) + AI(J)=FCI(J)+(FKAYD*ASUMI) + BR(J)= FKAYD*BSUMI + 20 BI(J)= -FKAYD*BSUMR + IF (ISPILL) 30,31,30 + 30 WRITE OUTPUT TAPE 6,130, ISPILL + 130 FORMAT(23H UNDERFLOW OCCURRED AT I6,17H IN AB SUBROUTINE) + 31 IF (JSPILL) 32,33,32 + 32 WRITE OUTPUT TAPE 6,132,JSPILL + 132 FORMAT (22H OVERFLOW OCCURRED AT I6,17H IN AB SUBROUTINE) + CALL LEAVE + STOP + 33 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 100.png---Folio 95------- + +\begin{lstlisting} + SUBROUTINE SGSGCP + IF DIVIDE CHECK 10,11 + 10 WRITE OUTPUT TAPE 6,110 + 110 FORMAT (60H DIVIDE CHECK TRIGGER FOUND ON AT START OF SGSGCP SUBRO + 1UTINE) + CALL LEAVE + STOP + 11 ISPILL=0 + JSPILL=0 + DO 5 J=1,JMAX + SGMATH(J)=AR(J)**2.+AI(J)**2.+BR(J)**2.+BI(J)**2. + POLTH(J)= (2.*(AR(J)*BR(J)+AI(J)*BI(J)))/SGMATH(J) + IF DIVIDE CHECK 12,13 + 12 WRITE OUTPUT TAPE 6,112,J + 112 FORMAT(30H DIVISOR SGMATH IS ZERO FOR J=13,21H IN SGSGCP SUBROUTIN + 1E) + CALL LEAVE + STOP + 13 SGMAC(J)=FCR(J)**2.+FCI(J)**2. + IF(ETA) 7,7,8 + 8 SRATIO(J)=SGMATH(J)/SGMAC(J) + IF DIVIDE CHECK 14,15 + 14 WRITE OUTPUT TAPE 6,114,J + 114 FORMAT(29H DIVISOR SGMAC IS ZERO FOR J=13,21H IN SGSGCP SUBROUTINE + 1) + CALL LEAVE + STOP + 15 GO TO 5 + 7 SRATIO(J)=0. + 5 CONTINUE + IF (ISPILL) 16,17,16 + 16 WRITE OUTPUT TAPE 6,116,ISPILL + 116 FORMAT (23H UNDERFLOW OCCURRED AT 16,21H IN SGSGCP SUBROUTINE) + 17 IF (JSPILL) 18,19,18 + 18 WRITE OUTPUT TAPE 6,118,JSPILL + 118 FORMAT(22H OVERFLOW OCCURRED AT 16,21H IN SGSGCP SUBROUTINE) + CALL LEAVE + STOP + 19 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 101.png---Folio 96------- + +\begin{lstlisting} + SUBROUTINE SIGMAR + ISPILL=0 + JSPILL=0 + FL=0. + SGMRTH=0. + CPI=(12.56637060)/(FKAY**2) + DO 20 L=I,LMAX + SGMRTH=SGMRTH+FL*(C12(L)-(C12(L))**2-(CR2(L))**2) + FL=FL+1.0 + 20 SGMRTH=SGMRTH+FL*(CI1(L)-(CI1(L))**2-(CR1(L))**2) + SGMRTH=CPI*SGMRTH + IF(ISPILL) 10,11,10 + 10 WRITE OUTPUT TAPE 6,110,ISPILL + 110 FORMAT(23H UNDERFLOW OCCURRED AT 16,21H IN SIGMAR SUBROUTINE) + 11 IF(JSPILL) 12,13,12 + 12 WRITE OUTPUT TAPE 6,112,JSPILL + 112 FORMAT(22H OVERFLOW OCCURRED AT 16,21H IN SIGMAR SUBROUTINE) + CALL LEAVE + STOP + 13 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 102.png---Folio 97------- + +\begin{lstlisting} + SUBROUTINE CHISQ + IF DIVIDE CHECK 10,11 + 10 WRITE OUTPUT TAPE 6,110 + 110 FORMAT(59H DIVIDE CHECK TRIGGER FOUND ON AT START OF CHISQ SUBROUT + 1INE) + CALL LEAVE + STOP + 11 ISPILL=0 + JSPILL=0 + CHI2ST=0 + CHI2PT=0 + DO 20 J=1,JMAX + CHI2S(J)= ((SGMATH(J)-SGMAEX(J))/DSGMEX(J))**2. + CHI2P(J)= ((POLTH(J)-POLEX(J))/DPOLEX(J))**2. + IF DIVIDE CHECK 14,15 + 14 WRITE OUTPUT TAPE 6,114,J + 114 FORMAT(40H DIVISOR DSGMEX OR DPOLEX IS ZERO FOR J=13,20H IN CHISQ + 1SUBROUTINE) + CALL LEAVE + STOP + 15 CHI2ST=CHI2ST + CHI2S(J) + CHI2(J)=CHI25(J)+CHI2P(J) + 20 CHI2PT=CHI2PT+CHI2P(J) + CHI2T=CHI2ST+CHI2PT + IF (ISPILL) 16,17,16 + 16 WRITE OUTPUT TAPE 6,116, ISPILL + 116 FORMAT(23H UNDERFLOW OCCURRED AT 16,20H IN CHISQ SUBROUTINE) + 17 IF(ISPILL) 18,19,18 + 18 WRITE OUTPUT TAPE 6,118,JSPILL + 118 FORMAT(22H OVERFLOW OCCURRED AT 16,20H IN CHISQ SUBROUTINE) + CALL LEAVE + STOP + 19 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 103.png---Folio 98------- + +\begin{lstlisting} + SUBROUTINE OUTPT4 + NPGS=0 + CALL SKIP(K,NPGS,NUMRUN) + WRITE OUTPUT TAPE 6,245,NUMPRG + 245 FORMAT (16H0PROGRAM NUMBER I5) + DO 8 I=1,13 + WRITE OUTPUT TAPE 6,250,I,(KTRL(I)) + 250 FORMAT (6H KTRL(I2,2H)=I2) + 8 CONTINUE + WRITE OUTPUT TAPE 6,12 + 12 FORMAT (11H0BASIC DATA) + FKAYA=FKAY*A + FKAYB=FKAY*BG + WRITE OUTPUT TAPE 6,14,FMI,FMB,ELAB,ZZ,V,W,A,RO,VS,WS,RC,BG,RG, + 14 FORMAT(7H0MSUBI=E16.9,10H MSUBB=E16.9,10H ELAB=E16.9,10H + 1 ZZP=E16.9/7H0 V=E16.9,10H W=E16.9,10H A=E16.9, + 210H RO=E16.9/7H0 VS=E16.9,10H WS=E16.9,36H + 3 RC=E16.9/59H0 + 4 BG=E16.9,10H RG=E16.9) + WRITE OUTPUT TAPE 6,16,RHOBN,RHOBC,RHOBNG,ECM,ETA,FKAY,FKAYA,FKAYB + 16 FORMAT(7H0RHOBN=E16.9,10H RHOBC=E16.9,10H RHOBNG=E16.9,10H + 1 ECM=E16.9/7H0 ETA=E16.9,10H K=E16.9/10H KA=E16.9, + 210H KB=E16.9) + KT=KTRL(7)+KTRL(8)+KTRL(9)+KTRL(10) + IF (KT) 13,1818,13 + 13 WRITE OUTPUT TAPE 6,150,HA,RMA,FN1A,FN2A,PMA,HB,RMB,FN1B,FN2B,PMB + 150 FORMAT(7H0 HA=E16.9,7H RMA=E16.9,7H N1A=E16.9,7H N2A=E16.9 + 1,7H PMA=E16.9/7H HB=E16.9,7H RMB=E16.9,7H N1B=E16.9,7H + 2N2B=E16.9,7H PMB=E16.9) + 1818 WRITE OUTPUT TAPE 6,18,RHOMAX,LMAXM + 18 FORMAT (17H0INTEGRATION DATA/8H0RHOMAX=E16.9,10H LMAXM=I5) + WRITE OUTPUT TAPE 6,220,NMAX + 220 FORMAT (6H0NMAX=I5) + WRITE OUTPUT TAPE 6,24 + 24 FORMAT (6H0RHOIN) + NOLINE=50 + K=20 + DO 40 I=1, NMAX,6 + IF(K-NOLINE) 30,29,29 + 29 CALL SKIP(K,NPGS,NUMRUN) + 30 M=XMINOF(I+5,NMAX) + K=K+1 + WRITE OUTPUT TAPE 6,32,(RHOIN(J),J=I,M) + 32 FORMAT(1H E19.9,5E20.9) + 40 CONTINUE + WRITE OUTPUT TAPE 6,41 + 41 FORMAT (7H0DRHOIN) + DO 60 I=1,NMAX,6 + IF(K-NOLINE) 45,43,43 + 43 CALL SKIP(K,NPGS,NUMRUN) +\end{lstlisting} +%% -----File: 104.png---Folio 99------- +\begin{lstlisting} + 45 M=XMINOF(I+5,NMAX-1) + K=K+1 + WRITE OUTPUT TAPE 6,32,(DRHOIN(J),J=I,M) + 60 CONTINUE + WRITE OUTPUT TAPE 6,118,SGMRTH + 118 FORMAT(12H0SIGMAR(TH)=E16.9) + 15 IF(KTRL(2)-1) 1900,20,1900 + 20 WRITE OUTPUT TAPE 6,119,CHI2ST,CHI2PT,CHI2T + 119 FORMAT (25H0SUM OF CHI SQUARE SIGMA=E16.9/23H0SUM OF CHI SQUARE PO + 1L=E16.9/25H0SUM OF CHI SQUARE TOTAL=E16.9) + 21 CALL SKIP(K,NPGS,NUMRUN) + WRITE OUTPUT TAPE 6,200 + 200 FORMAT (113H THETA SIGMATH SIG-SIGC + 1 POL TH SIGMA EX POL EX) + DO 90 I=1,JMAX + IF(K-NOLINE)75,70,70 + 70 CALL SKIP(K,NPGS,NUMRUN) + 75 K=K+1 + WRITE OUTPUT TAPE 6,32,THETAD(I),SGMATH(I),SRATIO(I),POLTH(I), + 1SGMAEX(I),POLEX(I) + 90 CONTINUE + GO TO 299 + 1900 CALL SKIP (K,NPGS,NUMRUN) + WRITE OUTPUT TAPE 6,1905 + 1905 FORMAT (120H THETA SIGMATH + 1 SIG-SIGC POL TH + 2) + DO 1920 I=1,JMAX + IF (K-NOLINE) 1910,1908,1908 + 1908 CALL SKIP (K,NPGS,NUMRUN) + 1910 K=K+1 + WRITE OUTPUT TAPE 6,1919,THETAD(I),SGMATH(I),SRATIO(I),POLTH(I) + 1919 FORMAT (1H E20.9,3E30.9) + 1920 CONTINUE + 299 IF(KTRL(6)-1) 300,121,300 + 300 IF(KTRL(12)-1) 25,1700,25 + 1700 CALL SKIP(K,NPGS,NUMRUN) + WRITE OUTPUT TAPE 6,1701 + 1701 FORMAT (92H RHO(I) FFCR FFCI + 1 FFSR FFSI) + DO 1709 I=1,ILAST + IF (K-NOLINE) 1703,1702,1702 + 1702 CALL SKIP (K,NPGS,NUMRUN) + 1703 WRITE OUTPUT TAPE 6,158,RHO(I),FFCR(I),FFCI(I),FFSR(I),FFSI(I) + 158 FORMAT(1H 5E20.9) + 1709 CONTINUE + 25 IF(KTRL(2)-1) 23,22,23 + 22 CALL SKIP (K,NPGS,NUMRUN) + WRITE OUTPUT TAPE 6,95 + 95 FORMAT(120H THETA DSIGMA EX DPOL EX +\end{lstlisting} +%% -----File: 105.png---Folio 100------- +\begin{lstlisting} + 1 CHI SQUARE SIGMA CHI SQUARE POL CHI SQUARE TOTAL ) + DO 120 J=1,JMAX + IF(K-NOLINE) 97,96,96 + 96 CALL SKIP(K,NPGS,NUMRUN) + 97 K=K+1 + WRITE OUTPUT TAPE 6,32,THETAD(J),DSGMEX(J),DPOLEX(J)*CHI2S(J), + 1CHI2P(J))CHI2(J) + 120 CONTINUE + 23 CALL SKIP(K,NPGS,NUMRUN) + 1623 WRITE OUTPUT TAPE 6,1150 + 1150 FORMAT (120H L REAL C(L+l/2) IMA + 1G C(L+1/2) REAL C(L-1/2) IMAG C(L-1/2) + 2) + DO 160 L=1,LMAX + IF (K-NOLINE) 155,153,153 + 153 CALL SKIP (K,NPGS,NUMRUN) + 155 K=K+1 + L1=L-1 + WRITE OUTPUT TAPE 6,1156,L1,CR1(L),CI1(L),CR2(L),CI2(L) + 1156 FORMAT (1H I11,E30.9,3E25.9) + 160 CONTINUE + 121 RETURN +\end{lstlisting} +\clearpage + +%% -----File: 106.png---Folio 101------- + +\begin{lstlisting} + SUBROUTINE SKIP(K,NPGS,NUMRUN) + NPGS=NPGS+1 + WRITE OUTPUT TAPE 6,1510, (NUMRUN(I),I=1,5),NPGS + 1510 FORMAT(12H1RUN NUMBER=I2,1H-I2,1H-I4,3H -I3,3H -I3,79H + 1 PA + 2GE 15/) + K=0 + RETURN + + + + + + SUBROUTINE LEAVE + CALL PDUMP(A,ZZ) + CALL CTRL4 + RETURN +\end{lstlisting} +\clearpage + +%% -----File: 107.png---Folio 102------- + +\begin{lstlisting} +* CARDS COLUMN +* FAP + COUNT 43 +*SPILL SUBROUTINE + ENTRY SPILL + SPILL STZ* 1,4 STORE ZERO IN JSPILL + STZ* 2,4 STORE ZERO IN ISPILL + STZ 0 STORE ZERO IN LOCATION 00000 + CAL 1,4 + STA AA41 SET ADDRESS AA41, + STA AA36 AA36 TO JSPILL + CAL 2,4 SET ADDRESS AA31 + STA AA31 TO ISPILL + CLA* 3,4 SET COMMON STORAGE + STO AA45 + CLA* 4,4 SET COMMON STORAGE + STO AA46 + CAL AA47 PLACE TRANSFER + SLW 8 INSTRUCTION IN LOCATION 8 + TRA 5,4 EXIT TO MAIN PROGRAM + AA16 LDI 0 ENTRY IN CASE OF OVER-OR UNDERFLOW + LFT 4 TEST FOR OVERFLOW + TRA AA36 TRANSFER IN CASE OF OVERFLOW + LFT 16 + TRA AA24 TRANSFER IN CASE OF UNDERFLOW + TRA* 0 TRANSFER TO MAIN PROGRAM, NO UFLOW + AA24 LNT 1 TEST FOR UNDERFLOW + TRA* 0 UNDERFLOW IN AC ONLY + CAL 0 PLACE LOCATION AT WHICH + SUB AA35 UNDERFLOW OCCURRED IN AC + LLS 18 SHIFT LEFT 18 + AA31 STD AA31 STORE IN ISPILL + CLA AA46 SET AC, MQ WITH + LDQ AA46 SPECIFIED CONSTANTS + TRA* 0 EXIT TO MAIN PROGRAM + AA35 HTR 1 CONSTANT + AA36 CLA AA36 TEST IF JSPILL ZERO + TNZ AA42 TRANSFER IN CASE JSPILL NON-ZERO + CAL 0 PLACE LOCATION AT WHICH OVERFLOW OCCURRED + SUB AA35 IN AC + LLS 18 SHIFT LEFT 18 + AA41 STD AA41 STORE IN JSPILL + AA42 CLA AA45 SET AC,MQ WITH SPECIFIED CONSTANTS + LDQ AA45 + TRA* 0 EXIT TO MAIN PROGRAM + AA45 HTR 0 COMMON STORAGE + AA46 HTR 0 COMMON STORAGE + AA47 TRA AA16 INSTRUCTION TO BE INSERTED AT LOC. 8 + END +\end{lstlisting} + +%% -----File: 108.png---Folio 103------- + + +\Chapter{VII.}{Typical Input and Output} + +\Section{A.}{Input Data for Protons against Copper at +\texorpdfstring{$9.75$~\MeV}{9.75 MeV}} +\begin{multicols}{4} +\begin{lstlisting}[basicstyle=\WideDatasize] + 3 + 22 + 1960 + 0 + 0 + 4 + 0 + 1 + 1 + 0 + 1 + 0 + 0 + 0 + 0 + 0 + 0 + 0 + 1 ++0.10000000 +01 ++0.64000000 +02 ++0.97500000 +01 ++0.29000000 +02 ++0.12000000 +01 ++0.62000000 +02 ++0.85000000 +01 ++0.12000000 +01 ++0.52000000 +00 +-0.40000000 +01 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 + 1 + 1 + 1 + 1 +\end{lstlisting} +%% -----File: 109.png---Folio 104------- +\begin{lstlisting}[basicstyle=\WideDatasize] + 1 + 1 + 3 ++0.62500000 -01 ++0.50000000 +00 ++0.10000000 +02 ++0.62500000 -01 ++0.25000000 +00 + 10 + 32 ++0.15200000 +02 ++0.20300000 +02 ++0.25400000 +02 ++0.28000000 +02 ++0.30400000 +02 ++0.33000000 +02 ++0.35500000 +02 ++0.39000000 +02 ++0.40600000 +02 ++0.43000000 +02 ++0.45600000 +02 ++0.47000000 +02 ++0.507000000+02 ++0.51500000 +02 ++0.54000000 +02 ++0.55700000 +02 ++0.57000000 +02 ++0.60000000 +02 ++0.60800000 +02 ++0.65500000 +02 ++0.65800000 +02 ++0.69000000 +02 ++0.70800000 +02 ++0.75500000 +02 ++0.75900000 +02 ++0.80900000 +02 ++0.85900000 +02 ++0.86000000 +02 ++0.90900000 +02 ++0.95500000 +02 ++0.95900000 +02 ++0.10000000 +03 ++0.38650000 +04 ++0.97340000 +03 ++0.42470000 +03 ++0.00000000 +00 ++0.22690000 +03 ++0.00000000 +00 ++0.13460000 +03 ++0.00000000 +00 +\end{lstlisting} +%% -----File: 110.png---Folio 105------- +\begin{lstlisting}[basicstyle=\WideDatasize] ++0.82920000 +02 ++0.00000000 +00 ++0.47660000 +02 ++0.00000000 +00 ++0.22870000 +02 ++0.00000000 +00 ++0.00000000 +00 ++0.12410000 +02 ++0.00000000 +00 ++0.00000000 +00 ++0.64560000 +01 ++0.00000000 +00 ++0.40750000 +01 ++0.00000000 +00 ++0.33390000 +01 ++0.00000000 +00 ++0.33560000 +01 ++0.37570000 +01 ++0.38570000 +01 ++0.00000000 +00 ++0.38460000 +01 ++0.00000000 +00 ++0.37570000 +01 ++0.00000000 +00 ++0.39800000 +03 ++0.35500000 +02 ++0.16700000 +02 ++0.10000000 +30 ++0.90800000 +01 ++0.10000000 +30 ++0.53800000 +01 ++0.10000000 +30 ++0.37300000 +01 ++0.10000000 +30 ++0.19100000 +01 ++0.10000000 +30 ++0.91500000 +00 ++0.10000000 +30 ++0.10000000 +30 ++0.49600000 +00 ++0.10000000 +30 ++0.10000000 +30 ++0.25800000 +00 ++0.10000000 +30 ++0.16300000 +00 ++0.10000000 +30 ++0.13400000 +00 ++0.10000000 +30 ++0.13400000 +00 ++0.15000000 +00 +\end{lstlisting} +%% -----File: 111.png---Folio 106------- +\begin{lstlisting}[basicstyle=\WideDatasize] ++0.15400000 +00 ++0.10000000 +30 ++0.15400000 +00 ++0.10000000 +30 ++0.15000000 +00 ++0.10000000 +30 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 +-0.20000000 -01 ++0.00000000 +00 ++0.10000000 -01 ++0.00000000 +00 +-0.30000000 -01 ++0.00000000 +00 +-0.60000000 -01 ++0.00000000 +00 +-0.10000000 +00 ++0.00000000 +00 +-0.16000000 +00 +-0.20000000 +00 ++0.00000000 +00 +-0.17000000 +00 +-0.17000000 +00 ++0.00000000 +00 +-0.10000000 +00 ++0.00000000 +00 ++0.10000000 -01 ++0.00000000 +00 ++0.20000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.00000000 +00 ++0.13000000 +00 ++0.00000000 +00 ++0.70000000 -01 ++0.00000000 +00 +-0.20000000 -01 ++0.10000000 +30 ++0.10000000 +30 ++0.10000000 +30 ++0.30000000 -01 ++0.10000000 +30 ++0.40000000 -01 ++0.10000000 +30 ++0.30000000 -01 ++0.10000000 +30 ++0.30000000 -01 ++0.10000000 +30 ++0.30000000 -01 +\end{lstlisting} +%% -----File: 112.png---Folio 107------- +\begin{lstlisting}[basicstyle=\WideDatasize] ++0.10000000 +30 ++0.40000000 -01 ++0.40000000 -01 ++0.10000000 +30 ++0.40000000 -01 ++0.30000000 -01 ++0.10000000 +30 ++0.50000000 -01 ++0.10000000 +30 ++0.40000000 -01 ++0.10000000 +30 ++0.60000000 -01 ++0.10000000 +30 ++0.10000000 +30 ++0.10000000 +30 ++0.60000000 -01 ++0.10000000 +30 ++0.50000000 -01 ++0.10000000 +30 ++0.60000000 -01 + 100 +\end{lstlisting} +\end{multicols} + +%% -----File: 113.png---Folio 108------- + + +\Section{B.}{Output Listing} + +\begin{lstlisting}[basicstyle=\VeryWideDatasize] +RUN NUMBER= 2-40-1961 - 1 - 1 PAGE 1 + +PROGRAM NUMBER 4 + +KTRL( 1)=0 +KTRL( 2)=1 +KTRL( 3)=1 +KTRL( 4)=0 +KTRL( 5)=1 +KTRL( 6)=0 +KTRL( 7)=0 +KTRL( 8)=0 +KTRL( 9)=0 +KTRL(10)=0 +KTRL(11)=0 +KTRL(12)=0 +KTRL(13)=1 + +BASIC DATA + +MSUB1= 0.099999994E 01 MSUBB= 0.639999993E 02 ELAB= 0.974999994E 01 ZZP= 0.289999999E 02 + + V= 0.619999997E 02 W= 0.849999994E 01 A= 0.519999996E 00 RO= 0.119999997E 01 + + VS=-0.399999999E 01 WS= 0. RC= 0.119999997E 01 + + 9 BG= 0. RG= 0. + +RHOBN= 0.393980615E 01 RHOBC= 0.323980615E 01 RHOBNG= 0. ECM= 0.959999986E 01 + + ETA= 0.146788672E 01 K= 0.674959674E 00 KA= 0.350979023E-00 KB= 0. + +INTEGRATION DATA + +RHOMAX= 0.099999994E 02 LMAXM= 10 + +NMAX= 3 + +RHOIN + + 0.625000000E-01 0.500000000E 00 0.099999994E 02 + +DRHOIN + + 0.625000000E-01 0.250000000E-00 + +SIGMAR(TH)= 0.668857820E 02 + +SUM OF CHI SQUARE SIGMA= 0.587550342E 02 + +SUM OF CHI SQUARE POL= 0.999665476E 02 + +SUM OF CHI SQUARE TOTAL= 0.158721581E 03 +\end{lstlisting} + +%% -----File: 114.png---Folio 109------- + +\begin{landscape} +\begin{lstlisting}[basicstyle=\VeryWideDatasize] +RUN NUMBER= 2-40-1961 - 1 - 1 PAGE 2 + + THETA SIGMATH SIG-SIGC POL TH SIGMA EX POL EX + 0.151999995E 02 0.366688885E 04 0.948844409E 00 0.624454483E-03 0.386499993E 04 0. + 0.202999994E 02 0.107591100E 04 0.877576292E 00 -0.488765538E-02 0.973399989E 03 0. + 0.253999993E 02 0.437771246E 03 0.864875652E 00 -0.126092605E-01 0.424699992E 03 0. + 0.279999994E 02 0.302826010E 03 0.877252147E 00 -0.152099080E-01 0. 0.199999996E-01 + 0.303999998E 02 0.223364875E 03 0.892697871E 00 -0.161199562E-01 0.226899996E 03 0. + 0.329999998E 02 0.164800696E 03 0.906894624E 00 -0.153716959E-01 0. -0.999999985E-02 + 0.354999997E 02 0.124848992E 03 0.912098765E 00 -0.130572930E-01 0.134599991E 03 0. + 0.389999993E 02 0.854579188E 02 0.897354133E 00 -0.757811405E-02 0. 0.299999997E-01 + 0.405999996E 02 0.718648233E 02 0.880526960E 00 -0.435241245E-02 0.829199985E 02 0. + 0.430000006E 02 0.552558191E 02 0.843160637E 00 0.115248807E-02 0. 0.599999994E-01 + 0.455999993E 02 0.412997656E 02 0.787652783E 00 0.776244439E-02 0.476599991E 02 0. + 0.469999999E 02 0.351879030E 02 0.752354726E 00 0.114611000E-01 0. 0.999999993E-01 + 0.506999992E 02 0.227685094E 02 0.647046342E 00 0.208112434E-01 0.228699997E 02 0. + 0.514999993E 02 0.206800543E 02 0.623049393E 00 0.225530863E-01 0. 0.159999996E-00 + 0.539999999E 02 0.152632877E 02 0.548359923E 00 0.265358075E-01 0. 0.199999996E-00 + 0.556999996E 02 0.124075061E 02 0.499775782E-00 0.272366613E-01 0.124100000E 02 0. + 0.569999993E 02 0.106054634E 02 0.464955918E-00 0.261134841E-01 0. 0.169999994E-00 + 0.599999994E 02 0.749187976E 01 0.396005623E-00 0.156014524E-01 0. 0.169999994E-00 + 0.607999995E 02 0.686953478E 01 0.380956881E-00 0.104624555E-01 0.645599991E 01 0. + 0.654999994E 02 0.452632517E 01 0.327856168E-00 -0.413961068E-01 0. 0.999999993E-01 + 0.657999992E 02 0.443769753E 01 0.326697305E-00 -0.457080074E-01 0.407499999E 01 0. + 0.689999998E 02 0.381219082E 01 0.331831254E-00 -0.927333571E-01 0. -0.999999985E-02 + 0.707999989E 02 0.366038024E 01 0.348589554E-00 -0.115995258E-00 0.333899997E 01 0. + 0.754999995E 02 0.365827605E 01 0.434639670E-00 -0.151801050E-00 0. -0.199999996E-00 + 0.758999996E 02 0.367384672E 01 0.444403417E-00 -0.153142102E-00 0.335599996E 01 0. + 0.808999993E 02 0.392783776E 01 0.588552453E 00 -0.153684869E-00 0.375699997E 01 0. + 0.858999990E 02 0.411561452E 01 0.750190347E 00 -0.136236615E-00 0.385699995E 01 0. + 0.859999999E 02 0.411754631E 01 0.753359631E 00 -0.135786600E-00 0. -0.129999995E-00 + 0.908999994E 02 0.410156414E 01 0.894658349E 00 -0.110665120E-00 0.384599999E 01 0. + 0.954999998E 02 0.388636135E 01 0.986762404E 00 -0.826589502E-01 0. -0.699999988E-01 + 0.958999991E 02 0.385919407E 01 0.992326975E 00 -0.800342456E-01 0.375699997E 01 0. + 0.099999994E 03 0.351563454E 01 0.102388248E 01 -0.512336008E-01 0. 0.199999996E-01 +\end{lstlisting} +\end{landscape} + +%% -----File: 115.png---Folio 110------- + +\begin{landscape} +\begin{lstlisting}[basicstyle=\VeryWideDatasize] +RUN NUMBER= 2-40-1961 - 1 - 1 PAGE 3 + THETA DSIGMA EX DPOL EX CHI SQUARE SIGMA CHI SQUARE POL CHI SQUARE TOTAL + 0.151999995E 02 0.397999994E 03 0.099999994E 30 0.247771524E-00 0. 0.247771524E-00 + 0.202999994E 02 0.354999997E 02 0.099999994E 30 0.833843596E 01 0. 0.833843596E 01 + 0.253999993E 02 0.166999996E 02 0.099999994E 30 0.612634748E 00 0. 0.612634748E 00 + 0.279999994E 02 0.099999994E 30 0.299999997E-01 0. 0.137748629E 01 0.137748629E 01 + 0.303999998E 02 0.907999992E 01 0.099999994E 30 0.151578002E-00 0. 0.151578002E-00 + 0.329999998E 02 0.099999994E 30 0.399999991E-01 0. 0.180344537E-01 0.180344537E-01 + 0.354999997E 02 0.537999995E 01 0.099999994E 30 0.328498974E 01 0. 0.328498974E 01 + 0.389999993E 02 0.099999994E 30 0.299999997E-01 0. 0.156901620E 01 0.156901620E 01 + 0.405999996E 02 0.372999996E 01 0.099999994E 30 0.878443092E 01 0. 0.878443092E 01 + 0.430000000E 02 0.099999994E 30 0.299999997E-01 0. 0.384781063E 01 0.384781063E 01 + 0.455999993E 02 0.191000000E 01 0.099999994E 30 0.110886693E 02 0. 0.110886693E 02 + 0.469999999E 02 0.099999994E 30 0.299999997E-01 0. 0.871015161E 01 0.871015161E 01 + 0.506999992E 02 0.914999999E 00 0.099999994E 30 0.123029307E-01 0. 0.123029307E-01 + 0.514999993E 02 0.099999994E 30 0.399999991E-01 0. 0.118072823E 02 0.118072823E 02 + 0.539999999E 02 0.099999994E 30 0.399999991E-01 0. 0.188061401E 02 0.188061401E 02 + 0.556999996E 02 0.495999999E-00 0.099999994E 30 0.232838377E-04 0. 0.232838377E-04 + 0.569999993E 02 0.099999994E 30 0.399999991E-01 0. 0.129395790E 02 0.129395790E 02 + 0.599999994E 02 0.099999994E 30 0.299999997E-01 0. 0.264876761E 02 0.264876761E 02 + 0.607999995E 02 0.257999994E-00 0.099999994E 30 0.256912217E 01 0. 0.256912217E 01 + 0.654999994E 02 0.099999994E 30 0.499999993E-01 0. 0.799714297E 01 0.799714297E 01 + 0.657999992E 02 0.162999995E-00 0.099999994E 30 0.495124198E 01 0. 0.495124198E 01 + 0.689999998E 02 0.099999994E 30 0.399999991E-01 0. 0.427800477E 01 0.427800477E 01 + 0.707999989E 02 0.133999996E-00 0.099999994E 30 0.575213231E 01 0. 0.575213231E 01 + 0.754999995E 02 0.099999994E 30 0.599999994E-01 0. 0.645316236E 00 0.645316236E 00 + 0.758999996E 02 0.133999996E-00 0.099999994E 30 0.562634163E 01 0. 0.562634163E 01 + 0.808999993E 02 0.149999999E-00 0.099999994E 30 0.129713513E 01 0. 0.129713513E 01 + 0.858999990E 02 0.153999999E-00 0.099999994E 30 0.282009937E 01 0. 0.282009937E 01 + 0.859999999E 02 0.099999994E 30 0.599999994E-01 0. 0.930132821E-02 0.930132821E-02 + 0.908999994E 02 0.153999999E-00 0.099999994E 30 0.275396556E 01 0. 0.275396556E 01 + 0.954999998E 02 0.099999994E 30 0.499999993E-01 0. 0.640996160E-01 0.640996180E-01 + 0.958999991E 02 0.149999999E-00 0.099999994E 30 0.464161523E-00 0. 0.464161523E-00 + 0.099999994E 03 0.099999994E 30 0.599999994E-01 0. 0.140950717E 01 0.140950717E 01 +\end{lstlisting} +\end{landscape} + +%% -----File: 116.png---Folio 111------- + +\begin{landscape} +\begin{lstlisting}[basicstyle=\VeryWideDatasize] +RUN NUMBER= 2-40-1961 - 1 - 1 PAGE 4 + L REAL C(L+1/2) IMAG C(L+1/2) REAL C(L-1/2) IMAG C(L-1/2) + 0 -0.149473831E-00 0.621800341E 00 -0.139704145E-00 0.618552327E 00 + 1 -0.890974633E-01 0.280818105E-00 -0.112762213E-00 0.266789824E-00 + 2 -0.187045686E-00 0.241325634E-00 -0.174136B25E-00 0.274325125E-00 + 3 0.670826085E-01 0.135792047E-00 0.546362303E-01 0.848520368E-01 + 4 0.756759964E-02 0.149855547E-01 0.229124613E-02 0.170210496E-01 + 5 0.503797509E-02 0.559476413E-02 0.384988777E-02 0.176129699E-02 + 6 0.628714196E-03 0.123979807E-03 0.362633042E-03 0.807685591E-04 + 7 0.627130263E-04 0.826003924E-05 0.370286375E-04 0.729130283E-05 + 8 0.713366367E-05 0.780125931E-06 0.441690803E-05 0.750615060E-06 + 9 0.130098701E-05 0.808378339E-07 0.101125993E-05 0.797655620E-07 + 10 0.413292557E-06 0.833891876E-08 0.381933421E-06 0.844628319E-08 +\end{lstlisting} +\end{landscape} + +%% -----File: 117.png---Folio 112------- + + +\Chapter{VIII.}{Further Subroutines and Programs in Preparation} + +The following subroutines are presently being prepared at UCLA: + +\Subroutine{\Code{TV}} + +This subroutine is designed to output on CRT and on film various required +curves such as $\sigma(\theta)$ vs~$\theta$, $\sigma(\theta)/\sigma_c(\theta)$ vs~$\theta$, $P(\theta)$ vs~$\theta$. + +\Subroutine{\Code{RHOBEG}} + +This subroutine will make use of the quantities \Code{IIN(L)} to allow the +numerical integrations to start at different values of~$\rho$ depending upon~$\ell$ +in order to speed up the numerical integration. + +\Subroutine{\Code{FLUX}} + +This subroutine will if desired compute the normalized total wave functions, +the scattered flux~$\vec{j}$, the divergence and the curl of~$\vec{j}$ at specified +values of~$\rho$ and~$\theta$. + +All the above subroutines will of course require some modification of +the basic program. + +The following programs are presently being prepared at UCLA: + +\Program{\SCAT{3}} + +This program will be similar to program \SCAT{4} except that it will treat +incident and target particles of zero spin, thus speeding up the calculation +for that case. + +\Program{\SCAT{5}} + +This is a modified version of program \SCAT{4} offering a simplified input +and using only as many $\ell$'s as may be significant in the $C_\ell$'s calculations. + +\Program{\SCAT{K}} + +This is a modified version of program \SCAT{4} designed to analyze the scattering +of K-mesons against complex nuclei, including the use of an approximate +Klein-Gordon equation, relativistic kinematic corrections, and averaging of +the cross sections over angles, energies, and representative nuclei. + +%% -----File: 118.png---Folio 113------- + +\Program{\SCAT{6}} + +This is a modified version of program \SCAT{4} designed to calculate cross +sections and polarization of spin~$1$ particles scattered by $0$~spin targets. + +\Program{\Acro{SEEK~4}} + +This is a program designed to search automatically the parameter space +so as to minimize $\chi^{2}$. + +%% -----File: 119.png---Folio 114------- + +\clearpage +\section*{\centering\normalsize\bfseries BIBLIOGRAPHY OF DIFFUSE SURFACE OPTICAL MODEL +ANALYSES BY MACHINE CALCULATIONS} +\phantomsection\pdfbookmark[0]{Bibliography}{Bibliography} + +\begin{Biblio} +\item[] R.~D.~Albert, $(p,n)$ Cross Sections and Proton Optical-Model Parameters in + 4- to 5.5-\MeV\ Energy Region, UCRL-5488 (1959). + +\item[] H.~J.~Amster, Optical Model Evidence for Surface Absorption of Neutrons, + Phys.\ Rev.\ \textbf{113}, 911 (1959). + +\item[] H.~J.~Amster and L.~M.~Culpepper, Surface Modified Nuclear Optical Model: + Description of the \Code{SUMNUM} Code for the \Acro{NORC} Computer, WAPD-TM-87, + Bettis Plant of the AEC, Pittsburgh, Pa. + +\item[] Baker, Byfield, and Rainwater, Theoretical Calculations of the Scattering + of $\pi$-Mesons by Complex Nuclei, Phys.\ Rev.\ \textbf{112}, 1773 (1958). + +\item[] H.~R.~Beyster, Predictions of Fast Neutrons Scattering Data with a Diffuse + Surface Potential Well, LA-2099 (1956). + +\item[] Beyster, Walt and Salmi, Interaction of 1.0-, 2.5-, 3.25-, and 7.0-\MeV\ + Neutrons with Nuclei Phys.\ Rev.\ \textbf{104}, 1319 (1956). + +\item[] Bjorklund, Blandford and Fernbach, Analysis of Elastic Scattering and + Polarization of 300-\MeV\ Protons, Phys.\ Rev.\ \textbf{108}, 795 (1957). + +\item[] F.~Bjorklund and S.~Fernbach, Elastic Scattering of 7-\MeV\ Neutrons + (Theoretical Curves), UCRL-4927-T (1957). + +\item[] F.~Bjorklund and S.~Fernbach, Optical-Model Analysis of Scattering of 4.1-, + 7-, and 14-\MeV\ Neutrons by Complex Nuclei, Phys.\ Rev.\ \textbf{109}. 1295 (1958). + +\item[] F.~Bjorklund and S.~Fernbach, Exact Phase-Shift Calculation for Nucleon-Nuclear + Scattering, UCRL-5028 (1958). + +\item[] Bjorklund, Fernbach and Sherman, Optical Model of Nucleus with Absorbing + Surface, Phys.\ Rev.\ \textbf{101}, 1832 (1956). + +\item[] W.~B.~Cheston and A.~E.~Glassgold, Elastic Scattering % [** PP: Typo Scatering] + of Alpha-Particles with + the Optical Model, Phys.\ Rev.\ \textbf{106}, 1215 (1957). + +\item[] Culler, Fernbach and Sherman, Optical Model Analysis of Scattering of 14-\MeV\ + Neutrons, Phys.\ Rev.\ \textbf{101}, 1047 (1956). + +\item[] Eisberg, Gugelot and Porter, Conference on the Statistical Aspects of the + Nucleus, Brookhaven National Laboratory (1955). + +\item[] W.~S.~Emmerich, Cross Section Calculations for Fast Neutron Scattering, + Westinghouse Research Report 60-94511-6-R17 (1957). + +\item[] W.~S.~Emmerich, Optical Model Theory of Neutron Scattering and Reactions, + Westinghouse Research Report 6-94511-6-R20 (1958). + +%% -----File: 120.png---Folio 115------- + +\item[] Franklin, Margolis and Oberthal, Scattering of $\mu$-Mesons by Nuclei, Phys.\ Rev.\ + \textbf{111}, 296 (1958). + +\item[] Glassgold, Cheston, Stein, Schuld and Erickson, Analysis of Proton-Nucleus + Scattering at 9.8~\MeV, Phys.\ Rev.\ \textbf{106}, 1207 (1958). + +\item[] A.~E.~Glassgold, Interaction of Antiprotons with Complex Nuclei, Phys.\ Rev.\ + \textbf{110}, 220 (1958). + +\item[] A.~E.~Glassgold and P.~J.~Kellogg, Proton-Nucleus Scattering at 17~\MeV, + Phys.\ Rev.\ \textbf{107}, 1372 (1957). + +\item[] A.~E.~Glassgold and P.~J.~Kellogg, Nuclear Scattering of 40- and 95-\MeV\ + Protons, Phys.\ Rev.\ \textbf{109}, 1291 (1958). + +\item[] Green, Porter and Saxon, Proceedings of the International Conference on the + Nuclear Optical Model, Florida State University, Tallahassee (1959). + +\item[] G.~Igo, Optical-Model Analysis of the Elastic Scattering of Alpha Particles, + Phys.\ Rev.\ \textbf{106}, 126 (1957). + +\item[] G.~Igo, Optical Model Potential at the Nuclear Surface for the Elastic + Scattering of Alpha Particles, Phys.\ Rev.\ Let.\ \textbf{1}, 72 (1958). + +\item[] G.~Igo, Optical Model Analysis of the Scattering of Alpha Particles from + Helium (in press). + +\item[] G.~Igo, Optical-Model Analysis of Excitation Function Data and Theoretical + Reaction Cross Sections for Alpha Particles, Phys.\ Rev.\ \textbf{115}, 1665 (1959). + +\item[] Igo, Ravenhall, Tiemann, Chupp, Goldhaber, Goldhaber, Lanutti and Thaler, + The Scattering of $K^+$-Mesons in Emulsion, Phys.\ Rev.\ \textbf{109}, 2133 (1958). + +\item[] R.~Jastrow and I.~Harris, Nuclear Cross Sections for the Scattering of + Neutrons and Protons, Proceedings of the ONR Decennial Symposium (1957). + +\item[] Lukyanov, Orlov and Turovstev, Optical Model of the Interaction between + Intermediate Energy Neutrons and Nuclei, Nucl.\ Phys.\ \textbf{8}, 325 (1958). + +\item[] I.~E.~McCarthy, Flux of Particles in the Optical Model, Nucl.\ Phys.\ \textbf{10}, + 583 (1959). + +\item[] Melkanoff, Moszkowski, Nodvik and Saxon, Energy Dependence of the Optical + Model Parameters, Phys.\ Rev.\ \textbf{101}, 507 (1956). + +\item[] Melkanoff, Nodvik and Saxon, Diffuse-Surface Optical Model Analysis of + Elastic Scattering of 17- and 31.5-\MeV\ Protons, Phys.\ Rev.\ \textbf{106}, 793 (1957). + +\item[] Melkanoff, Price, Stork and Ticho, Optical Model Analysis of Elastic + Scattering of 125-\MeV\ $K^+$-Mesons in Nuclear Emulsions, Phys.\ Rev.\ \textbf{113}, + 1303 (1959). + +\item[] University of Minnesota Annual Progress Report 1956-1957, 1957-1958, 1958, + University of Minnesota Linear Accelerator Laboratory, Minneapolis, Minn. + +%% -----File: 121.png---Folio 116------- + +\item[] J.~S.~Nodvik and D.~S.~Saxon, Analysis of Elastic Cross Sections and + Polarization of 10 \MeV\ Protons (in press). + +\item[] C.~E.~Porter, Nitrogen-Nitrogen Elastic Scattering, Phys.\ Rev.\ \textbf{112}, 1722 + (1958). + +\item[] H.~M.~Shey, Scattering of Neutrons by Non-spherical Nuclei, Phys.\ Rev.\ + \textbf{113}, 900 (1959). + +\item[] R.~D.~Woods and D.~S.~Saxon, Diffuse Surface Optical Model for Nucleon-Nuclei + Scattering, Phys.\ Rev.\ \textbf{95}, 577 (1954). +\end{Biblio} + +%%%%%%%%%%%%%%%%%%%%%%% BACK MATTER %%%%%%%%%%%%%%%%%%%%%%%%% + +\clearpage + +\phantomsection +\pdfbookmark[0]{PG License}{Project Gutenberg License} +\fancyhead[C]{\textit{LICENSING}} + +\begin{PGtext} +End of the Project Gutenberg EBook of A Fortran Program for Elastic +Scattering Analyses with the Nuclear Optical Model, by Michel A. Melkanoff +and David S. Saxon and John S. Nodvik and David G. Cantor + +*** END OF THIS PROJECT GUTENBERG EBOOK ELASTIC SCATTERING ANALYSES *** + +***** This file should be named 29784-pdf.pdf or 29784-pdf.zip ***** +This and all associated files of various formats will be found in: + http://www.gutenberg.org/2/9/7/8/29784/ + +Produced by David Starner, Andrew D. Hwang, and the Online +Distributed Proofreading Team at http://www.pgdp.net + + +Updated editions will replace the previous one--the old editions +will be renamed. + +Creating the works from public domain print editions means that no +one owns a United States copyright in these works, so the Foundation +(and you!) can copy and distribute it in the United States without +permission and without paying copyright royalties. Special rules, +set forth in the General Terms of Use part of this license, apply to +copying and distributing Project Gutenberg-tm electronic works to +protect the PROJECT GUTENBERG-tm concept and trademark. Project +Gutenberg is a registered trademark, and may not be used if you +charge for the eBooks, unless you receive specific permission. If you +do not charge anything for copies of this eBook, complying with the +rules is very easy. You may use this eBook for nearly any purpose +such as creation of derivative works, reports, performances and +research. They may be modified and printed and given away--you may do +practically ANYTHING with public domain eBooks. Redistribution is +subject to the trademark license, especially commercial +redistribution. + + + +*** START: FULL LICENSE *** + +THE FULL PROJECT GUTENBERG LICENSE +PLEASE READ THIS BEFORE YOU DISTRIBUTE OR USE THIS WORK + +To protect the Project Gutenberg-tm mission of promoting the free +distribution of electronic works, by using or distributing this work +(or any other work associated in any way with the phrase "Project +Gutenberg"), you agree to comply with all the terms of the Full Project +Gutenberg-tm License (available with this file or online at +http://gutenberg.org/license). + + +Section 1. General Terms of Use and Redistributing Project Gutenberg-tm +electronic works + +1.A. By reading or using any part of this Project Gutenberg-tm +electronic work, you indicate that you have read, understand, agree to +and accept all the terms of this license and intellectual property +(trademark/copyright) agreement. If you do not agree to abide by all +the terms of this agreement, you must cease using and return or destroy +all copies of Project Gutenberg-tm electronic works in your possession. +If you paid a fee for obtaining a copy of or access to a Project +Gutenberg-tm electronic work and you do not agree to be bound by the +terms of this agreement, you may obtain a refund from the person or +entity to whom you paid the fee as set forth in paragraph 1.E.8. + +1.B. "Project Gutenberg" is a registered trademark. It may only be +used on or associated in any way with an electronic work by people who +agree to be bound by the terms of this agreement. There are a few +things that you can do with most Project Gutenberg-tm electronic works +even without complying with the full terms of this agreement. See +paragraph 1.C below. There are a lot of things you can do with Project +Gutenberg-tm electronic works if you follow the terms of this agreement +and help preserve free future access to Project Gutenberg-tm electronic +works. See paragraph 1.E below. + +1.C. The Project Gutenberg Literary Archive Foundation ("the Foundation" +or PGLAF), owns a compilation copyright in the collection of Project +Gutenberg-tm electronic works. Nearly all the individual works in the +collection are in the public domain in the United States. If an +individual work is in the public domain in the United States and you are +located in the United States, we do not claim a right to prevent you from +copying, distributing, performing, displaying or creating derivative +works based on the work as long as all references to Project Gutenberg +are removed. Of course, we hope that you will support the Project +Gutenberg-tm mission of promoting free access to electronic works by +freely sharing Project Gutenberg-tm works in compliance with the terms of +this agreement for keeping the Project Gutenberg-tm name associated with +the work. You can easily comply with the terms of this agreement by +keeping this work in the same format with its attached full Project +Gutenberg-tm License when you share it without charge with others. + +1.D. The copyright laws of the place where you are located also govern +what you can do with this work. Copyright laws in most countries are in +a constant state of change. If you are outside the United States, check +the laws of your country in addition to the terms of this agreement +before downloading, copying, displaying, performing, distributing or +creating derivative works based on this work or any other Project +Gutenberg-tm work. The Foundation makes no representations concerning +the copyright status of any work in any country outside the United +States. + +1.E. Unless you have removed all references to Project Gutenberg: + +1.E.1. The following sentence, with active links to, or other immediate +access to, the full Project Gutenberg-tm License must appear prominently +whenever any copy of a Project Gutenberg-tm work (any work on which the +phrase "Project Gutenberg" appears, or with which the phrase "Project +Gutenberg" is associated) is accessed, displayed, performed, viewed, +copied or distributed: + +This eBook is for the use of anyone anywhere at no cost and with +almost no restrictions whatsoever. You may copy it, give it away or +re-use it under the terms of the Project Gutenberg License included +with this eBook or online at www.gutenberg.org + +1.E.2. If an individual Project Gutenberg-tm electronic work is derived +from the public domain (does not contain a notice indicating that it is +posted with permission of the copyright holder), the work can be copied +and distributed to anyone in the United States without paying any fees +or charges. If you are redistributing or providing access to a work +with the phrase "Project Gutenberg" associated with or appearing on the +work, you must comply either with the requirements of paragraphs 1.E.1 +through 1.E.7 or obtain permission for the use of the work and the +Project Gutenberg-tm trademark as set forth in paragraphs 1.E.8 or +1.E.9. + +1.E.3. If an individual Project Gutenberg-tm electronic work is posted +with the permission of the copyright holder, your use and distribution +must comply with both paragraphs 1.E.1 through 1.E.7 and any additional +terms imposed by the copyright holder. Additional terms will be linked +to the Project Gutenberg-tm License for all works posted with the +permission of the copyright holder found at the beginning of this work. + +1.E.4. Do not unlink or detach or remove the full Project Gutenberg-tm +License terms from this work, or any files containing a part of this +work or any other work associated with Project Gutenberg-tm. + +1.E.5. Do not copy, display, perform, distribute or redistribute this +electronic work, or any part of this electronic work, without +prominently displaying the sentence set forth in paragraph 1.E.1 with +active links or immediate access to the full terms of the Project +Gutenberg-tm License. + +1.E.6. You may convert to and distribute this work in any binary, +compressed, marked up, nonproprietary or proprietary form, including any +word processing or hypertext form. However, if you provide access to or +distribute copies of a Project Gutenberg-tm work in a format other than +"Plain Vanilla ASCII" or other format used in the official version +posted on the official Project Gutenberg-tm web site (www.gutenberg.org), +you must, at no additional cost, fee or expense to the user, provide a +copy, a means of exporting a copy, or a means of obtaining a copy upon +request, of the work in its original "Plain Vanilla ASCII" or other +form. Any alternate format must include the full Project Gutenberg-tm +License as specified in paragraph 1.E.1. + +1.E.7. Do not charge a fee for access to, viewing, displaying, +performing, copying or distributing any Project Gutenberg-tm works +unless you comply with paragraph 1.E.8 or 1.E.9. + +1.E.8. You may charge a reasonable fee for copies of or providing +access to or distributing Project Gutenberg-tm electronic works provided +that + +- You pay a royalty fee of 20% of the gross profits you derive from + the use of Project Gutenberg-tm works calculated using the method + you already use to calculate your applicable taxes. The fee is + owed to the owner of the Project Gutenberg-tm trademark, but he + has agreed to donate royalties under this paragraph to the + Project Gutenberg Literary Archive Foundation. Royalty payments + must be paid within 60 days following each date on which you + prepare (or are legally required to prepare) your periodic tax + returns. Royalty payments should be clearly marked as such and + sent to the Project Gutenberg Literary Archive Foundation at the + address specified in Section 4, "Information about donations to + the Project Gutenberg Literary Archive Foundation." + +- You provide a full refund of any money paid by a user who notifies + you in writing (or by e-mail) within 30 days of receipt that s/he + does not agree to the terms of the full Project Gutenberg-tm + License. You must require such a user to return or + destroy all copies of the works possessed in a physical medium + and discontinue all use of and all access to other copies of + Project Gutenberg-tm works. + +- You provide, in accordance with paragraph 1.F.3, a full refund of any + money paid for a work or a replacement copy, if a defect in the + electronic work is discovered and reported to you within 90 days + of receipt of the work. + +- You comply with all other terms of this agreement for free + distribution of Project Gutenberg-tm works. + +1.E.9. If you wish to charge a fee or distribute a Project Gutenberg-tm +electronic work or group of works on different terms than are set +forth in this agreement, you must obtain permission in writing from +both the Project Gutenberg Literary Archive Foundation and Michael +Hart, the owner of the Project Gutenberg-tm trademark. Contact the +Foundation as set forth in Section 3 below. + +1.F. + +1.F.1. Project Gutenberg volunteers and employees expend considerable +effort to identify, do copyright research on, transcribe and proofread +public domain works in creating the Project Gutenberg-tm +collection. Despite these efforts, Project Gutenberg-tm electronic +works, and the medium on which they may be stored, may contain +"Defects," such as, but not limited to, incomplete, inaccurate or +corrupt data, transcription errors, a copyright or other intellectual +property infringement, a defective or damaged disk or other medium, a +computer virus, or computer codes that damage or cannot be read by +your equipment. + +1.F.2. LIMITED WARRANTY, DISCLAIMER OF DAMAGES - Except for the "Right +of Replacement or Refund" described in paragraph 1.F.3, the Project +Gutenberg Literary Archive Foundation, the owner of the Project +Gutenberg-tm trademark, and any other party distributing a Project +Gutenberg-tm electronic work under this agreement, disclaim all +liability to you for damages, costs and expenses, including legal +fees. YOU AGREE THAT YOU HAVE NO REMEDIES FOR NEGLIGENCE, STRICT +LIABILITY, BREACH OF WARRANTY OR BREACH OF CONTRACT EXCEPT THOSE +PROVIDED IN PARAGRAPH F3. YOU AGREE THAT THE FOUNDATION, THE +TRADEMARK OWNER, AND ANY DISTRIBUTOR UNDER THIS AGREEMENT WILL NOT BE +LIABLE TO YOU FOR ACTUAL, DIRECT, INDIRECT, CONSEQUENTIAL, PUNITIVE OR +INCIDENTAL DAMAGES EVEN IF YOU GIVE NOTICE OF THE POSSIBILITY OF SUCH +DAMAGE. + +1.F.3. LIMITED RIGHT OF REPLACEMENT OR REFUND - If you discover a +defect in this electronic work within 90 days of receiving it, you can +receive a refund of the money (if any) you paid for it by sending a +written explanation to the person you received the work from. If you +received the work on a physical medium, you must return the medium with +your written explanation. The person or entity that provided you with +the defective work may elect to provide a replacement copy in lieu of a +refund. If you received the work electronically, the person or entity +providing it to you may choose to give you a second opportunity to +receive the work electronically in lieu of a refund. If the second copy +is also defective, you may demand a refund in writing without further +opportunities to fix the problem. + +1.F.4. Except for the limited right of replacement or refund set forth +in paragraph 1.F.3, this work is provided to you 'AS-IS' WITH NO OTHER +WARRANTIES OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO +WARRANTIES OF MERCHANTIBILITY OR FITNESS FOR ANY PURPOSE. + +1.F.5. Some states do not allow disclaimers of certain implied +warranties or the exclusion or limitation of certain types of damages. +If any disclaimer or limitation set forth in this agreement violates the +law of the state applicable to this agreement, the agreement shall be +interpreted to make the maximum disclaimer or limitation permitted by +the applicable state law. The invalidity or unenforceability of any +provision of this agreement shall not void the remaining provisions. + +1.F.6. INDEMNITY - You agree to indemnify and hold the Foundation, the +trademark owner, any agent or employee of the Foundation, anyone +providing copies of Project Gutenberg-tm electronic works in accordance +with this agreement, and any volunteers associated with the production, +promotion and distribution of Project Gutenberg-tm electronic works, +harmless from all liability, costs and expenses, including legal fees, +that arise directly or indirectly from any of the following which you do +or cause to occur: (a) distribution of this or any Project Gutenberg-tm +work, (b) alteration, modification, or additions or deletions to any +Project Gutenberg-tm work, and (c) any Defect you cause. + + +Section 2. Information about the Mission of Project Gutenberg-tm + +Project Gutenberg-tm is synonymous with the free distribution of +electronic works in formats readable by the widest variety of computers +including obsolete, old, middle-aged and new computers. It exists +because of the efforts of hundreds of volunteers and donations from +people in all walks of life. + +Volunteers and financial support to provide volunteers with the +assistance they need, are critical to reaching Project Gutenberg-tm's +goals and ensuring that the Project Gutenberg-tm collection will +remain freely available for generations to come. In 2001, the Project +Gutenberg Literary Archive Foundation was created to provide a secure +and permanent future for Project Gutenberg-tm and future generations. +To learn more about the Project Gutenberg Literary Archive Foundation +and how your efforts and donations can help, see Sections 3 and 4 +and the Foundation web page at http://www.pglaf.org. + + +Section 3. Information about the Project Gutenberg Literary Archive +Foundation + +The Project Gutenberg Literary Archive Foundation is a non profit +501(c)(3) educational corporation organized under the laws of the +state of Mississippi and granted tax exempt status by the Internal +Revenue Service. The Foundation's EIN or federal tax identification +number is 64-6221541. Its 501(c)(3) letter is posted at +http://pglaf.org/fundraising. Contributions to the Project Gutenberg +Literary Archive Foundation are tax deductible to the full extent +permitted by U.S. federal laws and your state's laws. + +The Foundation's principal office is located at 4557 Melan Dr. S. +Fairbanks, AK, 99712., but its volunteers and employees are scattered +throughout numerous locations. Its business office is located at +809 North 1500 West, Salt Lake City, UT 84116, (801) 596-1887, email +business@pglaf.org. Email contact links and up to date contact +information can be found at the Foundation's web site and official +page at http://pglaf.org + +For additional contact information: + Dr. Gregory B. Newby + Chief Executive and Director + gbnewby@pglaf.org + + +Section 4. Information about Donations to the Project Gutenberg +Literary Archive Foundation + +Project Gutenberg-tm depends upon and cannot survive without wide +spread public support and donations to carry out its mission of +increasing the number of public domain and licensed works that can be +freely distributed in machine readable form accessible by the widest +array of equipment including outdated equipment. Many small donations +($1 to $5,000) are particularly important to maintaining tax exempt +status with the IRS. + +The Foundation is committed to complying with the laws regulating +charities and charitable donations in all 50 states of the United +States. Compliance requirements are not uniform and it takes a +considerable effort, much paperwork and many fees to meet and keep up +with these requirements. We do not solicit donations in locations +where we have not received written confirmation of compliance. To +SEND DONATIONS or determine the status of compliance for any +particular state visit http://pglaf.org + +While we cannot and do not solicit contributions from states where we +have not met the solicitation requirements, we know of no prohibition +against accepting unsolicited donations from donors in such states who +approach us with offers to donate. + +International donations are gratefully accepted, but we cannot make +any statements concerning tax treatment of donations received from +outside the United States. U.S. laws alone swamp our small staff. + +Please check the Project Gutenberg Web pages for current donation +methods and addresses. Donations are accepted in a number of other +ways including checks, online payments and credit card donations. +To donate, please visit: http://pglaf.org/donate + + +Section 5. General Information About Project Gutenberg-tm electronic +works. + +Professor Michael S. Hart is the originator of the Project Gutenberg-tm +concept of a library of electronic works that could be freely shared +with anyone. For thirty years, he produced and distributed Project +Gutenberg-tm eBooks with only a loose network of volunteer support. + + +Project Gutenberg-tm eBooks are often created from several printed +editions, all of which are confirmed as Public Domain in the U.S. +unless a copyright notice is included. Thus, we do not necessarily +keep eBooks in compliance with any particular paper edition. + + +Most people start at our Web site which has the main PG search facility: + + http://www.gutenberg.org + +This Web site includes information about Project Gutenberg-tm, +including how to make donations to the Project Gutenberg Literary +Archive Foundation, how to help produce our new eBooks, and how to +subscribe to our email newsletter to hear about new eBooks. +\end{PGtext} + +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % +% % +% End of the Project Gutenberg EBook of A Fortran Program for Elastic % +% Scattering Analyses with the Nuclear Optical Model, by Michel A. Melkanoff +% and David S. Saxon and John S. Nodvik and David G. Cantor % +% % +% *** END OF THIS PROJECT GUTENBERG EBOOK ELASTIC SCATTERING ANALYSES *** % +% % +% ***** This file should be named 29784-t.tex or 29784-t.zip ***** % +% This and all associated files of various formats will be found in: % +% http://www.gutenberg.org/2/9/7/8/29784/ % +% % +% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % + +\end{document} + +### +@ControlwordReplace = ( + ['\\MeV', 'MeV'] + ); + +@ControlwordArguments = ( + ['\\hyperref', 0, 0, '', ''], + ['\\Chapter', 0, 0, '', '', 1, 1, 'Chapter ', ' ', 1, 1, '', ' '], + ['\\Section', 0, 0, '', '', 1, 1, '', ' ', 1, 1, '', ''], + ['\\Subsection', 0, 0, '', '', 1, 1, '', ' ', 1, 1, '', ''], + ['\\Subsubsection', 0, 0, '', '', 1, 1, '', ' ', 1, 1, '', ''], + ['\\Subsubsubsection', 0, 0, '', '', 1, 1, '', ' ', 1, 1, '', ''], + ['\\ChapRef', 1, 1, 'Chapter ', ''], + ['\\Figure', 1, 1, '[Illustration: Fig. ', ']', 1, 0, '', ''], + ['\\FigRef', 1, 1, 'Fig. ', ''], + ['\\Eqref', 0, 0, '', '', 1, 1, '(', ')'], + ['\\Eqrefs', 0, 0, '', '', 1, 1, '(', ')'], + ['\\Eqno', 1, 1, '(', ')'] + ); +### +This is pdfTeXk, Version 3.141592-1.40.3 (Web2C 7.5.6) (format=pdflatex 2009.8.25) 25 AUG 2009 13:35 +entering extended mode + %&-line parsing enabled. +**29784-t.tex +(./29784-t.tex +LaTeX2e <2005/12/01> +Babel <v3.8h> and hyphenation patterns for english, usenglishmax, dumylang, noh +yphenation, arabic, farsi, croatian, ukrainian, russian, bulgarian, czech, slov +ak, danish, dutch, finnish, basque, french, german, ngerman, ibycus, greek, mon +ogreek, ancientgreek, hungarian, italian, latin, mongolian, norsk, icelandic, i +nterlingua, turkish, coptic, romanian, welsh, serbian, slovenian, estonian, esp +eranto, uppersorbian, indonesian, polish, portuguese, spanish, catalan, galicia +n, swedish, ukenglish, pinyin, loaded. +(/usr/share/texmf-texlive/tex/latex/base/book.cls +Document Class: book 2005/09/16 v1.4f Standard LaTeX document class +(/usr/share/texmf-texlive/tex/latex/base/bk12.clo +File: bk12.clo 2005/09/16 v1.4f Standard LaTeX file (size option) +) +\c@part=\count79 +\c@chapter=\count80 +\c@section=\count81 +\c@subsection=\count82 +\c@subsubsection=\count83 +\c@paragraph=\count84 +\c@subparagraph=\count85 +\c@figure=\count86 +\c@table=\count87 +\abovecaptionskip=\skip41 +\belowcaptionskip=\skip42 +\bibindent=\dimen102 +) (/usr/share/texmf-texlive/tex/latex/base/inputenc.sty +Package: inputenc 2006/05/05 v1.1b Input encoding file +\inpenc@prehook=\toks14 +\inpenc@posthook=\toks15 +(/usr/share/texmf-texlive/tex/latex/base/latin1.def +File: latin1.def 2006/05/05 v1.1b Input encoding file +)) (/usr/share/texmf-texlive/tex/latex/base/fontenc.sty +Package: fontenc 2005/09/27 v1.99g Standard LaTeX package +(/usr/share/texmf-texlive/tex/latex/base/t1enc.def +File: t1enc.def 2005/09/27 v1.99g Standard LaTeX file +LaTeX Font Info: Redeclaring font encoding T1 on input line 43. +)) (/usr/share/texmf-texlive/tex/latex/amsfonts/amssymb.sty +Package: amssymb 2002/01/22 v2.2d +(/usr/share/texmf-texlive/tex/latex/amsfonts/amsfonts.sty +Package: amsfonts 2001/10/25 v2.2f +\@emptytoks=\toks16 +\symAMSa=\mathgroup4 +\symAMSb=\mathgroup5 +LaTeX Font Info: Overwriting math alphabet `\mathfrak' in version `bold' +(Font) U/euf/m/n --> U/euf/b/n on input line 132. +)) (/usr/share/texmf-texlive/tex/latex/amsmath/amsmath.sty +Package: amsmath 2000/07/18 v2.13 AMS math features +\@mathmargin=\skip43 +For additional information on amsmath, use the `?' option. +(/usr/share/texmf-texlive/tex/latex/amsmath/amstext.sty +Package: amstext 2000/06/29 v2.01 +(/usr/share/texmf-texlive/tex/latex/amsmath/amsgen.sty +File: amsgen.sty 1999/11/30 v2.0 +\@emptytoks=\toks17 +\ex@=\dimen103 +)) (/usr/share/texmf-texlive/tex/latex/amsmath/amsbsy.sty +Package: amsbsy 1999/11/29 v1.2d +\pmbraise@=\dimen104 +) (/usr/share/texmf-texlive/tex/latex/amsmath/amsopn.sty +Package: amsopn 1999/12/14 v2.01 operator names +) +\inf@bad=\count88 +LaTeX Info: Redefining \frac on input line 211. +\uproot@=\count89 +\leftroot@=\count90 +LaTeX Info: Redefining \overline on input line 307. +\classnum@=\count91 +\DOTSCASE@=\count92 +LaTeX Info: Redefining \ldots on input line 379. +LaTeX Info: Redefining \dots on input line 382. +LaTeX Info: Redefining \cdots on input line 467. +\Mathstrutbox@=\box26 +\strutbox@=\box27 +\big@size=\dimen105 +LaTeX Font Info: Redeclaring font encoding OML on input line 567. +LaTeX Font Info: Redeclaring font encoding OMS on input line 568. +\macc@depth=\count93 +\c@MaxMatrixCols=\count94 +\dotsspace@=\muskip10 +\c@parentequation=\count95 +\dspbrk@lvl=\count96 +\tag@help=\toks18 +\row@=\count97 +\column@=\count98 +\maxfields@=\count99 +\andhelp@=\toks19 +\eqnshift@=\dimen106 +\alignsep@=\dimen107 +\tagshift@=\dimen108 +\tagwidth@=\dimen109 +\totwidth@=\dimen110 +\lineht@=\dimen111 +\@envbody=\toks20 +\multlinegap=\skip44 +\multlinetaggap=\skip45 +\mathdisplay@stack=\toks21 +LaTeX Info: Redefining \[ on input line 2666. +LaTeX Info: Redefining \] on input line 2667. +) (/usr/share/texmf-texlive/tex/latex/jknapltx/mathrsfs.sty +Package: mathrsfs 1996/01/01 Math RSFS package v1.0 (jk) +\symrsfs=\mathgroup6 +) (/usr/share/texmf-texlive/tex/latex/fancyhdr/fancyhdr.sty +\fancy@headwidth=\skip46 +\f@ncyO@elh=\skip47 +\f@ncyO@erh=\skip48 +\f@ncyO@olh=\skip49 +\f@ncyO@orh=\skip50 +\f@ncyO@elf=\skip51 +\f@ncyO@erf=\skip52 +\f@ncyO@olf=\skip53 +\f@ncyO@orf=\skip54 +) (/usr/share/texmf-texlive/tex/latex/tools/longtable.sty +Package: longtable 2004/02/01 v4.11 Multi-page Table package (DPC) +\LTleft=\skip55 +\LTright=\skip56 +\LTpre=\skip57 +\LTpost=\skip58 +\LTchunksize=\count100 +\LTcapwidth=\dimen112 +\LT@head=\box28 +\LT@firsthead=\box29 +\LT@foot=\box30 +\LT@lastfoot=\box31 +\LT@cols=\count101 +\LT@rows=\count102 +\c@LT@tables=\count103 +\c@LT@chunks=\count104 +\LT@p@ftn=\toks22 +) (/usr/share/texmf-texlive/tex/latex/tools/array.sty +Package: array 2005/08/23 v2.4b Tabular extension package (FMi) +\col@sep=\dimen113 +\extrarowheight=\dimen114 +\NC@list=\toks23 +\extratabsurround=\skip59 +\backup@length=\skip60 +) (/usr/share/texmf-texlive/tex/latex/tools/multicol.sty +Package: multicol 2006/05/18 v1.6g multicolumn formatting (FMi) +\c@tracingmulticols=\count105 +\mult@box=\box32 +\multicol@leftmargin=\dimen115 +\c@unbalance=\count106 +\c@collectmore=\count107 +\doublecol@number=\count108 +\multicoltolerance=\count109 +\multicolpretolerance=\count110 +\full@width=\dimen116 +\page@free=\dimen117 +\premulticols=\dimen118 +\postmulticols=\dimen119 +\multicolsep=\skip61 +\multicolbaselineskip=\skip62 +\partial@page=\box33 +\last@line=\box34 +\mult@rightbox=\box35 +\mult@grightbox=\box36 +\mult@gfirstbox=\box37 +\mult@firstbox=\box38 +\@tempa=\box39 +\@tempa=\box40 +\@tempa=\box41 +\@tempa=\box42 +\@tempa=\box43 +\@tempa=\box44 +\@tempa=\box45 +\@tempa=\box46 +\@tempa=\box47 +\@tempa=\box48 +\@tempa=\box49 +\@tempa=\box50 +\@tempa=\box51 +\@tempa=\box52 +\@tempa=\box53 +\@tempa=\box54 +\@tempa=\box55 +\c@columnbadness=\count111 +\c@finalcolumnbadness=\count112 +\last@try=\dimen120 +\multicolovershoot=\dimen121 +\multicolundershoot=\dimen122 +\mult@nat@firstbox=\box56 +\colbreak@box=\box57 +) (/usr/share/texmf-texlive/tex/latex/graphics/lscape.sty +Package: lscape 2000/10/22 v3.01 Landscape Pages (DPC) +(/usr/share/texmf-texlive/tex/latex/graphics/graphics.sty +Package: graphics 2006/02/20 v1.0o Standard LaTeX Graphics (DPC,SPQR) +(/usr/share/texmf-texlive/tex/latex/graphics/trig.sty +Package: trig 1999/03/16 v1.09 sin cos tan (DPC) +) (/etc/texmf/tex/latex/config/graphics.cfg +File: graphics.cfg 2007/01/18 v1.5 graphics configuration of teTeX/TeXLive +) +Package graphics Info: Driver file: pdftex.def on input line 90. +(/usr/share/texmf-texlive/tex/latex/pdftex-def/pdftex.def +File: pdftex.def 2007/01/08 v0.04d Graphics/color for pdfTeX +\Gread@gobject=\count113 +))) (/usr/share/texmf-texlive/tex/latex/base/alltt.sty +Package: alltt 1997/06/16 v2.0g defines alltt environment +) (/usr/share/texmf-texlive/tex/latex/base/textcomp.sty +Package: textcomp 2005/09/27 v1.99g Standard LaTeX package +Package textcomp Info: Sub-encoding information: +(textcomp) 5 = only ISO-Adobe without \textcurrency +(textcomp) 4 = 5 + \texteuro +(textcomp) 3 = 4 + \textohm +(textcomp) 2 = 3 + \textestimated + \textcurrency +(textcomp) 1 = TS1 - \textcircled - \t +(textcomp) 0 = TS1 (full) +(textcomp) Font families with sub-encoding setting implement +(textcomp) only a restricted character set as indicated. +(textcomp) Family '?' is the default used for unknown fonts. +(textcomp) See the documentation for details. +Package textcomp Info: Setting ? sub-encoding to TS1/1 on input line 71. +(/usr/share/texmf-texlive/tex/latex/base/ts1enc.def +File: ts1enc.def 2001/06/05 v3.0e (jk/car/fm) Standard LaTeX file +) +LaTeX Info: Redefining \oldstylenums on input line 266. +Package textcomp Info: Setting cmr sub-encoding to TS1/0 on input line 281. +Package textcomp Info: Setting cmss sub-encoding to TS1/0 on input line 282. +Package textcomp Info: Setting cmtt sub-encoding to TS1/0 on input line 283. +Package textcomp Info: Setting cmvtt sub-encoding to TS1/0 on input line 284. +Package textcomp Info: Setting cmbr sub-encoding to TS1/0 on input line 285. +Package textcomp Info: Setting cmtl sub-encoding to TS1/0 on input line 286. +Package textcomp Info: Setting ccr sub-encoding to TS1/0 on input line 287. +Package textcomp Info: Setting ptm sub-encoding to TS1/4 on input line 288. +Package textcomp Info: Setting pcr sub-encoding to TS1/4 on input line 289. +Package textcomp Info: Setting phv sub-encoding to TS1/4 on input line 290. +Package textcomp Info: Setting ppl sub-encoding to TS1/3 on input line 291. +Package textcomp Info: Setting pag sub-encoding to TS1/4 on input line 292. +Package textcomp Info: Setting pbk sub-encoding to TS1/4 on input line 293. +Package textcomp Info: Setting pnc sub-encoding to TS1/4 on input line 294. +Package textcomp Info: Setting pzc sub-encoding to TS1/4 on input line 295. +Package textcomp Info: Setting bch sub-encoding to TS1/4 on input line 296. +Package textcomp Info: Setting put sub-encoding to TS1/5 on input line 297. +Package textcomp Info: Setting uag sub-encoding to TS1/5 on input line 298. +Package textcomp Info: Setting ugq sub-encoding to TS1/5 on input line 299. +Package textcomp Info: Setting ul8 sub-encoding to TS1/4 on input line 300. +Package textcomp Info: Setting ul9 sub-encoding to TS1/4 on input line 301. +Package textcomp Info: Setting augie sub-encoding to TS1/5 on input line 302. +Package textcomp Info: Setting dayrom sub-encoding to TS1/3 on input line 303. +Package textcomp Info: Setting dayroms sub-encoding to TS1/3 on input line 304. + +Package textcomp Info: Setting pxr sub-encoding to TS1/0 on input line 305. +Package textcomp Info: Setting pxss sub-encoding to TS1/0 on input line 306. +Package textcomp Info: Setting pxtt sub-encoding to TS1/0 on input line 307. +Package textcomp Info: Setting txr sub-encoding to TS1/0 on input line 308. +Package textcomp Info: Setting txss sub-encoding to TS1/0 on input line 309. +Package textcomp Info: Setting txtt sub-encoding to TS1/0 on input line 310. +Package textcomp Info: Setting futs sub-encoding to TS1/4 on input line 311. +Package textcomp Info: Setting futx sub-encoding to TS1/4 on input line 312. +Package textcomp Info: Setting futj sub-encoding to TS1/4 on input line 313. +Package textcomp Info: Setting hlh sub-encoding to TS1/3 on input line 314. +Package textcomp Info: Setting hls sub-encoding to TS1/3 on input line 315. +Package textcomp Info: Setting hlst sub-encoding to TS1/3 on input line 316. +Package textcomp Info: Setting hlct sub-encoding to TS1/5 on input line 317. +Package textcomp Info: Setting hlx sub-encoding to TS1/5 on input line 318. +Package textcomp Info: Setting hlce sub-encoding to TS1/5 on input line 319. +Package textcomp Info: Setting hlcn sub-encoding to TS1/5 on input line 320. +Package textcomp Info: Setting hlcw sub-encoding to TS1/5 on input line 321. +Package textcomp Info: Setting hlcf sub-encoding to TS1/5 on input line 322. +Package textcomp Info: Setting pplx sub-encoding to TS1/3 on input line 323. +Package textcomp Info: Setting pplj sub-encoding to TS1/3 on input line 324. +Package textcomp Info: Setting ptmx sub-encoding to TS1/4 on input line 325. +Package textcomp Info: Setting ptmj sub-encoding to TS1/4 on input line 326. +) (/usr/share/texmf-texlive/tex/latex/tools/indentfirst.sty +Package: indentfirst 1995/11/23 v1.03 Indent first paragraph (DPC) +) (/usr/share/texmf-texlive/tex/latex/base/ifthen.sty +Package: ifthen 2001/05/26 v1.1c Standard LaTeX ifthen package (DPC) +) (/usr/share/texmf-texlive/tex/latex/listings/listings.sty (/usr/share/texmf-t +exlive/tex/latex/graphics/keyval.sty +Package: keyval 1999/03/16 v1.13 key=value parser (DPC) +\KV@toks@=\toks24 +) +\lst@mode=\count114 +\lst@gtempboxa=\box58 +\lst@token=\toks25 +\lst@length=\count115 +\lst@currlwidth=\dimen123 +\lst@column=\count116 +\lst@pos=\count117 +\lst@lostspace=\dimen124 +\lst@width=\dimen125 +\lst@newlines=\count118 +\lst@lineno=\count119 +\c@lstlisting=\count120 +\lst@maxwidth=\dimen126 +(/usr/share/texmf-texlive/tex/latex/listings/lstpatch.sty +File: lstpatch.sty 2004/10/17 1.3b (Carsten Heinz) +) (/usr/share/texmf-texlive/tex/latex/listings/lstmisc.sty +File: lstmisc.sty 2004/09/07 1.3 (Carsten Heinz) +\c@lstnumber=\count121 +\lst@skipnumbers=\count122 +\lst@framebox=\box59 +) (/usr/share/texmf-texlive/tex/latex/listings/listings.cfg +File: listings.cfg 2004/09/05 1.3 listings configuration +)) +Package: listings 2004/10/17 1.3b (Carsten Heinz) +(/usr/share/texmf-texlive/tex/latex/rotating/rotating.sty +Package: rotating 1997/09/26, v2.13 Rotation package +(/usr/share/texmf-texlive/tex/latex/graphics/graphicx.sty +Package: graphicx 1999/02/16 v1.0f Enhanced LaTeX Graphics (DPC,SPQR) +\Gin@req@height=\dimen127 +\Gin@req@width=\dimen128 +) +\c@r@tfl@t=\count123 +\rot@float@box=\box60 +) (/usr/share/texmf/tex/latex/pgf/frontendlayer/tikz.sty (/usr/share/texmf/tex/ +latex/pgf/basiclayer/pgf.sty (/usr/share/texmf/tex/latex/pgf/utilities/pgfrcs.s +ty (/usr/share/texmf/tex/generic/pgf/utilities/pgfutil-common.tex +\pgfutil@everybye=\toks26 +) (/usr/share/texmf/tex/generic/pgf/utilities/pgfutil-latex.def) (/usr/share/te +xmf/tex/generic/pgf/utilities/pgfrcs.code.tex +Package: pgfrcs 2008/02/20 v2.00 (rcs-revision 1.21) +)) +Package: pgf 2008/01/15 v2.00 (rcs-revision 1.12) +(/usr/share/texmf/tex/latex/pgf/basiclayer/pgfcore.sty (/usr/share/texmf/tex/la +tex/pgf/systemlayer/pgfsys.sty (/usr/share/texmf/tex/generic/pgf/systemlayer/pg +fsys.code.tex +Package: pgfsys 2008/02/07 v2.00 (rcs-revision 1.31) +(/usr/share/texmf/tex/generic/pgf/utilities/pgfkeys.code.tex +\pgfkeys@pathtoks=\toks27 +\pgfkeys@temptoks=\toks28 +) +\pgf@x=\dimen129 +\pgf@y=\dimen130 +\pgf@xa=\dimen131 +\pgf@ya=\dimen132 +\pgf@xb=\dimen133 +\pgf@yb=\dimen134 +\pgf@xc=\dimen135 +\pgf@yc=\dimen136 +\c@pgf@counta=\count124 +\c@pgf@countb=\count125 +\c@pgf@countc=\count126 +\c@pgf@countd=\count127 +(/usr/share/texmf/tex/generic/pgf/systemlayer/pgf.cfg +File: pgf.cfg 2008/01/13 (rcs-revision 1.6) +) +Package pgfsys Info: Driver file for pgf: pgfsys-pdftex.def on input line 885. +(/usr/share/texmf/tex/generic/pgf/systemlayer/pgfsys-pdftex.def +File: pgfsys-pdftex.def 2007/12/20 (rcs-revision 1.20) +(/usr/share/texmf/tex/generic/pgf/systemlayer/pgfsys-common-pdf.def +File: pgfsys-common-pdf.def 2007/12/17 (rcs-revision 1.8) +))) (/usr/share/texmf/tex/generic/pgf/systemlayer/pgfsyssoftpath.code.tex +File: pgfsyssoftpath.code.tex 2008/01/23 (rcs-revision 1.6) +\pgfsyssoftpath@smallbuffer@items=\count128 +\pgfsyssoftpath@bigbuffer@items=\count129 +) (/usr/share/texmf/tex/generic/pgf/systemlayer/pgfsysprotocol.code.tex +File: pgfsysprotocol.code.tex 2006/10/16 (rcs-revision 1.4) +)) (/usr/share/texmf/tex/latex/xcolor/xcolor.sty +Package: xcolor 2007/01/21 v2.11 LaTeX color extensions (UK) +(/etc/texmf/tex/latex/config/color.cfg +File: color.cfg 2007/01/18 v1.5 color configuration of teTeX/TeXLive +) +Package xcolor Info: Driver file: pdftex.def on input line 225. +Package xcolor Info: Model `cmy' substituted by `cmy0' on input line 1337. +Package xcolor Info: Model `hsb' substituted by `rgb' on input line 1341. +Package xcolor Info: Model `RGB' extended on input line 1353. +Package xcolor Info: Model `HTML' substituted by `rgb' on input line 1355. +Package xcolor Info: Model `Hsb' substituted by `hsb' on input line 1356. +Package xcolor Info: Model `tHsb' substituted by `hsb' on input line 1357. +Package xcolor Info: Model `HSB' substituted by `hsb' on input line 1358. +Package xcolor Info: Model `Gray' substituted by `gray' on input line 1359. +Package xcolor Info: Model `wave' substituted by `hsb' on input line 1360. +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcore.code.tex +Package: pgfcore 2008/01/15 v2.00 (rcs-revision 1.6) +(/usr/share/texmf/tex/generic/pgf/math/pgfmath.code.tex (/usr/share/texmf/tex/g +eneric/pgf/math/pgfmathcalc.code.tex (/usr/share/texmf/tex/generic/pgf/math/pgf +mathutil.code.tex +\pgfmath@box=\box61 +) (/usr/share/texmf/tex/generic/pgf/math/pgfmathparser.code.tex +\pgfmath@stack=\toks29 +\c@pgfmath@parsecounta=\count130 +\c@pgfmath@parsecountb=\count131 +\c@pgfmath@parsecountc=\count132 +\pgfmath@parsex=\dimen137 +) (/usr/share/texmf/tex/generic/pgf/math/pgfmathoperations.code.tex (/usr/share +/texmf/tex/generic/pgf/math/pgfmathtrig.code.tex) (/usr/share/texmf/tex/generic +/pgf/math/pgfmathrnd.code.tex)) (/usr/share/texmf/tex/generic/pgf/math/pgfmathb +ase.code.tex))) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorepoints.code +.tex +File: pgfcorepoints.code.tex 2008/02/03 (rcs-revision 1.13) +\pgf@picminx=\dimen138 +\pgf@picmaxx=\dimen139 +\pgf@picminy=\dimen140 +\pgf@picmaxy=\dimen141 +\pgf@pathminx=\dimen142 +\pgf@pathmaxx=\dimen143 +\pgf@pathminy=\dimen144 +\pgf@pathmaxy=\dimen145 +\pgf@xx=\dimen146 +\pgf@xy=\dimen147 +\pgf@yx=\dimen148 +\pgf@yy=\dimen149 +\pgf@zx=\dimen150 +\pgf@zy=\dimen151 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorepathconstruct.code.tex +File: pgfcorepathconstruct.code.tex 2008/02/13 (rcs-revision 1.14) +\pgf@path@lastx=\dimen152 +\pgf@path@lasty=\dimen153 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorepathusage.code.tex +File: pgfcorepathusage.code.tex 2008/01/23 (rcs-revision 1.11) +\pgf@shorten@end@additional=\dimen154 +\pgf@shorten@start@additional=\dimen155 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorescopes.code.tex +File: pgfcorescopes.code.tex 2008/01/15 (rcs-revision 1.26) +\pgfpic=\box62 +\pgf@hbox=\box63 +\pgf@layerbox@main=\box64 +\pgf@picture@serial@count=\count133 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcoregraphicstate.code.tex +File: pgfcoregraphicstate.code.tex 2007/12/12 (rcs-revision 1.8) +\pgflinewidth=\dimen156 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcoretransformations.code.tex +File: pgfcoretransformations.code.tex 2008/02/04 (rcs-revision 1.10) +\pgf@pt@x=\dimen157 +\pgf@pt@y=\dimen158 +\pgf@pt@temp=\dimen159 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorequick.code.tex +File: pgfcorequick.code.tex 2006/10/11 (rcs-revision 1.2) +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcoreobjects.code.tex +File: pgfcoreobjects.code.tex 2006/10/11 (rcs-revision 1.2) +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorepathprocessing.code.tex +File: pgfcorepathprocessing.code.tex 2008/01/23 (rcs-revision 1.7) +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorearrows.code.tex +File: pgfcorearrows.code.tex 2007/06/07 (rcs-revision 1.8) +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcoreshade.code.tex +File: pgfcoreshade.code.tex 2007/12/10 (rcs-revision 1.9) +\pgf@max=\dimen160 +\pgf@sys@shading@range@num=\count134 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcoreimage.code.tex +File: pgfcoreimage.code.tex 2008/01/15 (rcs-revision 1.1) +\pgfexternal@startupbox=\box65 +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorelayers.code.tex +File: pgfcorelayers.code.tex 2008/01/15 (rcs-revision 1.1) +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcoretransparency.code.tex +File: pgfcoretransparency.code.tex 2008/01/17 (rcs-revision 1.2) +) (/usr/share/texmf/tex/generic/pgf/basiclayer/pgfcorepatterns.code.tex +File: pgfcorepatterns.code.tex 2008/01/15 (rcs-revision 1.1) +))) (/usr/share/texmf/tex/generic/pgf/modules/pgfmoduleshapes.code.tex +File: pgfmoduleshapes.code.tex 2008/02/13 (rcs-revision 1.4) +\pgfnodeparttextbox=\box66 +\toks@savedmacro=\toks30 +) (/usr/share/texmf/tex/generic/pgf/modules/pgfmoduleplot.code.tex +File: pgfmoduleplot.code.tex 2008/01/15 (rcs-revision 1.1) +\pgf@plotwrite=\write3 +) (/usr/share/texmf/tex/latex/pgf/compatibility/pgfcomp-version-0-65.sty +Package: pgfcomp-version-0-65 2007/07/03 v2.00 (rcs-revision 1.7) +\pgf@nodesepstart=\dimen161 +\pgf@nodesepend=\dimen162 +) (/usr/share/texmf/tex/latex/pgf/compatibility/pgfcomp-version-1-18.sty +Package: pgfcomp-version-1-18 2007/07/23 v2.00 (rcs-revision 1.1) +)) (/usr/share/texmf/tex/latex/pgf/utilities/pgffor.sty (/usr/share/texmf/tex/g +eneric/pgf/utilities/pgffor.code.tex +Package: pgffor 2007/11/07 v2.00 (rcs-revision 1.8) +\pgffor@iter=\dimen163 +\pgffor@skip=\dimen164 +)) (/usr/share/texmf/tex/generic/pgf/frontendlayer/tikz/tikz.code.tex +Package: tikz 2008/02/13 v2.00 (rcs-revision 1.27) +(/usr/share/texmf/tex/generic/pgf/libraries/pgflibraryplothandlers.code.tex +File: pgflibraryplothandlers.code.tex 2007/03/09 v2.00 (rcs-revision 1.9) +\pgf@plot@mark@count=\count135 +\pgfplotmarksize=\dimen165 +) +\tikz@lastx=\dimen166 +\tikz@lasty=\dimen167 +\tikz@lastxsaved=\dimen168 +\tikz@lastysaved=\dimen169 +\tikzleveldistance=\dimen170 +\tikzsiblingdistance=\dimen171 +\tikz@figbox=\box67 +\tikz@tempbox=\box68 +\tikztreelevel=\count136 +\tikznumberofchildren=\count137 +\tikznumberofcurrentchild=\count138 +\tikz@fig@count=\count139 +(/usr/share/texmf/tex/generic/pgf/modules/pgfmodulematrix.code.tex +File: pgfmodulematrix.code.tex 2008/01/15 (rcs-revision 1.1) +\pgfmatrixcurrentrow=\count140 +\pgfmatrixcurrentcolumn=\count141 +\pgf@matrix@numberofcolumns=\count142 +) +\tikz@expandcount=\count143 + +(/usr/share/texmf/tex/generic/pgf/frontendlayer/tikz/libraries/tikzlibrarytopat +hs.code.tex +File: tikzlibrarytopaths.code.tex 2008/01/09 v2.00 (rcs-revision 1.1) +))) (/usr/share/texmf-texlive/tex/latex/geometry/geometry.sty +Package: geometry 2002/07/08 v3.2 Page Geometry +\Gm@cnth=\count144 +\Gm@cntv=\count145 +\c@Gm@tempcnt=\count146 +\Gm@bindingoffset=\dimen172 +\Gm@wd@mp=\dimen173 +\Gm@odd@mp=\dimen174 +\Gm@even@mp=\dimen175 +\Gm@dimlist=\toks31 +(/usr/share/texmf-texlive/tex/xelatex/xetexconfig/geometry.cfg)) (/usr/share/te +xmf-texlive/tex/latex/hyperref/hyperref.sty +Package: hyperref 2007/02/07 v6.75r Hypertext links for LaTeX +\@linkdim=\dimen176 +\Hy@linkcounter=\count147 +\Hy@pagecounter=\count148 +(/usr/share/texmf-texlive/tex/latex/hyperref/pd1enc.def +File: pd1enc.def 2007/02/07 v6.75r Hyperref: PDFDocEncoding definition (HO) +) (/etc/texmf/tex/latex/config/hyperref.cfg +File: hyperref.cfg 2002/06/06 v1.2 hyperref configuration of TeXLive +) (/usr/share/texmf-texlive/tex/latex/oberdiek/kvoptions.sty +Package: kvoptions 2006/08/22 v2.4 Connects package keyval with LaTeX options ( +HO) +) +Package hyperref Info: Option `hyperfootnotes' set `false' on input line 2238. +Package hyperref Info: Option `bookmarks' set `true' on input line 2238. +Package hyperref Info: Option `linktocpage' set `false' on input line 2238. +Package hyperref Info: Option `pdfdisplaydoctitle' set `true' on input line 223 +8. +Package hyperref Info: Option `pdfpagelabels' set `true' on input line 2238. +Package hyperref Info: Option `bookmarksopen' set `true' on input line 2238. +Package hyperref Info: Option `colorlinks' set `true' on input line 2238. +Package hyperref Info: Hyper figures OFF on input line 2288. +Package hyperref Info: Link nesting OFF on input line 2293. +Package hyperref Info: Hyper index ON on input line 2296. +Package hyperref Info: Plain pages OFF on input line 2303. +Package hyperref Info: Backreferencing OFF on input line 2308. +Implicit mode ON; LaTeX internals redefined +Package hyperref Info: Bookmarks ON on input line 2444. +(/usr/share/texmf-texlive/tex/latex/ltxmisc/url.sty +\Urlmuskip=\muskip11 +Package: url 2005/06/27 ver 3.2 Verb mode for urls, etc. +) +LaTeX Info: Redefining \url on input line 2599. +\Fld@menulength=\count149 +\Field@Width=\dimen177 +\Fld@charsize=\dimen178 +\Choice@toks=\toks32 +\Field@toks=\toks33 +Package hyperref Info: Hyper figures OFF on input line 3102. +Package hyperref Info: Link nesting OFF on input line 3107. +Package hyperref Info: Hyper index ON on input line 3110. +Package hyperref Info: backreferencing OFF on input line 3117. +Package hyperref Info: Link coloring ON on input line 3120. +\Hy@abspage=\count150 +\c@Item=\count151 +) +*hyperref using driver hpdftex* +(/usr/share/texmf-texlive/tex/latex/hyperref/hpdftex.def +File: hpdftex.def 2007/02/07 v6.75r Hyperref driver for pdfTeX +\Fld@listcount=\count152 +) (/usr/share/texmf-texlive/tex/latex/listings/lstlang1.sty +File: lstlang1.sty 2004/09/05 1.3 listings language file +) (/usr/share/texmf-texlive/tex/latex/listings/lstlang1.sty +File: lstlang1.sty 2004/09/05 1.3 listings language file +) +\TmpLen=\skip63 +(./29784-t.aux) +\openout1 = `29784-t.aux'. + +LaTeX Font Info: Checking defaults for OML/cmm/m/it on input line 435. +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for T1/cmr/m/n on input line 435. +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for OT1/cmr/m/n on input line 435. +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for OMS/cmsy/m/n on input line 435. +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for OMX/cmex/m/n on input line 435. +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for U/cmr/m/n on input line 435. +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for TS1/cmr/m/n on input line 435. +LaTeX Font Info: Try loading font information for TS1+cmr on input line 435. + +(/usr/share/texmf-texlive/tex/latex/base/ts1cmr.fd +File: ts1cmr.fd 1999/05/25 v2.5h Standard LaTeX font definitions +) +LaTeX Font Info: ... okay on input line 435. +LaTeX Font Info: Checking defaults for PD1/pdf/m/n on input line 435. +LaTeX Font Info: ... okay on input line 435. +(/usr/share/texmf/tex/context/base/supp-pdf.tex +[Loading MPS to PDF converter (version 2006.09.02).] +\scratchcounter=\count153 +\scratchdimen=\dimen179 +\scratchbox=\box69 +\nofMPsegments=\count154 +\nofMParguments=\count155 +\everyMPshowfont=\toks34 +\MPscratchCnt=\count156 +\MPscratchDim=\dimen180 +\MPnumerator=\count157 +\everyMPtoPDFconversion=\toks35 +) +-------------------- Geometry parameters +paper: letterpaper +landscape: -- +twocolumn: -- +twoside: true +asymmetric: -- +h-parts: 79.49689pt, 455.30121pt, 79.4969pt +v-parts: 57.81598pt, 650.43pt, 86.72401pt +hmarginratio: 1:1 +vmarginratio: 2:3 +lines: -- +heightrounded: -- +bindingoffset: 0.0pt +truedimen: -- +includehead: -- +includefoot: -- +includemp: -- +driver: pdftex +-------------------- Page layout dimensions and switches +\paperwidth 614.295pt +\paperheight 794.96999pt +\textwidth 455.30121pt +\textheight 650.43pt +\oddsidemargin 7.2269pt +\evensidemargin 7.22691pt +\topmargin -46.3278pt +\headheight 12.0pt +\headsep 19.8738pt +\footskip 30.0pt +\marginparwidth 98.0pt +\marginparsep 7.0pt +\columnsep 10.0pt +\skip\footins 10.8pt plus 4.0pt minus 2.0pt +\hoffset 0.0pt +\voffset 0.0pt +\mag 1000 +\@twosidetrue \@mparswitchtrue +(1in=72.27pt, 1cm=28.45pt) +----------------------- +Package hyperref Info: Link coloring ON on input line 435. +(/usr/share/texmf-texlive/tex/latex/hyperref/nameref.sty +Package: nameref 2006/12/27 v2.28 Cross-referencing by name of section +(/usr/share/texmf-texlive/tex/latex/oberdiek/refcount.sty +Package: refcount 2006/02/20 v3.0 Data extraction from references (HO) +) +\c@section@level=\count158 +) +LaTeX Info: Redefining \ref on input line 435. +LaTeX Info: Redefining \pageref on input line 435. +(./29784-t.out) (./29784-t.out) +\@outlinefile=\write4 +\openout4 = `29784-t.out'. + +LaTeX Font Info: Try loading font information for T1+cmtt on input line 446. + +(/usr/share/texmf-texlive/tex/latex/base/t1cmtt.fd +File: t1cmtt.fd 1999/05/25 v2.5h Standard LaTeX font definitions +) +LaTeX Font Info: Try loading font information for U+msa on input line 473. +(/usr/share/texmf-texlive/tex/latex/amsfonts/umsa.fd +File: umsa.fd 2002/01/19 v2.2g AMS font definitions +) +LaTeX Font Info: Try loading font information for U+msb on input line 473. +(/usr/share/texmf-texlive/tex/latex/amsfonts/umsb.fd +File: umsb.fd 2002/01/19 v2.2g AMS font definitions +) +LaTeX Font Info: Try loading font information for U+rsfs on input line 473. +(/usr/share/texmf-texlive/tex/latex/jknapltx/ursfs.fd +File: ursfs.fd 1998/03/24 rsfs font definition file (jk) +) [1 + +{/var/lib/texmf/fonts/map/pdftex/updmap/pdftex.map}] [2 + +] [3 + +] [4 + +] [5 + +] (./29784-t.toc) +\tf@toc=\write5 +\openout5 = `29784-t.toc'. + +[6 + +] [1 + + +] [2 + +] [3] [4] [5] (./images/014a.eepic) [6] [7] [8] [9] [10] [11] [12] [13] [14] (. +/images/026a.eepic) (./images/027a.eepic) (./images/028a.eepic) [15] [16] [17] +[18] (./images/030a.eepic) (./images/031a.eepic) (./images/032a.eepic) [19] [20 +] [21] [22] [23] [24] [25] [26] [27] [28] [29 + +] [30] +Overfull \hbox (4.28531pt too wide) in paragraph at lines 2627--2637 +\T1/cmr/m/n/12 of num-bers used or be-cause of an er-ror in the in-put data is +fol-lowed by an []. + [] + +[31] +Overfull \hbox (6.18356pt too wide) in paragraph at lines 2723--2724 +[]\T1/cmr/m/n/12 Calls [], [], [], [], [], [], [], [], []. + [] + +[32] [33] [34] [35] +Overfull \hbox (2.73161pt too wide) in paragraph at lines 3044--3051 +[] + [] + +[36] +Overfull \hbox (2.07898pt too wide) in paragraph at lines 3066--3072 +[] + [] + + +Overfull \hbox (2.73161pt too wide) in paragraph at lines 3073--3080 +[] + [] + +[37] [38] [39] [40] [41] (./images/057a.eepic) +Overfull \hbox (3.06024pt too wide) in paragraph at lines 3461--3465 + \T1/cmr/bx/n/12 Note:[] \T1/cmr/m/n/12 The iden-ti-fi-ca-tion which con-sists +of the five quan-ti-ties [], [], + [] + + +Overfull \hbox (4.32056pt too wide) in paragraph at lines 3468--3479 +[] + [] + +[42 + +] [43] [44] +Underfull \hbox (badness 5388) in paragraph at lines 3717--3720 +[]|\T1/cmr/m/n/12 Mass num-ber of in-ci-dent par-ti-cle + [] + + +Underfull \hbox (badness 3449) in paragraph at lines 3721--3724 +[]|\T1/cmr/m/n/12 Reduced mass of in-ci-dent par-ti-cle + [] + +[45 + +] +Underfull \hbox (badness 10000) in paragraph at lines 3765--3767 +[]|\T1/cmr/m/n/12 Total num-ber of an-gles in-put + [] + +[46] +Underfull \hbox (badness 4899) in paragraph at lines 3806--3809 +[]|\T1/cmr/m/n/12 Total num-ber of in-put val-ues of + [] + +[47] [48] [49] [50] [51] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[52 + +] [53] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[54 + +] [55] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[56 + +] [57] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[58 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[59] [60] [61 + +] [62 + +] [63 + +] [64 + +] [65 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[66 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[67] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[68] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[69] [70] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[71 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[72] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[73] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[74] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[75] [76] [77 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[78 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[79] [80] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[81 + +] [82] [83 + +] [84 + +] [85 + +] [86 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[87 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[88] [89] [90 + +] [91 + +] +Underfull \vbox (badness 7344) has occurred while \output is active [] + +[92 + +] +Overfull \hbox (90.27046pt too wide) in paragraph at lines 5995--5997 +[][][][][][][][][][][][][][][][][][][][][][][][][] + [] + + +Overfull \hbox (49.48006pt too wide) in paragraph at lines 6015--6017 +[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][ +] + [] + + +Overfull \hbox (49.48006pt too wide) in paragraph at lines 6017--6019 +[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][ +][] + [] + + +Overfull \hbox (49.48006pt too wide) in paragraph at lines 6019--6021 +[][][][][][][][][][][][][][][][][][][][][][][][][][] + [] + + +Overfull \hbox (49.48006pt too wide) in paragraph at lines 6023--6025 +[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][] + [] + +[93] [94 + +] [95 + + +] [96 + + +] +LaTeX Font Info: Font shape `T1/cmtt/bx/n' in size <12> not available +(Font) Font shape `T1/cmtt/m/n' tried instead on input line 6182. +[97 + + +] +Overfull \hbox (20.49094pt too wide) in paragraph at lines 6261--6263 +[]\T1/cmr/m/n/12 Eisberg, Gugelot and Porter, Con-fer-ence on the Sta-tis-ti-ca +l As-pects of the Nu-cleus, Brookhaven + [] + +[98 + +] [99] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[100 + +] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[101] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[102] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[103] +Underfull \vbox (badness 10000) has occurred while \output is active [] + +[104] [105] (./29784-t.aux) + + *File List* + book.cls 2005/09/16 v1.4f Standard LaTeX document class + bk12.clo 2005/09/16 v1.4f Standard LaTeX file (size option) +inputenc.sty 2006/05/05 v1.1b Input encoding file + latin1.def 2006/05/05 v1.1b Input encoding file + fontenc.sty + t1enc.def 2005/09/27 v1.99g Standard LaTeX file + amssymb.sty 2002/01/22 v2.2d +amsfonts.sty 2001/10/25 v2.2f + amsmath.sty 2000/07/18 v2.13 AMS math features + amstext.sty 2000/06/29 v2.01 + amsgen.sty 1999/11/30 v2.0 + amsbsy.sty 1999/11/29 v1.2d + amsopn.sty 1999/12/14 v2.01 operator names +mathrsfs.sty 1996/01/01 Math RSFS package v1.0 (jk) +fancyhdr.sty +longtable.sty 2004/02/01 v4.11 Multi-page Table package (DPC) + array.sty 2005/08/23 v2.4b Tabular extension package (FMi) +multicol.sty 2006/05/18 v1.6g multicolumn formatting (FMi) + lscape.sty 2000/10/22 v3.01 Landscape Pages (DPC) +graphics.sty 2006/02/20 v1.0o Standard LaTeX Graphics (DPC,SPQR) + trig.sty 1999/03/16 v1.09 sin cos tan (DPC) +graphics.cfg 2007/01/18 v1.5 graphics configuration of teTeX/TeXLive + pdftex.def 2007/01/08 v0.04d Graphics/color for pdfTeX + alltt.sty 1997/06/16 v2.0g defines alltt environment +textcomp.sty 2005/09/27 v1.99g Standard LaTeX package + ts1enc.def 2001/06/05 v3.0e (jk/car/fm) Standard LaTeX file +indentfirst.sty 1995/11/23 v1.03 Indent first paragraph (DPC) + ifthen.sty 2001/05/26 v1.1c Standard LaTeX ifthen package (DPC) +listings.sty 2004/10/17 1.3b (Carsten Heinz) + keyval.sty 1999/03/16 v1.13 key=value parser (DPC) +lstpatch.sty 2004/10/17 1.3b (Carsten Heinz) + lstmisc.sty 2004/09/07 1.3 (Carsten Heinz) +listings.cfg 2004/09/05 1.3 listings configuration +rotating.sty 1997/09/26, v2.13 Rotation package +graphicx.sty 1999/02/16 v1.0f Enhanced LaTeX Graphics (DPC,SPQR) + tikz.sty 2008/02/13 v2.00 (rcs-revision 1.27) + pgf.sty 2008/01/15 v2.00 (rcs-revision 1.12) + pgfrcs.sty 2008/02/20 v2.00 (rcs-revision 1.21) + pgfrcs.code.tex + pgfcore.sty 2008/01/15 v2.00 (rcs-revision 1.6) + pgfsys.sty 2008/02/07 v2.00 (rcs-revision 1.31) + pgfsys.code.tex +pgfsyssoftpath.code.tex 2008/01/23 (rcs-revision 1.6) +pgfsysprotocol.code.tex 2006/10/16 (rcs-revision 1.4) + xcolor.sty 2007/01/21 v2.11 LaTeX color extensions (UK) + color.cfg 2007/01/18 v1.5 color configuration of teTeX/TeXLive + pgfcore.code.tex +pgfcomp-version-0-65.sty 2007/07/03 v2.00 (rcs-revision 1.7) +pgfcomp-version-1-18.sty 2007/07/23 v2.00 (rcs-revision 1.1) + pgffor.sty 2007/11/07 v2.00 (rcs-revision 1.8) + pgffor.code.tex + tikz.code.tex +geometry.sty 2002/07/08 v3.2 Page Geometry +geometry.cfg +hyperref.sty 2007/02/07 v6.75r Hypertext links for LaTeX + pd1enc.def 2007/02/07 v6.75r Hyperref: PDFDocEncoding definition (HO) +hyperref.cfg 2002/06/06 v1.2 hyperref configuration of TeXLive +kvoptions.sty 2006/08/22 v2.4 Connects package keyval with LaTeX options (HO +) + url.sty 2005/06/27 ver 3.2 Verb mode for urls, etc. + hpdftex.def 2007/02/07 v6.75r Hyperref driver for pdfTeX +lstlang1.sty 2004/09/05 1.3 listings language file +lstlang1.sty 2004/09/05 1.3 listings language file + ts1cmr.fd 1999/05/25 v2.5h Standard LaTeX font definitions +supp-pdf.tex + nameref.sty 2006/12/27 v2.28 Cross-referencing by name of section +refcount.sty 2006/02/20 v3.0 Data extraction from references (HO) + 29784-t.out + 29784-t.out + t1cmtt.fd 1999/05/25 v2.5h Standard LaTeX font definitions + umsa.fd 2002/01/19 v2.2g AMS font definitions + umsb.fd 2002/01/19 v2.2g AMS font definitions + ursfs.fd 1998/03/24 rsfs font definition file (jk) +./images/014a.eepic +./images/026a.eepic +./images/027a.eepic +./images/028a.eepic +./images/030a.eepic +./images/031a.eepic +./images/032a.eepic +./images/057a.eepic + *********** + + ) +Here is how much of TeX's memory you used: + 16681 strings out of 94074 + 252407 string characters out of 1165153 + 493576 words of memory out of 1500000 + 17113 multiletter control sequences out of 10000+50000 + 37794 words of font info for 95 fonts, out of 1200000 for 2000 + 645 hyphenation exceptions out of 8191 + 46i,23n,49p,345b,1815s stack positions out of 5000i,500n,6000p,200000b,5000s +{/usr/share/texmf/fonts/enc/dvips/cm-super/cm-super-t1.enc}{/usr/share/texmf/ +fonts/enc/dvips/cm-super/cm-super-ts1.enc}</usr/share/texmf-texlive/fonts/type1 +/bluesky/cm/cmex10.pfb></usr/share/texmf-texlive/fonts/type1/bluesky/cm/cmmi10. +pfb></usr/share/texmf-texlive/fonts/type1/bluesky/cm/cmmi12.pfb></usr/share/tex +mf-texlive/fonts/type1/bluesky/cm/cmmi6.pfb></usr/share/texmf-texlive/fonts/typ +e1/bluesky/cm/cmmi8.pfb></usr/share/texmf-texlive/fonts/type1/bluesky/cm/cmr10. +pfb></usr/share/texmf-texlive/fonts/type1/bluesky/cm/cmr12.pfb></usr/share/texm +f-texlive/fonts/type1/bluesky/cm/cmr6.pfb></usr/share/texmf-texlive/fonts/type1 +/bluesky/cm/cmr8.pfb></usr/share/texmf-texlive/fonts/type1/bluesky/cm/cmsy10.pf +b></usr/share/texmf-texlive/fonts/type1/bluesky/cm/cmsy8.pfb></usr/share/texmf- +texlive/fonts/type1/bluesky/ams/msbm10.pfb></usr/share/texmf-texlive/fonts/type +1/hoekwater/rsfs/rsfs10.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfbi1 +000.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfbx0800.pfb></usr/share/ +texmf/fonts/type1/public/cm-super/sfbx1000.pfb></usr/share/texmf/fonts/type1/pu +blic/cm-super/sfbx1095.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfbx12 +00.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfbx2488.pfb></usr/share/t +exmf/fonts/type1/public/cm-super/sfcc1000.pfb></usr/share/texmf/fonts/type1/pub +lic/cm-super/sfcc1095.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfcc120 +0.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfrm0700.pfb></usr/share/te +xmf/fonts/type1/public/cm-super/sfrm0800.pfb></usr/share/texmf/fonts/type1/publ +ic/cm-super/sfrm1000.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfrm1095 +.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfrm1200.pfb></usr/share/tex +mf/fonts/type1/public/cm-super/sfrm1728.pfb></usr/share/texmf/fonts/type1/publi +c/cm-super/sfti1000.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfti1200. +pfb></usr/share/texmf/fonts/type1/public/cm-super/sftt0900.pfb></usr/share/texm +f/fonts/type1/public/cm-super/sftt1095.pfb></usr/share/texmf/fonts/type1/public +/cm-super/sftt1200.pfb></usr/share/texmf/fonts/type1/public/cm-super/sfxc1000.p +fb></usr/share/texmf/fonts/type1/public/cm-super/sfxc1200.pfb></usr/share/texmf +/fonts/type1/public/cm-super/sfxc1440.pfb></usr/share/texmf/fonts/type1/public/ +cm-super/sfxc1728.pfb> +Output written on 29784-t.pdf (111 pages, 1269152 bytes). +PDF statistics: + 3919 PDF objects out of 4296 (max. 8388607) + 2516 named destinations out of 2984 (max. 131072) + 325 words of extra memory for PDF output out of 10000 (max. 10000000) + diff --git a/29784-t/old/29784-t.zip b/29784-t/old/29784-t.zip Binary files differnew file mode 100644 index 0000000..f1d5b68 --- /dev/null +++ b/29784-t/old/29784-t.zip |