9949       SUBROUTINE DPREPS(Y,X1,MAXNXT,N,NUMVAR,DUM1,DUM2,  subroutine
9951      1                  IBUGA3,IERROR)
10017    51   FORMAT('***** AT THE BEGINNING OF DPREPS--')  argument
10020    52   FORMAT('IBUGA3,N,NUMVAR = ',A4,2X,2I8)
10023    54   FORMAT('Y(1),X1(1),X2(1),X3(1),X4(I),X5(1) = ',6E13.5)
10026    55   FORMAT('DUM1(1),DUM2(1) = ',2E13.5)
10053  4205   FORMAT('ERROR IN DPREPS   SUBROUTINE--NUMSET = 0')  argument
10082  4700     CONTINUE
10087  5100     CONTINUE
10092  5200     CONTINUE
10095  4600   CONTINUE
10116  4405 CONTINUE
10125  4425     CONTINUE
10129  4420   CONTINUE
10136  4450   CONTINUE
10141  4460   CONTINUE
10166  9011   FORMAT('***** AT THE END       OF DPREPS--')  argument
10169  9012   FORMAT('IERROR = ',A4)
10172  9014   FORMAT('IERROR,IREP,REPSD,REPDF,NUMSET = ',2(A4,2X),2G15.7,I8)