Searched refs:keep_south (Results 1 – 3 of 3) sorted by relevance
/dports/science/healpix/Healpix_3.50/src/f90/mod/ |
H A D | alm_tools.F90 | 368 subroutine select_rings_old(z, zbounds, keep_north, keep_south, keep_either) argument 378 logical(LGT), intent(OUT) :: keep_north, keep_south, keep_either local 386 keep_south = .true. 397 keep_south = (zs >= zbounds(1) .and. zs <= zbounds(2)) 402 keep_south = (zs > zbounds(1) .or. zs < zbounds(2)) 404 keep_either = keep_north .or. keep_south 411 subroutine select_rings(z, zbounds, keep_north, keep_south, keep_either) argument 422 logical(LGT), intent(OUT) :: keep_north, keep_south, keep_either local 434 keep_south = (zs > zbounds(1) .and. zs < zbounds(2)) 439 keep_south = (zs > zbounds(1) .or. zs < zbounds(2)) [all …]
|
H A D | mpi_alm_tools.f90 | 535 logical(LGT), dimension(0:SMAXCHK-1) :: keep_north, keep_south, keep_it local 609 if (ith < 2*nsmax .and. keep_south(ithl)) then 734 logical(LGT), dimension(0:SMAXCHK-1) :: keep_north, keep_south, keep_it local 782 call select_rings(cth, zbounds, keep_north(ithl), keep_south(ithl), keep_it(ithl)) 803 if (ith < 2*nsmax .and. keep_south(ithl)) then 913 logical(LGT), dimension(0:SMAXCHK-1) :: keep_north, keep_south, keep_it local 996 if (ith < 2*nsmax .and. keep_south(ithl)) then 1159 logical(LGT), dimension(0:SMAXCHK-1) :: keep_north, keep_south, keep_it local 1239 if (ith < 2*nsmax .and. keep_south(ithl)) then 1400 logical(LGT), dimension(0:SMAXCHK-1) :: keep_north, keep_south, keep_it local [all …]
|
H A D | alm_map_template.F90 | 1761 if (keep_south(ithl)) then 1771 if (do_d2 .and. keep_south(ithl)) then 1827 if (keep_south(ithl) .and. ith < nrings) then 2158 if (keep_south(ithl)) then 2185 if (keep_south(ithl)) then 2249 if (keep_south(ithl) .and. ith < nrings) then 2538 if (ith < nrings .and. keep_south(ithl)) then 2803 if (ith < nrings .and. keep_south(ithl)) then 3021 if (ith < nrings .and. keep_south(ithl)) then 3256 if (ith < nrings .and. keep_south(ithl)) then [all …]
|