SUBROUTINE ABCFIT_ALPHA(NJET,NUP,IDJET,ITF,CVAL,M0,G0,ITYPP,ITEVOL
     &  ,IDJFIT,CHI2T,NDF,IERR)

      IMPLICIT NONE
*
#include "qdecl.h"
#include "qcde.h"
*               Input parameters
      INTEGER NJET,NUP,ITF,ITYPP,ITEVOL,ITYPPN,ITYPPL
      REAL    CVAL(4),M0(3),G0(3)
      INTEGER IDJET(*)
*               Output parameters
      INTEGER NDF,IERR
      REAL    CHI2T
      INTEGER IDJFIT(*)

      INTEGER I,DUMMY
      REAL P_REC(4,7),P_FIT(4,7)
*
#include "qmacro.h"
*
      DO I=1,NJET
        CALL QVGET4(P_REC(1,I),IDJET(I))
      ENDDO

      CALL ABCFIT(NJET,NUP,P_REC,ITF,CVAL,M0,G0,ITYPP,ITEVOL,P_FIT
     &     ,CHI2T,NDF,IERR)

      IF (IERR.GE.0) THEN
        DO I=1,NJET
          IDJFIT(I)=KVSAVE(IDJET(I),'ABCFIT')
          CALL QVSET4(IDJFIT(I),P_FIT(1,I))
        ENDDO
      ENDIF
      RETURN
      END