*-- Author :    I.O.Skillicorn
      SUBROUTINE FFUNCS(I,AFUNC,MA)
**: FFUNCS.......SM. New routine for monitoring. Moved to ft_newf                                             
**----------------------------------------------------------------------                                      
      COMMON /FPLFIT/NNDATA,MATOT,AA(100,50),YY(100),SSIG(100)          
      DIMENSION AFUNC(MA)                                               
      DO 10 K=1,MA                                                      
      AFUNC(K)=AA(I,K)                                                  
 10   CONTINUE                                                          
      RETURN                                                            
      END                                                               
*