program define z_rcii
*!  version 1.1.1 02Feb96

   version 4.0
   parse "`*'", parse(" ,")
   confirm integer number `1'
   confirm number `2'
   tempname n r
   scalar `n' = `1'
   scalar `r' = `2'
   mac shift 2
   local varlist "opt"
   local options "Level(real .95)"
   parse "`*'"

   if `level' > 1 { local level = `level'/100 }
   if `level'*(1-`level') < 0 { 
      di in red "invalid confidence level"
      error 499
   }
   tempname z1 z2 d
   scalar `z1' = .5*log((1+`r')/(1-`r'))
   scalar `d' = invnorm(.5*(1+`level'))/sqrt(`n'-3)
   scalar `z2' = `z1' - `d'
   scalar `z1' = `z1' + `d'
   scalar `d' = exp(2*`z1')
   scalar `z1' = (`d'-1)/(`d'+1)
   scalar `d' = exp(2*`z2')
   scalar `z2' = (`d'-1)/(`d'+1)

   di in gr _col(8) "n" _col(16) "r" _col(23) 100*`level' /*
      */ "% confidence limits" in ye _new %8.0f `n' _col(12) %8.4f `r' /*
      */ _col(24) %8.4f `z2' _col(35) %8.4f `z1'
end