Searched refs:uhess (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | write_hessian.c | 12 FILE* uhess = fopen( "uhessian.dat", "w" ); in write_hessian() local
31 fprintf( uhess,"%d\n", *nshg ); in write_hessian()
49 fprintf( uhess, "%f ", hessian[k+(u[j]-1)*(*nshg)] ); in write_hessian()
53 fprintf( uhess, "\n" ) ; in write_hessian()
62 fclose( uhess ); in write_hessian()
|
| H A D | hessian.f | 4 & ilwork, uhess, gradu ) argument
19 & uhess(nshg,27)
53 uhess = zero
75 & uhess,
80 call reconstruct( rmass, uhess, iBC, iper, ilwork, 27 )
163 & ien, uhess, rmass ) argument
169 & ien(npro,nshl), uhess(nshg,27),
225 call local (uhess, ql, ien, 27, 'scatter ')
|