European Space Agency

Royal Belgian Institute for Aeronomy

ua638 - Hassitt proton cross sections

subroutine  ua638(nsp, ksp, cs, ifail)

Parameters:

• nsp [integer4,in] :: number of species

• ksp (30) [integer4,in] :: list of species codes

• cs (30) [real8,out] :: cross section (see note in ua630())

• ifail [integer4,out] :: error flag (see Diagnostics)

Description

The subroutine ua637() evaluates the cross sections proposed by Hassitt for collisions between proton and H, He, N2, O2, O., N., H+, He+, O+, NO+, O+2 and electrons. The cross section is expressed in mbarn (10^-27cm²) and is evaluated only for components listed in argument ksp.

References

• Hassitt, A., Average effect of the atmosphere on trapped protons , JGR 70 (1965) 5385-5394

Diagnostics

• -63801, invalid species code

• -63802, not allowed component

Common Blocks

None

Dependencies

Called by

• ua636 - evaluate a weighted amospheric mass

Calls

See also

None

Reported Bugs

None

Examples

None

---

UNILIB/tags/v3.02