[c] = bl(data)

l = length(data);
c = [];
for i = 1:l
    [call,~] = blsprice(data(i,1),data(i,2),data(i,4),data(i,5),data(i,3) );
   
    c(i)=call;
   
end
c = c';