*! version 1.0.0   01 September 1993   RG
program define fisheri
    version 3.1
    scalar Fisher=.5*ln((1+`1')/(1-`1'))
end