C RESNEQ    SOURCE    CHAT      05/01/13    02:52:37     5004           
      SUBROUTINE RESNEQ(A,B,C,N,KERRE)                                          
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
      DIMENSION A(N,*),B(*),C(*)                                                
      KERRE=0                                                                   
      CALL INVALM(A,N,N,KERRE,0.D0)                                             
      IF(KERRE.NE.0) RETURN                                                     
      DO 1 I=1,N                                                                
      C(I)=0.D0                                                                 
      DO 1 J=1,N                                                                
  1   C(I)=C(I)+A(I,J)*B(J)                                                     
      RETURN                                                                    
      END