PROGRAM Array IMPLICIT NONE INTEGER i1, i2, ierr INTEGER, DIMENSION(:,:), ALLOCATABLE :: A PRINT*, "Type in the size of the dimensions" READ*, i1, i2 ALLOCATE(A(i1,i2),STAT=ierr) DO i1 = 1,i2 PRINT*, "Type in the elements of column", i1 READ*, A(:,i1) END DO PRINT*, "Number of +ve values", COUNT(A.GT.0) PRINT*, "Number of -ve values", COUNT(A.LT.0) PRINT*, "Number of zero values", COUNT(A.EQ.0) PRINT*, "Sum of +ve values", SUM(A,MASK=A.GT.0) DEALLOCATE(A) END PROGRAM Array