#
# rnml01.rb
#
# $Id: rnml01.rb,v 1.2 2000/11/27 01:53:58 keiko Exp $
#

require "narray"
require "numru/dcl"

include NumRu
include Math


N = 12

rx = [0, 10, 20, 30, 40, 30, 20, 10, 0, -10, -20, -10].collect{|i| i.to_f}

printf " LIST OF RX : %s\n", "%5.0f"*N % rx.to_a
ry = DCL::vrrnm(rx, N, 1, 1, 3)
print " AFTER CALLING VRRNM(RX,RY,12,1,1,3)\n"
printf " LIST OF RY : %s\n", "%5.0f"*N % ry.to_a
