program asinhcauchyinnerv2
version 13
args lnf theta lsigma
tempvar sigma 
quietly gen double `sigma' = exp(`lsigma')
quietly replace `lnf' = ln((exp((`theta') + asinh(1/tan((exp(`theta')* ///
   _pi*$ML_y1)/(1 + (-1 + exp(`theta'))*$ML_y1))/(`sigma')))*_pi* ///
   (1/sin((exp(`theta')*_pi*$ML_y1)/(1 + (-1 + exp(`theta'))* ///
   $ML_y1)))^2)/((1 + exp(asinh(1/tan((exp(`theta')*_pi*$ML_y1)/(1 + ///
   (-1 + exp(`theta'))*$ML_y1))/(`sigma'))))^2*(1 + (-1 + exp(`theta'))* ///
   $ML_y1)^2*(`sigma')*sqrt(1 + (1/tan((exp(`theta')*_pi*$ML_y1)/(1 + ///
   (-1 + exp(`theta'))*$ML_y1)))^2/(`sigma')^2))) /// 
   if $ML_y1 > 0 & $ML_y1 < 1
quietly replace `lnf' = ln(_pi*`sigma'*exp(`theta')/2) if $ML_y1 ==0
quietly replace `lnf' = ln(_pi*`sigma'/(exp(`theta')*2)) if $ML_y1 ==1
end