dtcabe.f

来自「最优化算法」· F 代码 · 共 16 行

c
c-----------------------------------------------------------------------
c
      subroutine dtcabe (n,u,v,izs,rzs,dzs)
      integer n,izs(1)
      real rzs(1)
      double precision u(n),v(n),dzs(1)
c
      integer i
c
      do 1 i=1,n
          v(i)=u(i)
 1    continue
      return
      end