Searched refs:rlagnrm2 (Results 1 – 1 of 1) sorted by relevance
| /dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/static/ |
| H A D | solve_LINEQ_iter_contact.f90 | 1227 real(kind=kreal) :: rnrm2, rlagnrm2 local
1300 rlagnrm2 = 0.0d0
1302 rlagnrm2 = rlagnrm2 + rlag(i)*rlag(i)
1304 call hecmw_allreduce_R1(hecMESH, rlagnrm2, HECMW_SUM)
1312 write(0,*) 'INFO: resid(x,lag,tot)',sqrt(rnrm2),sqrt(rlagnrm2),sqrt(rnrm2+rlagnrm2)
1334 real(kind=kreal) :: rnrm2, rlagnrm2 local
1487 rlagnrm2 = 0.0d0
1489 rlagnrm2 = rlagnrm2 + rlag(i)*rlag(i)
1491 call hecmw_allreduce_R1(hecMESH, rlagnrm2, HECMW_SUM)
1493 …f (myrank == 0) write(0,*) 'INFO: resid(x,lag,tot)',sqrt(rnrm2),sqrt(rlagnrm2),sqrt(rnrm2+rlagnrm2)
|