PROGRAM DwarfGalaxy IMPLICIT NONE INTEGER DimArray,NumElements,NumEq,MaxIndex PARAMETER ( DimArray=60000, NumElements=12, NumEq=5, MaxIndex=NumEq+NumElements )