Lines Matching refs:IERROR
39 1 IERROR) argument
170 IERROR=0
171 CALL DXSET (0, 0, 0.0D0, 0,IERROR)
172 IF (IERROR.NE.0) RETURN
214 CALL DXPMU(DNU1,DNU2,MU1,MU2,X,SX,ID,PQA,IPQA,IERROR)
215 IF (IERROR.NE.0) RETURN
223 CALL DXQMU(DNU1,DNU2,MU1,MU2,X,SX,ID,PQA,IPQA,IERROR)
224 IF (IERROR.NE.0) RETURN
230 320 CALL DXQNU(DNU1,DNU2,MU1,X,SX,ID,PQA,IPQA,IERROR)
231 IF (IERROR.NE.0) RETURN
237 360 CALL DXPQNU(DNU1,DNU2,MU1,X,SX,ID,PQA,IPQA,IERROR)
238 IF (IERROR.NE.0) RETURN
243 380 IF(ID.EQ.3) CALL DXPMUP(DNU1,DNU2,MU1,MU2,PQA,IPQA,IERROR)
244 IF (IERROR.NE.0) RETURN
249 IF(ID.EQ.4) CALL DXPNRM(DNU1,DNU2,MU1,MU2,PQA,IPQA,IERROR)
250 IF (IERROR.NE.0) RETURN
256 CALL DXRED(PQA(I),IPQA(I),IERROR)
257 IF (IERROR.NE.0) RETURN
266 IERROR=210
270 IERROR=211
275 1 IERROR) argument
303 IERROR=0
304 CALL DXPQNU(NU1,NU2,MU2,X,SX,ID,PQA,IPQA,IERROR)
305 IF (IERROR.NE.0) RETURN
312 CALL DXPQNU(NU1,NU2,MU,X,SX,ID,PQA,IPQA,IERROR)
313 IF (IERROR.NE.0) RETURN
332 CALL DXADD(X1,IPQA(J+1),X2,IPQA(J+2),PQA(J),IPQA(J),IERROR)
333 IF (IERROR.NE.0) RETURN
334 CALL DXADJ(PQA(J),IPQA(J),IERROR)
335 IF (IERROR.NE.0) RETURN
343 SUBROUTINE DXPMUP (NU1, NU2, MU1, MU2, PQA, IPQA, IERROR) argument
369 IERROR=0
396 220 CALL DXADJ(PROD,IPROD,IERROR)
397 IF (IERROR.NE.0) RETURN
403 CALL DXADJ(PQA(I),IPQA(I),IERROR)
404 IF (IERROR.NE.0) RETURN
407 CALL DXADJ(PROD,IPROD,IERROR)
408 IF (IERROR.NE.0) RETURN
413 CALL DXADJ(PROD,IPROD,IERROR)
414 IF (IERROR.NE.0) RETURN
420 SUBROUTINE DXPNRM (NU1, NU2, MU1, MU2, PQA, IPQA, IERROR) argument
446 IERROR=0
478 510 CALL DXADJ(PROD,IPROD,IERROR)
479 IF (IERROR.NE.0) RETURN
484 CALL DXADJ(PQA(I),IPQA(I),IERROR)
485 IF (IERROR.NE.0) RETURN
490 CALL DXADJ(PROD,IPROD,IERROR)
491 IF (IERROR.NE.0) RETURN
502 CALL DXADJ(PROD,IPROD,IERROR)
503 IF (IERROR.NE.0) RETURN
509 SUBROUTINE DXPQNU (NU1, NU2, MU, X, SX, ID, PQA, IPQA, IERROR) argument
547 IERROR=0
565 50 CALL DXADJ(FACTMU,IF,IERROR)
566 IF (IERROR.NE.0) RETURN
596 CALL DXADJ(A,IA,IERROR)
597 IF (IERROR.NE.0) RETURN
599 CALL DXADD(PQ,IPQ,A,IA,PQ,IPQ,IERROR)
600 IF (IERROR.NE.0) RETURN
609 77 CALL DXADJ(X1,IPQ,IERROR)
610 IF (IERROR.NE.0) RETURN
613 CALL DXADJ(PQ,IPQ,IERROR)
614 IF (IERROR.NE.0) RETURN
643 CALL DXADJ(A,IA,IERROR)
644 IF (IERROR.NE.0) RETURN
649 CALL DXADD(PQ,IPQ,X1,IX1,PQ,IPQ,IERROR)
650 IF (IERROR.NE.0) RETURN
655 CALL DXADD(PQ,IPQ,X1,IX1,PQ,IPQ,IERROR)
656 IF (IERROR.NE.0) RETURN
660 IF(MU.GE.1) CALL DXADD(PQ,IPQ,-XS,IXS,PQ,IPQ,IERROR)
661 IF (IERROR.NE.0) RETURN
691 CALL DXADD(X1,IPQ1,-X2,IPQ2,PQ,IPQ,IERROR)
692 IF (IERROR.NE.0) RETURN
693 CALL DXADJ(PQ,IPQ,IERROR)
694 IF (IERROR.NE.0) RETURN
762 1 IERROR) argument
785 IERROR=0
790 CALL DXPQNU(NU1,NU2,MU,X,SX,ID,PQA,IPQA,IERROR)
791 IF (IERROR.NE.0) RETURN
798 CALL DXPQNU(NU1,NU2,MU,X,SX,ID,PQA,IPQA,IERROR)
799 IF (IERROR.NE.0) RETURN
825 CALL DXADD(X1,IPQ1,-X2,IPQ2,PQ,IPQ,IERROR)
826 IF (IERROR.NE.0) RETURN
827 CALL DXADJ(PQ,IPQ,IERROR)
828 IF (IERROR.NE.0) RETURN
844 1 IERROR) argument
869 IERROR=0
880 CALL DXPQNU(NU1,NU2,MU,X,SX,ID,PQA,IPQA,IERROR)
881 IF (IERROR.NE.0) RETURN
892 CALL DXPQNU(NU1,NU2,MU,X,SX,ID,PQA,IPQA,IERROR)
893 IF (IERROR.NE.0) RETURN
913 CALL DXADD(X1,IPQ1,-X2,IPQ2,PQ,IPQ,IERROR)
914 IF (IERROR.NE.0) RETURN
915 CALL DXADJ(PQ,IPQ,IERROR)
916 IF (IERROR.NE.0) RETURN
953 CALL DXADD(X1,IPQ1,X2,IPQ2,PQ,IPQ,IERROR)
954 IF (IERROR.NE.0) RETURN
955 CALL DXADJ(PQ,IPQ,IERROR)
956 IF (IERROR.NE.0) RETURN
967 SUBROUTINE DXRED (X, IX, IERROR) argument
1012 IERROR=0
1052 SUBROUTINE DXSET (IRAD, NRADPL, DZERO, NBITS, IERROR) argument
1271 IERROR=0
1294 IERROR=201
1315 IERROR=202
1330 IERROR=203
1339 IERROR=204
1378 IERROR=205
1382 IERROR=206
1389 SUBROUTINE DXADD (X, IX, Y, IY, Z, IZ, IERROR) argument
1444 IERROR=0
1562 220 CALL DXADJ(Z, IZ,IERROR)
1566 SUBROUTINE DXADJ (X, IX, IERROR) argument
1615 IERROR=0
1637 IERROR=207