Télécharger la plaquette Cast3M


fr en

Télécharger aequalb.eso

Retour à la liste

Numérotation des lignes : 

aequalb

  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