Télécharger resneq.eso

Retour à la liste

Numérotation des lignes :

  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
  7. CALL INVALM(A,N,N,KERRE,0.D0)
  8. IF(KERRE.NE.0) RETURN
  9. DO 1 I=1,N
  10. C(I)=0.D0
  11. DO 1 J=1,N
  12. 1 C(I)=C(I)+A(I,J)*B(J)
  13. RETURN
  14. END
  15.  
  16.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales