C23456
      FUNCTION fperfit(x)
      COMMON/PAWPAR/PAR(1)

      REAL r,pi
      INTEGER i,N
      PARAMETER(N=25)
      PARAMETER(pi=3.14159)

      fperfit=sin(2.*x*par(1)*pi/N)
      END