ADAS Subroutine lsfun1

      subroutine lsfun1(npt,nlf,pnlfa,fvecc,iflag)
      implicit real*8(a-h,o-z)
 
C-----------------------------------------------------------------------
C  PURPOSE : Program to evaluate functionals for least squares to line
C            power in Gaunt factor approximation.
C
C  COMMENT : Specific for application to program 'ADAS.FORT(POWERFIT)'
C            Necessary for input to NAG routine E04FDF
C
C
C  AUTHOR  : H.P. Summers, JET
C  DATE    : 25-2-91
C
C UNIX-IDL PORT:
C	   WILLIAM OSBORN, TESSELLA SUPPORT SERVICES PLC.
C
C DATE:    17TH APRIL 1996
C
C VERSION: 1.1				DATE: 17-04-96
C MODIFIED: WILLIAM OSBORN
C	    - FIRST VERSION
C
C VERSION: 1.2				DATE: 25-04-96
C MODIFIED: WILLIAM OSBORN
C	    - ADDED IFLAG FOR CALLS BY LMDIF1 RATHER THAN E04FDF
C
C-----------------------------------------------------------------------
 
      INTEGER             IFLAG,       NLF,         NPT
      REAL*8              FVECC(NPT),  PNLFA(NLF)