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
lbig < 0then read
neng, (enefnd(i), i = 1, neng)
iukmat > 0then this is the input unit containing K-matrices. The program searches this unit to find all K-matrices with the energy
iukmat < 0then the program reads from
ABS(iukmat)previously computed A_L coefficients and generates the corresponding DCS.
(LEN = 70), job title.
lbigit 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.