b = 0.042
m = 1
a = 0.1075
Gamma1 = 27.6561421691630044961129897274076938629150390625`50.
B1 = 10.8721158771190697933661795104853808879852294921875`50.
C1 = 1.0083854268623009264871370760374702513217926025390625`50.
D1 = 12.755787693798620097140883444808423519134521484375`50.
ParametricPlot3D[{(BesselJ[m, Gamma1*r] +
      B1*BesselY[m, Gamma1*r] + C1*BesselI[m,Gamma1*r] +
      D1*BesselK[m,Gamma1*r])*
    (Sin[m*Theta]+Cos[m*Theta])}, {Theta, 0, 2*Pi}, {r, b, a}]