wrfv2_fire/external/RSL/RSL/vicopy_o2k.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
  19       subroutine vbcopy( a, b, c )
  20       integer*1 a(*), b(*)
  21       integer c
  22       do i = 1, c
  23         b(i) = a(i)
  24       enddo
  25       return
  26       end
  27
  28       subroutine vizero( a, c )
  29       integer a(*)
  30       integer c
  31       do i = 1, c
  32         a(i) = 0
  33       enddo
  34       return
  35       end
  36
  37       subroutine vbzero( a, c )
  38       integer*1 a(*)
  39       integer c
  40       do i = 1, c
  41         a(i) = 0
  42       enddo
  43       return
  44       end
  45