      SUBROUTINE FFPN (Q2,FCP,FCN)
C *** SEE R H LANDAU, PROGRAM LPOTT, 1981
C     PROTON CHARGE FF (ALSO P MAG AND N MAG IF NROM(0)=1)
C     NEUTRON CHARGE FORM FACTOR
C     Q IN F-1
      IMPLICIT REAL*8 (A-H,M,O-Z)
C
      DATA X,UN,MN/18.2,-1.91315,4.7548/
      FCP = 1./((1.+Q2/X)**2)
      FCN = -(UN*Q2*0.25/MN/MN)*FCP
      RETURN
      END
