wrfv2_fire/external/RSL/RSL/vicopy_sx.F

   1       subroutine vicopy( a, b, c )
   2       integer a(*), b(*)
   3       integer c
   4       do i = 1, c
   5         b(i) = a(i)
   6       enddo
   7       return
   8       end
   9
  10       subroutine vrcopy( a, b, c )
  11       real a(*), b(*)
  12       integer c
  13       do i = 1, c
  14         b(i) = a(i)
  15       enddo
  16       return
  17       end
  18