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 …]
|