Sources Esope | Cast3M

resneq
C RESNEQ    SOURCE    CB215821  26/08/24    21:18:15     12622          
      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 2 I=1,N
      C(I)=0.D0
      DO 1 J=1,N
      C(I)=C(I)+A(I,J)*B(J)
    1 CONTINUE
    2 CONTINUE
      RETURN
      END