MODULE ChiAng_Module USE Numeric_Kinds_Module USE Parms_Module IMPLICIT NONE SAVE REAL(Kind=WP_Kind) chif1(narran) ! This is the kinematic angle between channel f (final channel) and channel 1. END MODULE ChiAng_Module