function at_hs2(file_loc,mlab,calfile)

    hs2=get_argos_hs2(file_loc,mlab);%read argos file
    Cal=ReadCalFileHSx(calfile.hs2);
    [Bb470, Bb676, Fl676]=calc_Bbx(hs2,Cal);%calculate the backscatter and fluorescence
    plot_argos_hs2(hs2,Bb470,Bb676,Fl676,mlab);%plot it and save it
    