1       SUBROUTINE  DRN2G(D, DR, IV, LIV, LV, N, ND, N1, N2, P, R,  subroutine
53 C        IV(RDREQ) IS NONZERO.   DRN2G SETS IV(REGD) = 1 IF RD  argument
157       DOUBLE PRECISION DD7TPR, DV2NRM
175       INTEGER G1, GI, I, IV1, IVMODE, JTOL1, K, L, LH, NN, QTR1,
176      1        RMAT1, YI, Y1
177       DOUBLE PRECISION T  local
179       DOUBLE PRECISION HALF, ZERO
183       INTEGER CNVCOD, COVMAT, COVREQ, DINIT, DTYPE, DTINIT, D0INIT, F,
184      1        FDH, G, H, IPIVOT, IVNEED, JCN, JTOL, LMAT, MODE,
185      2        NEXTIV, NEXTV, NF0, NF00, NF1, NFCALL, NFCOV, NFGCAL,
186      3        NGCALL, NGCOV, QTR, RDREQ, REGD, RESTOR, RLIMIT, RMAT,
187      4        TOOBIG, VNEED, Y  local
217  10   IF (ND .LE. 0) GO TO 210
227  20   CALL DG7LIT(D, X, IV, LIV, LV, P, P, V, X, X)
243  30   JTOL1 = IV(JTOL)
268  40   G1 = IV(G)
273  50   V(F) = ZERO
281  60   CALL DV7SCP(P, V(G1), ZERO)
294  70   CALL DV7CPY(N, RD, R)
295  80   CALL DQ7APL(ND, N, P, DR, RD, 0)
299  90   IV(1) = -2
301  100  CALL DV7SCP(P, V(Y1), ZERO)
302  110  CALL DV7SCP(LH, V(RMAT1), ZERO)
307  120  T = DV2NRM(NN, R)
316  130  Y1 = IV(Y)
321  140     CONTINUE
329  150  IF (IV(MODE) .GT. P) GO TO 240
342  160     CONTINUE
347  170  IF (N .LE. ND) GO TO 180
354  180  IF (IV(DTYPE) .GT. 0)
364  190  IF (N2 .LT. N) GO TO 270
387  200  IV(TOOBIG) = 1
392  210  IV(1) = 66
397  220  IF (IV(COVMAT) .NE. 0) GO TO 290
420  230  IV(NFCOV) = IV(NFCOV) + 1
426  240  L = IV(LMAT)
442  250  L = IV(LMAT)
467 C  ***  LAST LINE OF  DRN2G FOLLOWS  ***  argument