PROGRAM GO
INTEGER ::I,J,M,N,S,K,G=2,T=0
REAL::w,DET=1
REAL,DIMENSION(:,:),ALLOCATABLE::A
REAL,DIMENSION(:,:),ALLOCATABLE::B
REAL,DIMENSION(:,:),ALLOCATABLE::C
PRINT*,"ENTER M,N"
READ*,M,N
ALLOCATE(A(N,M))
ALLOCATE(B(M,N))
ALLOCATE(C(N,N))
PRINT*,"Enter A(", N ,",", M...