Fortran Intrinsic Function for Lasso thresholding rule

In Lasso solution, the thresholding rule is

Which can be achieved in Fortran by

sign(dim(abs(a),b),a)