Changeset 60e3a65 for src/solvers/pcg.F90
- Timestamp:
- 02/08/11 15:59:59 (2 years ago)
- Branches:
- master, external
- Children:
- 93b6f6c
- Parents:
- d35fc77
- git-author:
- Oleg Batrashev <ogbash@…> (02/08/11 15:59:59)
- git-committer:
- Oleg Batrashev <ogbash@…> (02/08/11 15:59:59)
- File:
-
- 1 edited
-
src/solvers/pcg.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/solvers/pcg.F90
r7a5f6b3 r60e3a65 683 683 !call Print_Glob_Vect(z,Msh,'global z===') 684 684 ! compute current rho 685 write(stream,*) "R,P,Z", size(r), size(p), size(z)686 685 rho_curr = Vect_dot_product(r,z) 687 686
Note: See TracChangeset
for help on using the changeset viewer.
