Lines Matching defs:RADFG

642       SUBROUTINE RADFG(IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)  subroutine
643       DOUBLE PRECISION TPI
644       DOUBLE PRECISION PIMACH
645       DOUBLE PRECISION DUM
646       DOUBLE PRECISION ARG
647       DOUBLE PRECISION DCP
648       DOUBLE PRECISION DSP
649       DOUBLE PRECISION AR1
650       DOUBLE PRECISION AI1
651       DOUBLE PRECISION AR1H
652       DOUBLE PRECISION DC2
653       DOUBLE PRECISION DS2
654       DOUBLE PRECISION AR2
655       DOUBLE PRECISION AI2
656       DOUBLE PRECISION AR2H
657       DOUBLE PRECISION CH(IDO,L1,IP),CC(IDO,IP,L1),C1(IDO,L1,IP),
673   101 CONTINUE
677   102     CONTINUE
678   103 CONTINUE
691   104         CONTINUE
692   105     CONTINUE
693   106 CONTINUE
695   107 IS = -IDO
706   108         CONTINUE
707   109     CONTINUE
708   110 CONTINUE
709   111 IF (NBD.LT.L1) GO TO 115
718   112         CONTINUE
719   113     CONTINUE
720   114 CONTINUE
722   115 DO 118 J = 2,IPPH
730   116         CONTINUE
731   117     CONTINUE
732   118 CONTINUE
734   119 DO 120 IK = 1,IDL1
736   120 CONTINUE
737   121 DO 123 J = 2,IPPH
742   122     CONTINUE
743   123 CONTINUE
755   124     CONTINUE
768   125         CONTINUE
769   126     CONTINUE
770   127 CONTINUE
774   128     CONTINUE
775   129 CONTINUE
781   130     CONTINUE
782   131 CONTINUE
784   132 DO 134 I = 1,IDO
787   133     CONTINUE
788   134 CONTINUE
789   135 DO 137 J = 2,IPPH
795   136     CONTINUE
796   137 CONTINUE
809   138         CONTINUE
810   139     CONTINUE
811   140 CONTINUE
813   141 DO 144 J = 2,IPPH
823   142         CONTINUE
824   143     CONTINUE
825   144 CONTINUE