25 DIM A(NFM,NCM),TC$(NCM),JX(NCM),P(5)