      SUBROUTINE NDFCON
C     -----------------------
C     SET CONSTANTS FOR NCDFV
C     -----------------------
      IMPLICIT DOUBLEPRECISION(A-H,O-Z)
C6    IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION AH(7),BH(12)
      COMMON/LIST12/AH,BH
C
      AH(1)=  0.398942280444D0
      AH(2)=  0.399903438504D0
      AH(3)=  5.758854804580D0
      AH(4)= 29.821355780800D0
      AH(5)=  2.624331216790D0
      AH(6)= 48.695993069200D0
      AH(7)=  5.928857244380D0
C
      BH(1)=  0.398942280385D0
      BH(2)=  3.805200000000D-8
      BH(3)=  1.000006153020D0
      BH(4)=  3.980647940000D-4
      BH(5)=  1.986153813640D0
      BH(6)=  0.151679116635D0
      BH(7)=  5.293303249260D0
      BH(8)=  4.838591280800D0
      BH(9)= 15.150897245100D0
      BH(10)= 0.742380924027D0
      BH(11)=30.789933034000D0
      BH(12)= 3.990194170110D0
C
      RETURN
      END
C
