Sources Esope | Cast3M

resneq
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