#<
#create_vel0
#
#Usage:
#create_vel0.x  <in.H >out.H 
#
#Input Parameters:
#
#
#Output Parameters:
#
#
#
#Description:
#
#
#
#>
#%end of self-documentaiton
#-------------------------------------------------
#
#Author: Robert Clapp, ESMB 463, 7230253
#
#Date Created:Fri Dec 12  8:30:31 PST 1997
#
#Purpose: 
#

program create_vel0{ 
  integer n1,n2,i2
  real,dimension(:), allocatable :: input,output

	from history: integer n1,n2

	allocate(input(n1),output(n1))

	output=0.
	call sreed("in",input,n1*4)
	do i2=1,n2
		call srite("out",input,n1*4)
		






}