/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 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 D | test_carmom_deriv.F90 | 45 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 D | test_delta_geom.F90 | 106 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 D | test_delta_moment.F90 | 155 …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 D | test_delta_hket.F90 | 205 … 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 D | test_prim_hgto_delta.F90 | 229 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 D | test_gaupot_geom.F90 | 125 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 D | test_nucpot_geom.F90 | 112 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 D | test_nucpot_hket.F90 | 132 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 D | test_nucpot_hbra.F90 | 153 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 D | test_fd_prim_hgto_nucpot.F90 | 237 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 D | test_prim_hgto_nucpot.F90 | 230 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 D | geom_part_fdm.F90 | 76 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 D | Skycal.cc | 426 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()
|