Télécharger zero.eso

Retour à la liste

Numérotation des lignes :

  1. C ZERO SOURCE CB215821 16/12/05 22:53:32 9239
  2. SUBROUTINE ZERO(WORK,IA,IB)
  3. C=======================================================================
  4. C
  5. C MET A ZERO UNE MATRICE WORK(IA,IB)
  6. C
  7. C=======================================================================
  8. IMPLICIT INTEGER(I-N)
  9. IMPLICIT REAL*8(A-H,O-Z)
  10.  
  11. DIMENSION WORK(IA,*)
  12. DATA XZER/0.D0/
  13. C
  14. if (IA*IB .LT. 512) then
  15. DO 100 J=1,IB
  16. DO 110 I=1,IA
  17. WORK(I,J)=XZER
  18. 110 CONTINUE
  19. 100 CONTINUE
  20.  
  21. ELSE
  22. CALL intpdo(lenb)
  23. CALL ooozmr(work(1,1),ia*ib*lenb)
  24. ENDIF
  25.  
  26. RETURN
  27. END
  28.  
  29.  
  30.  

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