edcs
General program to calculate differential cross sections (DCS) from K matrices generated by scatstab.
This is a slightly modified version of a code provided by N. Sanna, Jul 1994. This is a reduced version of the EROTVIB code by A. Jain and D. J. Thompson (Comp. Phys. Com. 32, 367 (1984)) which calculated rotational transitions for the Td symmetry group only.
iuins, iukmat, iuplt
iprint
title
lmax
lbig
nang
lbig < 0
then read
lbigl, lbig
neng, (enefnd(i), i = 1, neng)
iuins
iukmat
iukmat > 0
then this is the
input unit containing K-matrices. The program
searches this unit to find all K-matrices with the
energy enefnd(i)
.
If iukmat < 0
then the program reads from ABS(iukmat)
previously computed A_L coefficients and generates the corresponding DCS.
iuplt
iprint
title
(LEN = 70)
, job title.
lmax
lbig
nang
lbigl
lbigl
and
lbig
it is possible to do the calculation in differnent sections
and to get the full distribution by combining the results from the
different sections by running the program with iukmat < 0
.
neng
enefnd(i)