diff --git a/xCAT-server/share/xcat/tools/mkrrnodes b/xCAT-server/share/xcat/tools/mkrrnodes
index 87b838e71..5fb1bde1d 100644
--- a/xCAT-server/share/xcat/tools/mkrrnodes
+++ b/xCAT-server/share/xcat/tools/mkrrnodes
@@ -16,7 +16,7 @@ Make node definitions for RR nodes
  mkrrnodes -d -C <cu letter> -R <startrange,endrange> (delete)
 
 example command:
-   mkrrnodes -C d -L 2 -R 1,180
+   mkrrnodes -C d -L 2 -R 1,180   ( 12 blades per rack)
 
  Builds some nodelist entries that look like this
    "rrd171a","rrd171,ls21,cud,opteron,opteron-cud,compute,tb,all,rack16,bc57",,,
diff --git a/xCAT-server/share/xcat/tools/mkrtnodes b/xCAT-server/share/xcat/tools/mkrtnodes
new file mode 100755
index 000000000..d1584a8fd
--- /dev/null
+++ b/xCAT-server/share/xcat/tools/mkrtnodes
@@ -0,0 +1,178 @@
+#!/usr/bin/perl
+# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
+#(C)IBM Corp
+
+#
+
+use Getopt::Long;
+
+#-----------------------------------------------------------------------------
+
+=head1   mkrtnodes
+
+Make node definitions for RR nodes
+
+ mkrtnodes -C <cu letter> -L < start Rack number for CU> -R <startrange,endrange>     (add) 
+ mkrtnodes -d -C <cu letter> -R <startrange,endrange> (delete)
+
+example command:
+   mkrtnodes -C d -L 2 -R 1,180   ( 6 blades per rack)
+
+ Builds some nodelist entries that look like this
+   "rtd171a","rtd171,ls21,cud,opteron,opteron-cud,compute,tb,all,rack16,bc57",,,
+   "rtd171b","rtd171,qs22,cud,cell,cell-b,cell-cud-b,cell-cud,compute,all,tb,rack16,bc57",,,
+   "rtd171c","rtd171,qs22,cud,cell,cell-c,cell-cud-c,cell-cud,compute,all,tb,rack16,bc57",,,
+
+=cut
+
+#-----------------------------------------------------------------------------
+# Main
+
+my $rc = 0;
+
+&parse_args;
+my $cmd = "";
+my @bladename;
+@bladename = ("a", "b", "c");
+foreach my $CU (@::CU)
+{
+    foreach my $range (@::RANGE)
+    {
+        foreach my $blade (@bladename)
+        {
+            my $nodeno = "";
+            if ($range <=9) {  # want rt00X
+               $nodeno .="0";
+            } 
+            if ($range <=99) {  # want rt0XX
+               $nodeno .="0";
+            } 
+            $nodeno .= $range;
+
+            $rack = "rack";
+            $bc   = "bc";
+            $cmd  = "rt";
+            $cmd .= $CU;
+            $cmd .= $nodeno;
+            $cmd .= "$blade";
+            $cmd .= " ";
+            if ($blade eq "a")
+            {
+
+                $cmd .=
+                  "groups=rt$CU$nodeno,ls21,cu$CU,opteron,opteron-cu$CU,compute,tb,all";
+            }
+            else
+            {
+                if ($blade eq "b")
+                {
+                    $cmd .=
+                      "groups=rt$CU$nodeno,qs22,cu$CU,cell,cell-b,cell-cu$CU-b,cell-cu$CU,compute,all,tb";
+                }
+                else
+                {    # c
+                    $cmd .=
+                      "groups=rt$CU$nodeno,qs22,cu$CU,cell,cell-c,cell-cu$CU-c,cell-cu$CU,compute,all,tb";
+
+                }
+            }
+
+            # calculate the rack number ( 6 triblades/rack)
+            my $count = ($range -1) / 6;
+            my ($rackno, $rem) = split '\.', $count;
+           
+            $rackno = $rackno + $::LOCATION;
+            if ($rackno <=9) {  # want rack0X
+               $rack .="0";
+            } 
+            $rack .= $rackno;
+
+            $cmd .= ",";
+            $cmd .= $rack;
+
+            # calculate the BC number ( 3 triblades/BladeCenter)
+            #  BC number = (triblade# / 3) 
+            my $count = (($range-1) / 3) + 1 ;
+            my ($bcno, $rem) = split '\.', $count;
+           
+            if ($bcno <=9) {  # want bc0X
+               $bc .="0";
+            } 
+            $bc .= $bcno;
+
+            $cmd .= ",";
+            $cmd .= $bc;
+
+
+            if ($::DELETE)
+            {
+                if ($::TEST) {
+                   print ("noderm $cmd \n");
+                } else {
+                   system("noderm $cmd");
+                }
+            }
+            else
+            {
+                if ($::TEST) {
+                   print ("nodeadd $cmd \n");
+                } else {
+                   system("nodeadd $cmd");
+                }
+            }
+
+        }
+    }
+}
+exit $rc;
+
+#-----------------------------------------------------------------------------
+
+=head3 parse_args
+  
+  Parses for  input
+
+=cut
+
+#-----------------------------------------------------------------------------
+sub parse_args
+{
+
+    Getopt::Long::Configure("posix_default");
+    Getopt::Long::Configure("no_gnu_compat");
+    Getopt::Long::Configure("bundling");
+    my $usagemsg =
+          " mkrtnodes -h \n mkrtnodes [-d] -C [a|b|,...,r] -L [start rack number for CU] -R [startrange,endrange] [-t|--test]\n";
+    if (
+        !GetOptions(
+            'C|CU=s'    => \$::CU,
+            'L|LOC=s'   => \$::LOCATION,
+            'h|help'    => \$::HELP,
+            'd|delete'  => \$::DELETE,
+            'R|RANGE=s' => \$::RANGE,
+            't|test'    => \$::TEST
+
+        )
+      )
+    {
+        printf $usagemsg;
+        exit 1;
+    }
+    if ($::HELP)
+    {
+        printf $usagemsg;
+        exit 0;
+    }
+    @::CU = split(',', $::CU);
+
+    my ($fNum, $eNum) = split(',', $::RANGE);
+    my $prefix;
+    foreach my $suffix ($fNum .. $eNum)
+    {
+        my $numOfZeros = (length($fNum) - length($suffix));
+        my $prefix     = '0' x $numOfZeros;
+        push @::RANGE, "$fRoot$prefix$suffix$fDomain";
+    }
+
+}
+