call OUTSTORE( nn, ff, gnorm0, nupdate, jmin, jmax )
subroutine OUTSTORE( n, fc, gnorm0, m, jmin, jmax )