#include "dims.h"
      SUBROUTINE QTIEFF(j)
      use cons_module,only: len3
      implicit none
      integer,intent(in) :: j
C     ****
C     ****     CALCULATES ELECTRON PRODUCTION OF N4S AND N2D IN NQTEF
C     ****
#include "params.h"
#include "fcom.h"
#include "vscr.h"
#include "index.h"
#include "buff.h"
!
! Local:
      integer :: nqn2pk,nqtefk,i
C     ****
C     ****     ADD NQN2P TO NQTEF
C     ****
      NQN2PK = NQN2P
      NQTEFK = NQTEF
      DO 1 I = 1,LEN3
        F(I,NQTEFK) = F(I,NQTEFK)+1.57*F(I,NQN2PK)
C       F(I,NQTEFK) = F(I,NQTEFK)+1.57*DISN2P(I,1)
    1 CONTINUE

!     call addfsech('QN2P',' ',' ',f(1,nqn2p),zimxp,zkmxp,zkmxp,j)
!     call addfsech('QTEF',' ',' ',f(1,nqtef),zimxp,zkmxp,zkmxp,j)

      RETURN
      END
C