Télécharger zero.eso

Retour à la liste

Numérotation des lignes :

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

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