MODULE Narran_Module IMPLICIT NONE SAVE INTEGER Ith_Arrangement INTEGER, PARAMETER:: NArran=3 ! Number of rearrangement channels END MODULE Narran_Module