Télécharger proma2.eso

Retour à la liste

Numérotation des lignes :

  1. C PROMA2 SOURCE PV 16/03/23 21:15:07 8864
  2. SUBROUTINE PROMA2(D,DEPSI,NSTRS,SIG)
  3. C======================================================================
  4. C
  5. C CALCULE LE PRODUIT D*DEPSI=SIG
  6. C
  7. C=======================================================================
  8. IMPLICIT INTEGER(I-N)
  9. IMPLICIT REAL*8(A-H,O-Z)
  10. DIMENSION D(4,*),DEPSI(*),SIG(*)
  11. C
  12. DO 100 I=1,NSTRS
  13. SIG(I)=0.D0
  14. DO 100 J=1,NSTRS
  15. SIG(I)=SIG(I)+D(I,J)*DEPSI(J)
  16. 100 CONTINUE
  17. C
  18. RETURN
  19. END
  20.  
  21.  
  22.  
  23.  
  24.  

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