Esope source files

   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 :