#include "dims.h"
      SUBROUTINE QTIEFF
      use cons_module,only: len3
      implicit none
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"
#include "crates_tdep.h"
      integer :: nqtefk,i
C     ****
C     ****     ADD NQN2P TO NQTEF (NQTEF has been defined by qrj)
! disn2p is set by orora, qinite,qrj, and xray
C     ****
      NQTEFK = NQTEF
      DO 1 I = 1,LEN3
      F(I,NQTEFK) = F(I,NQTEFK)+1.57*DISN2P(I,1)
     1              +1.0E-3
    1 CONTINUE
      RETURN
      END
C