Télécharger aequalb.eso

Retour à la liste

Numérotation des lignes :

  1. C AEQUALB SOURCE AM 12/02/27 21:15:00 7289
  2.  
  3. c---------------------------------------------------------------------
  4. SUBROUTINE AequalB(A,B,n1,n2,n3,n4)
  5. c
  6. c ****************************************************************
  7. c * *
  8. c * A = B *
  9. c * ------------------------------------------- *
  10. c * *
  11. c * INPUT : B : MATRIX *
  12. c * : n1,n2,n3,n4 : DIMENSIONS OF THE MATRIX *
  13. c * *
  14. C * OUTPUT : A : MATRIX *
  15. c * *
  16. c ****************************************************************
  17.  
  18.  
  19. IMPLICIT REAL*8 (A-B,D-H,O-Z)
  20. implicit integer (I-K,M,N)
  21. implicit logical (L)
  22. implicit character*10 (C)
  23.  
  24. dimension A(*),B(*)
  25.  
  26. i1 = 1
  27.  
  28. nloc = n1*n2*n3*n4
  29. do 1 i=i1,nloc
  30. A(i) = B(i)
  31. 1 continue
  32.  
  33. return
  34. end
  35.  
  36.  
  37.  
  38.  

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