*-- Author :    I.O.Skillicorn
      SUBROUTINE FAUSSJ(A,N,NP,B,M,MP)
**: FAUSSJ.......SM. New routine for monitoring. Moved to ft_newf                                             
**----------------------------------------------------------------------                                      
*     WRITE(*,*)' SINGULAR MATRIX '                                                                           
C                                                                                                             
*     WRITE(*,*)' SINGULAR MATRIX '                                                                           
*