3       SUBROUTINE PITCON(DF,FPAR,FX,IERROR,IPAR,IWORK,LIW,NVAR,RWORK,  argument
1134       INTEGER   IERROR
1205       IERROR=0
1250           IERROR=1
1272         IERROR=1
1277         IERROR=1
1318         CALL SLNAME(DETS,FX,DF,FPAR,IERROR,IPC,IPAR,IWORK,LIW,
1326         CALL START(DF,FPAR,FX,IERROR,IPAR,IPC,IWORK,IWRITE,LIW,
1370       CALL CORECT(DF,FPAR,FX,IERROR,IT,IPAR,IWORK,
1373       IF(IERROR.NE.0.AND.IWORK(4).GT.0)THEN
1374         IERROR=0
1380       IF(IERROR.NE.0)THEN
1432       CALL TANGNT(RWORK(17),FX,DF,FPAR,IERROR,IPC,IPAR,IWORK,NVAR,
1434       IF(IERROR.NE.0)THEN
1645       CALL ROOT(A,FA,B,FB,SN,TSN,IMITL,IFLAG,IERROR,RWORK(8))
1647       IF(IERROR.NE.0)THEN
1689       CALL CORECT(DF,FPAR,FX,IERROR,LPC,IPAR,IWORK,
1691       IF(IERROR.NE.0.AND.IWORK(4).GT.0)THEN
1702       IF(IERROR.NE.0)THEN
1707       CALL TANGNT(TEMP,FX,DF,FPAR,IERROR,LPC,IPAR,IWORK,NVAR,
1709       IF(IERROR.NE.0)THEN
1736       IERROR=8
1795       CALL CORECT(DF,FPAR,FX,IERROR,IHOLD,IPAR,IWORK,
1798       IF(IERROR.EQ.0)GO TO 800
1803       IF(IERROR.EQ.2)THEN
1816         IF(IERROR.EQ.5)GO TO 740
1833         IF(IERROR.NE.5)GO TO 710
1840         IERROR=4
1847       IF(IERROR.NE.5)GO TO 710
1904       IF(IERROR.EQ.0)THEN
1905       ELSEIF(IERROR.EQ.1)THEN
1908       ELSEIF(IERROR.EQ.2)THEN
1912       ELSEIF(IERROR.EQ.3)THEN
1915       ELSEIF(IERROR.EQ.4)THEN
1918       ELSEIF(IERROR.EQ.5)THEN
1921       ELSEIF(IERROR.EQ.6)THEN
1924       ELSEIF(IERROR.EQ.7)THEN
1927       ELSEIF(IERROR.EQ.8)THEN
1931         IERROR=9
2097       SUBROUTINE CORECT(DF,FPAR,FX,IERROR,IHOLD,IPAR,IWORK,  argument
2187       INTEGER   IERROR
2222       IERROR=0
2232       CALL FX(NVAR,FPAR,IPAR,XR,WK,IERROR)
2234       IF(IERROR.NE.0)THEN
2257         CALL SLNAME(DETS,FX,DF,FPAR,IERROR,IHOLD,IPAR,IWORK,LIW,
2259         IF(IERROR.NE.0)THEN
2260           WRITE(LOUNIT,12)IERROR
2276         CALL FX(NVAR,FPAR,IPAR,XR,WK,IERROR)
2278         IF(IERROR.NE.0) THEN
2309             IERROR=4
2316            IERROR=4
2326       IERROR=5
2333       SUBROUTINE ROOT(A,FA,B,FB,U,FU,KOUNT,IFLAG,IERROR,EPMACH)  argument
2414       INTEGER   IERROR
2434           IERROR=7
2669       SUBROUTINE START(DF,FPAR,FX,IERROR,IPAR,IPC,IWORK,IWRITE,LIW,  argument
2702       INTEGER   IERROR
2726         CALL SLNAME(DETS,FX,DF,FPAR,IERROR,IPC,IPAR,IWORK,LIW,
2729         IF(IERROR.NE.0)THEN
2751       CALL CORECT(DF,FPAR,FX,IERROR,IPC,IPAR,IWORK,NVAR,RWORK,STEPX,
2757       IF(IERROR.NE.0.AND.ICRIT.EQ.1)THEN
2762       ELSEIF(IERROR.NE.0)THEN
2766       IF(IERROR.NE.0.AND.IWORK(4).GT.0)THEN
2768         IERROR=0
2774       IF(IERROR.NE.0)THEN
2792       SUBROUTINE TANGNT(DETSN,FX,DF,FPAR,IERROR,IP,IPAR,IWORK,  argument
2837       INTEGER   IERROR
2860       CALL SLNAME(DETSN,FX,DF,FPAR,IERROR,IP,IPAR,IWORK,LIW,
2862       IF(IERROR.NE.0)RETURN
2868         IERROR=6
2872         IERROR=0
2876       SUBROUTINE DENSLV(DETS,FX,DF,FPAR,IERROR,IPC,IPAR,  argument
2982       INTEGER   IERROR
3012       IERROR=0
3018         IERROR=4
3031         IERROR=1
3047         CALL DF(NVAR,FPAR,IPAR,X,RWORK(LDF),IERROR)
3059         CALL DENJAC(EPS,FPAR,RWORK(LDF),FX,IERROR,IPAR,IPC,IWORK,
3062       IF(IERROR.NE.0)RETURN
3088       CALL DGEFA(RWORK(LDF),NVAR,NVAR,IWORK(LPIV),IERROR)
3090       IF(IERROR.NE.0)THEN
3091         WRITE(LOUNIT,1492)IERROR
3092         IERROR=3
3125       SUBROUTINE DENJAC(EPS,FPAR,FPRIME,FX,IERROR,IPAR,IPC,IWORK,  argument
3197       INTEGER   IERROR
3210         CALL FX(NVAR,FPAR,IPAR,X,WORK2,IERROR)
3213         IF(IERROR.NE.0)RETURN
3220         CALL FX(NVAR,FPAR,IPAR,X,WORK1,IERROR)
3222         IF(IERROR.NE.0)RETURN
3226           CALL FX(NVAR,FPAR,IPAR,X,WORK2,IERROR)
3228           IF(IERROR.NE.0)RETURN
3248       SUBROUTINE BANSLV(DETS,FX,DF,FPAR,IERROR,IPC,IPAR,IWORK,LIW,  argument
3406       INTEGER   IERROR
3446       IERROR=0
3452         IERROR=1
3457         IERROR=1
3481         IERROR=1
3500         CALL DF(NVAR,FPAR,IPAR,X,RWORK(LDFX),IERROR)
3502         IF(IERROR.NE.0)RETURN
3514      *  FX,IERROR,IPAR,IPC,IWORK,JACK,LIW,LOUNIT,NBAND,NEQN,NVAR,X,
3566       CALL DGBFA(RWORK(LDFX),NBAND,NEQN,ML,MU,IWORK(LPIV),IERROR)
3568       IF(IERROR.NE.0)THEN
3569         WRITE(LOUNIT,1000)IERROR,IPC
3570         IERROR=3
3601         IERROR=3
3637       CALL DGBFA(RWORK(LDFX),NBAND,NEQN,ML,MU,IWORK(LPIV),IERROR)
3639       IF(IERROR.NE.0)THEN
3640         WRITE(LOUNIT,1000)IERROR,IPC
3641         IERROR=3
3670       SUBROUTINE BANJAC(EPS,FCOL,FPAR,FPRIME,FROW,FX,IERROR,IPAR,IPC,  argument
3795       INTEGER   IERROR
3820         CALL FX(NVAR,FPAR,IPAR,X,WORK2,IERROR)
3822         IF(IERROR.NE.0)RETURN
3831         CALL FX(NVAR,FPAR,IPAR,XTEMP,WORK1,IERROR)
3833         IF(IERROR.NE.0)RETURN
3839           CALL FX(NVAR,FPAR,IPAR,XTEMP,WORK2,IERROR)
3841           IF(IERROR.NE.0)RETURN
3861       CALL FX(NVAR,FPAR,IPAR,XTEMP,WORK1,IERROR)
3863       IF(IERROR.NE.0)RETURN
3866         CALL FX(NVAR,FPAR,IPAR,XTEMP,WORK2,IERROR)
3868         IF(IERROR.NE.0)RETURN