SUBROUTINE DRNCHI(NR,DF,R)
       IMPLICIT DOUBLE PRECISION (A-H,O-Z)
       DIMENSION R(nr)
       DO 10 I=1,NR
       R(I)=GENCHI(DF)
 10    CONTINUE
       RETURN
       END