Lines Matching defs:RADFG

299       SUBROUTINE RADFG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)  subroutine
315   101 CONTINUE
319   102    CONTINUE
320   103 CONTINUE
331   104       CONTINUE
332   105    CONTINUE
333   106 CONTINUE
335   107 IS = -IDO
344   108       CONTINUE
345   109    CONTINUE
346   110 CONTINUE
347   111 IF (NBD .LT. L1) GO TO 115
356   112       CONTINUE
357   113    CONTINUE
358   114 CONTINUE
360   115 DO 118 J=2,IPPH
368   116       CONTINUE
369   117    CONTINUE
370   118 CONTINUE
372   119 DO 120 IK=1,IDL1
374   120 CONTINUE
375   121 DO 123 J=2,IPPH
380   122    CONTINUE
381   123 CONTINUE
393   124    CONTINUE
406   125       CONTINUE
407   126    CONTINUE
408   127 CONTINUE
412   128    CONTINUE
413   129 CONTINUE
419   130    CONTINUE
420   131 CONTINUE
422   132 DO 134 I=1,IDO
425   133    CONTINUE
426   134 CONTINUE
427   135 DO 137 J=2,IPPH
433   136    CONTINUE
434   137 CONTINUE
447   138       CONTINUE
448   139    CONTINUE
449   140 CONTINUE
451   141 DO 144 J=2,IPPH
461   142       CONTINUE
462   143    CONTINUE
463   144 CONTINUE