dpm25nonu.f

Go to the documentation of this file.

      SUBROUTINE qel_pol(ENU, LTYP,P21,P22,P23,P24,P25)
      IMPLICIT DOUBLE PRECISION (a-h,o-z)
      RETURN
      END


      SUBROUTINE gen_qel (ENU, LTYP,P21,P22,P23,P24,P25)
      IMPLICIT DOUBLE PRECISION (a-h,o-z)
      RETURN
      END



      SUBROUTINE mass_ini
      IMPLICIT DOUBLE PRECISION (a-h,o-z)
      RETURN
      END

      SUBROUTINE gen_delta(ENU,LLEP,LTARG,JINT,P21,P22,P23,P24,P25)
      IMPLICIT DOUBLE PRECISION (a-h,o-z)
      RETURN
      END
C****************************************************************
      SUBROUTINE kkevle(NHKKH1,EPN,PPN,KKMAT,IREJ)
*
      IMPLICIT DOUBLE PRECISION (a-h,o-z)
      RETURN
      END
C********************************************************************* 
 
      FUNCTION lucomp(KF) 
 
      RETURN 
      END