      REAL NORM1,A(10,10),W(20),Y(20)
      COMMON A,Y,N
      EXTERNAL ORIG,TRANS
      N = 5
      DO 30 K = 1,5
           R = 0.
           DO 20 J = 1,N
                S = 0.
                DO 10 I = 1,N
                     T = 2.*(RAND(0)-.5)
                     A(I,J) = T
                     S = S + ABS(T)
10              CONTINUE
                IF ( S .GT. R ) R = S
20         CONTINUE
           S = NORM1(N,6,ORIG,TRANS,W)
           WRITE(6,*) 'TRUE NORM:',R
           R = S/R
           WRITE(6,*) 'RATIO',R
30    CONTINUE
      STOP
      END
      SUBROUTINE ORIG(P,M)
      REAL P(1),Y(20),A(10,10)
      COMMON A,Y,N
      DO 20 I = 1,N
           T = 0.
           DO 10 J = 1,N
10              T = T + A(I,J)*P(J)
           Y(I) = T
20    CONTINUE
      DO 30 I = 1,N
30         P(I) = Y(I)
      RETURN
      END
      SUBROUTINE TRANS(P)
      REAL P(1),Y(20),A(10,10)
      COMMON A,Y,N
      DO 20 I = 1,N
           T = 0.
           DO 10 J = 1,N
10              T = T + A(J,I)*P(J)
           Y(I) = T
20    CONTINUE
      DO 30 I = 1,N
30         P(I) = Y(I)
      RETURN
      END
