Dear All,
I think that the memory should be released after each solving step. If not so, the memory allocation would be huge after sever time steps for a model with thousands of nodes. Thus, I believe it's a good idea to add
phase = -1
call pardiso(pt, maxfct, mnum, mtype, phase, neq, ddum, idum,
1 idum,idum,nrhs,iparm, istats, ddum, ddum, error)
after
setvar = palloc(229,'USOL5',0,2)
in usolve.f of FEAP 8.4 user interface to pardiso solver.