/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 129 do y_geo = 0, order_geo_mom-z_geo 130 x_geo = order_geo_mom-(z_geo+y_geo) 146 y_low = y_mom-y_geo 152 prod_coeff = coeff_mom(x_mom,x_geo)*coeff_mom(y_mom,y_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 101 do y_geo = 0, ORDER_GEO_MOM-z_geo 102 x_geo = ORDER_GEO_MOM-(z_geo+y_geo) 114 y_low = y_mom-y_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 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 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 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 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 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 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 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 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 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 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 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 448 *y_geo = C_geo * cos(geolat) * sin(geolong); 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() 770 y = y - y_geo; in accumoon()
|