armve.f

来自「阐述了建立物质本构关系时应满足的基本公理, 较详细地推导了各种类型粘 弹性物质」· F 代码 · 共 11 行

      subroutine armve( a,b,n )
      real a(*)
      real b(*)
c
      do 100 i = 1,n
      b(i) = a(i)
100   Continue
C
      return
      end