Home
last modified time | relevance | path

Searched refs:x_geo (Results 1 – 14 of 14) sorted by relevance

/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/src/carmom/
H A Dcarmom_deriv.F9078 integer x_geo, y_geo, z_geo !order of geometric derivatives local
115 do x_geo = 1, x_mom-1
116 coeff_mom(x_mom,x_geo+1) = real(x_geo-x_mom,REALK)*coeff_mom(x_mom,x_geo)
122 do x_geo = 1, order_geo_mom-1
123 coeff_mom(x_mom,x_geo+1) = real(x_geo-x_mom,REALK)*coeff_mom(x_mom,x_geo)
130 x_geo = order_geo_mom-(z_geo+y_geo)
145 x_low = x_mom-x_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 Dtest_carmom_deriv.F9045 integer x_geo, y_geo, z_geo !order of geometric derivatives local
102 x_geo = ORDER_GEO_MOM-(z_geo+y_geo)
113 x_low = x_mom-x_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 Dtest_delta_geom.F90106 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local
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 Dtest_delta_moment.F90155 …integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local
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 Dtest_delta_hket.F90205 … integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local
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 Dtest_prim_hgto_delta.F90229 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local
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 Dtest_gaupot_geom.F90125 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local
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 Dtest_nucpot_geom.F90112 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local
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 Dtest_nucpot_hket.F90132 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local
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 Dtest_nucpot_hbra.F90153 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local
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 Dtest_fd_prim_hgto_nucpot.F90237 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local
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 Dtest_prim_hgto_nucpot.F90230 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local
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 Dgeom_part_fdm.F9076 integer x_geo, y_geo, z_geo !orders of xyz components of geometric derivatives local
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 DSkycal.cc426 double *x_geo, double *y_geo, double *z_geo) in geocent() argument
447 *x_geo = C_geo * cos(geolat) * cos(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()
769 x = x - x_geo; /* topocentric correction using elliptical earth fig. */ in accumoon()