204     char* pws = ws;  in lmmin()  local
205     double* fvec = (double*)pws;  in lmmin()
206     pws += m * sizeof(double) / sizeof(char);  in lmmin()
207     double* diag = (double*)pws;  in lmmin()
208     pws += n * sizeof(double) / sizeof(char);  in lmmin()
209     double* qtf = (double*)pws;  in lmmin()
210     pws += n * sizeof(double) / sizeof(char);  in lmmin()
211     double* fjac = (double*)pws;  in lmmin()
212     pws += n * m * sizeof(double) / sizeof(char);  in lmmin()
213     double* wa1 = (double*)pws;  in lmmin()
214     pws += n * sizeof(double) / sizeof(char);  in lmmin()
215     double* wa2 = (double*)pws;  in lmmin()
216     pws += n * sizeof(double) / sizeof(char);  in lmmin()
217     double* wa3 = (double*)pws;  in lmmin()
218     pws += n * sizeof(double) / sizeof(char);  in lmmin()
219     double* wf = (double*)pws;  in lmmin()
220     pws += m * sizeof(double) / sizeof(char);  in lmmin()
221     int* Pivot = (int*)pws;  in lmmin()
222     pws += n * sizeof(int) / sizeof(char);  in lmmin()