/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/carmom/ |
H A D | carmom_deriv.F90 | 78 integer x_geo, y_geo, z_geo !order of geometric derivatives local 128 do z_geo = 0, order_geo_mom 129 do y_geo = 0, order_geo_mom-z_geo 130 x_geo = order_geo_mom-(z_geo+y_geo) 147 z_low = z_mom-z_geo 153 * coeff_mom(z_mom,z_geo) 160 write(STDOUT,100) "order of GEO: ", x_geo, y_geo, z_geo
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/test_f90/carmom/ |
H A D | test_carmom_deriv.F90 | 45 integer x_geo, y_geo, z_geo !order of geometric derivatives local 100 do z_geo = 0, ORDER_GEO_MOM 101 do y_geo = 0, ORDER_GEO_MOM-z_geo 102 x_geo = ORDER_GEO_MOM-(z_geo+y_geo) 115 z_low = z_mom-z_geo 124 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", io_log=io_log) 159 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", io_log=io_log)
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/test_f90/delta/ |
H A D | test_delta_geom.F90 | 106 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local 156 do z_geo = 0, order_geo 157 do y_geo = 0, order_geo-z_geo 158 x_geo = order_geo-(z_geo+y_geo) 160 recur_pint = recur_delta_geom((/x_geo,y_geo,z_geo/)) 165 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", &
|
H A D | test_delta_moment.F90 | 155 …integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local 296 do z_geo = 0, order_geo_pot 297 do y_geo = 0, order_geo_pot-z_geo 298 x_geo = order_geo_pot-(z_geo+y_geo) 308 (/x_geo,y_geo,z_geo/)) 317 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", &
|
H A D | test_delta_hket.F90 | 205 … integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local 326 do z_geo = 0, order_geo 327 do y_geo = 0, order_geo-z_geo 328 x_geo = order_geo-(z_geo+y_geo) 338 (/x_geo,y_geo,z_geo/)) 347 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", &
|
H A D | test_prim_hgto_delta.F90 | 229 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local 305 do z_geo = 0, order_geo_pot 306 do y_geo = 0, order_geo_pot-z_geo 307 x_geo = order_geo_pot-(z_geo+y_geo) 344 (/x_geo,y_geo,z_geo/)) 368 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", &
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/test_f90/gaupot/ |
H A D | test_gaupot_geom.F90 | 125 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local 180 do z_geo = 0, order_geo 181 do y_geo = 0, order_geo-z_geo 182 x_geo = order_geo-(z_geo+y_geo) 184 recur_pint = recur_nucpot_geom((/x_geo,y_geo,z_geo/), 0) 192 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", &
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/test_f90/nucpot/ |
H A D | test_nucpot_geom.F90 | 112 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local 163 do z_geo = 0, order_geo 164 do y_geo = 0, order_geo-z_geo 165 x_geo = order_geo-(z_geo+y_geo) 167 recur_pint = recur_nucpot_geom((/x_geo,y_geo,z_geo/), 0) 175 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", &
|
H A D | test_nucpot_hket.F90 | 132 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local 220 do z_geo = 0, order_geo 221 do y_geo = 0, order_geo-z_geo 222 x_geo = order_geo-(z_geo+y_geo) 234 (/x_geo,y_geo,z_geo/)) 245 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", &
|
H A D | test_nucpot_hbra.F90 | 153 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local 285 do z_geo = 0, order_geo 286 do y_geo = 0, order_geo-z_geo 287 x_geo = order_geo-(z_geo+y_geo) 309 (/x_geo,y_geo,z_geo/)) 324 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", &
|
H A D | test_fd_prim_hgto_nucpot.F90 | 237 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local 305 do z_geo = 0, order_geo_pot 306 do y_geo = 0, order_geo_pot-z_geo 307 x_geo = order_geo_pot-(z_geo+y_geo) 344 (/x_geo,y_geo,z_geo/)) 368 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", &
|
H A D | test_prim_hgto_nucpot.F90 | 230 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local 312 do z_geo = 0, order_geo_pot 313 do y_geo = 0, order_geo_pot-z_geo 314 x_geo = order_geo_pot-(z_geo+y_geo) 351 (/x_geo,y_geo,z_geo/)) 375 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", &
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/geom/ |
H A D | geom_part_fdm.F90 | 76 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local 144 do z_geo = 0, order_geo_pot 145 do y_geo = 0, order_geo_pot-z_geo 146 x_geo = order_geo_pot-(z_geo+y_geo) 183 (/x_geo,y_geo,z_geo/)) 207 log_int=(/x_geo,y_geo,z_geo/), fmt_int="I3", &
|
/dports/astro/xtide/xtide-2.15.3/libxtide/ |
H A D | Skycal.cc | 426 double *x_geo, double *y_geo, double *z_geo) in geocent() argument 449 *z_geo = S_geo * sin(geolat); in geocent() 556 double x_geo, y_geo, z_geo; /* geocentric position of *observer* */ in accumoon() local 767 geocent(lst,geolat,elevsea,&x_geo,&y_geo,&z_geo); in accumoon() 771 z = z - z_geo; in accumoon()
|