Changeset 2034 for branches/c08_branch/source/mole_co_solve.cpp
- Timestamp:
- 05/10/08 09:03:02 (6 months ago)
- Files:
-
- 1 modified
-
branches/c08_branch/source/mole_co_solve.cpp (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/c08_branch/source/mole_co_solve.cpp
r1771 r2034 398 398 merror = 0; 399 399 400 /*lint -e740 unusual pointer case */401 400 getrf_wrapper(mole.num_comole_calc,mole.num_comole_calc,mole.amat[0],mole.num_comole_calc, ipiv,&merror); 402 /*DGETRF(mole.num_comole_calc,mole.num_comole_calc,(double*)amat,mole.num_comole_calc, ipiv,&merror);*/403 401 404 402 if( merror != 0 ) … … 409 407 410 408 getrs_wrapper('N',mole.num_comole_calc,1,mole.amat[0],mole.num_comole_calc,ipiv,mole.b,mole.num_comole_calc,&merror); 411 /*lint +e740 unusual pointer case */412 409 413 410 if( merror != 0 )
