*
*     ------------------------------------------------------------------
*	C F P F
*     ------------------------------------------------------------------
*
      SUBROUTINE CFPF(N,IVI,ILI,ISI,IVJ,ILJ,ISJ,COEFP)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
*
*     THIS IS A DUMMY SUBROUTINE TO CALCULATE CFP OF F-ELECTRONS.  IT IS
*     VALID ONLY FOR ONE OR TWO ELECTRONS IN THE F-SHELL UNDER
*     CONSIDERATION.
*
      COEFP=1.D0
      RETURN
      END
