MODULE Max_Module
   IMPLICIT NONE
   SAVE
   INTEGER, PARAMETER:: maxang=301
   INTEGER, PARAMETER:: maxangv=maxang*(maxang+1)/2
END MODULE Max_Module