Esope source files

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