Télécharger zero.eso

Retour à la liste

Numérotation des lignes :

  1. C ZERO SOURCE CB215821 18/09/13 21:16:48 9917
  2. SUBROUTINE ZERO(WORK,IA,IB)
  3. C=======================================================================
  4. C MET A ZERO UNE MATRICE WORK(IA,IB)
  5. C=======================================================================
  6.  
  7. REAL*8 WORK(*)
  8. INTEGER IA,IB,IC,I,lenb
  9. C
  10. IC=IA*IB
  11.  
  12. IF (IC .LT. 2048)THEN
  13. DO I=1,IC
  14. WORK(I)=0.D0
  15. ENDDO
  16.  
  17. ELSE
  18. CALL intpdo(lenb)
  19. CALL ooozmr(WORK(1),IC*lenb)
  20.  
  21. ENDIF
  22.  
  23. RETURN
  24. END
  25.  
  26.  
  27.  
  28.  

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