hi aabid,
as i mentioned you that you would have got matlab file in mathworks web site. still for your convenience here is the link,
http://www.mathworks.com/matlabcentral/fileexchange/45809-fiber-grating-solver
note please these are basic grating , you have to your self some how adapt them.
with regards