SUBROUTINE DRNNOA(NR,R)
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DIMENSION R(NR)
      AV=0D0
      SD=1D0
      DO 10 I=1,NR
         R(I)=GENNOR(AV,SD)
 10      CONTINUE
      RETURN
      END