copy.for

Numerical Recipes一书中例子的源码所用到的函数集,William H. Press 和 Saul A. Teukolsky 所著

      SUBROUTINE copy(aout,ain,n)
      INTEGER n
      DOUBLE PRECISION ain(n,n),aout(n,n)
      INTEGER i,j
      do 12 i=1,n
        do 11 j=1,n
          aout(j,i)=ain(j,i)
11      continue
12    continue
      return
      END