changed ILO and IHI to respect index form that we are using and inlined LARF.F which allowed me to place the workspace outside of the for loop.