Edit 1: Firstly, I didn't ask for an implementation of a steerable filter. My query was mainly to know whether there exists any such built-in function in Mathematica. This provoked me to guess that there might exist such an implementation already. Specifically if one looks at page 342, Task 19.7.
An example code for the steerable filter (in older version) can be found in Section 19.5.
Firstly, current Mathematica version does not have any built-in function of the form
gD[a_,b_,c_,d_] which is required to run the functions
gDϕ[im_, nv_, nw_, σ_, ϕ_ ] gDϕN[im_, nv_, nw_, σ_, ϕ_]
and finally to get the result as in
Here is the link for the complete source code and the pdf files as well. The only problem is that the Mathematica code is for version 4.2 and I need to find out the way to use it in Mathematica 11.2 specifically for chapter 19.