program define z_rci
*!  version 1.1.1 02Feb96

   version 4.0
   if "`1'" == "" { local 1 : rownames(S_1) }
   local varlist "req ex min(2)"
   parse "`*'"
   parse "`varlist'", parse(" ")
   z_rvrfy S_1 S_2 S_3
   tempname ix
   local p = S_3[1,2]
   matrix `ix' = J(`p', 1, 0)
   local pp = 1
   while "``pp''" != "" {
      local j = rownumb(matrix(S_1), "``pp''")
      if `j' == . {
         di in red "Correlations with ``pp'' not found"
         error 499
      }
      matrix `ix'[`pp', 1] = `j'
      local pp = `pp' + 1
   }
   local pp = `pp' - 1

   di in gr "Variables" _col(25) "r" _col(32) 100*S_3[1,3]  /*
      */    "% confidence limits"
   local j = 0
   while `j' < `pp' {
      local j = `j' + 1
      local i = `j' + 1
      while `i' <= `pp' {
         local L1 = max(`ix'[`i',1],`ix'[`j',1])
         local L2 = min(`ix'[`i',1],`ix'[`j',1])
         di in gr "``j'', ``i''" in ye _col(21) %8.4f S_1[`L1',`L2']  /*
            */ _col(33) %8.4f S_2[`L1',`L2'] _col(44) %8.4f S_2[`L2',`L1']
         local i = `i' + 1
      }
   }
end