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