Revision 10ef4410c16710d7caf8c0882b7efbac894d49ed authored by M. Helena Gonçalves on 22 September 2012, 00:00:00 UTC, committed by Gabor Csardi on 22 September 2012, 00:00:00 UTC 
version 1.1-1-dup
1 parent 3f407ee
Raw File
matc.f
      subroutine matc(a,b,n1,n2)
C   b=a
      implicit double precision (a-h,o-z)
      dimension a(n1,n2),b(n1,n2)
      do 10 i=1,n1
        do 20 j=1,n2
          b(i,j)=a(i,j)
   20   continue
   10 continue 
      return
      end
back to top