|
| subroutine | m_constants::init_constants |
| |
| subroutine | m_fileio::z_fileio (filename, qual, iufind, iunit, iostat) |
| |
| subroutine | m_fileio::z_fclose (iunit) |
| |
| subroutine | m_fileio::z_flunit (iunit, ierr) |
| |
| subroutine | serv_xnl4v5::y_gauleg (x1, x2, x, w, n) |
| |
| subroutine | serv_xnl4v5::z_cmpcg (sigma, depth, grav_w, cg) |
| |
| subroutine | serv_xnl4v5::z_intp1 (x1, y1, x2, y2, n1, n2, ierr) |
| |
| subroutine | serv_xnl4v5::z_polyarea (xpol, ypol, npol, area) |
| |
| subroutine | serv_xnl4v5::z_steps (x, dx, nx) |
| |
| real function | serv_xnl4v5::z_root2 (func, x1, x2, xacc, iprint, ierr) |
| |
| subroutine | serv_xnl4v5::z_upper (str) |
| |
| real function | serv_xnl4v5::z_wnumb (w, d, grav_w) |
| |
| subroutine | m_xnldata::xnl_init (sigma, dird, nsigma, ndir, pftail, x_grav, depth, ndepth, jquad, iqgrid, ierror) |
| |
| subroutine | m_xnldata::xnl_main (aspec, sigma, angle, nsig, ndir, depth, iquad, xnl, diag, iproc, ierror) |
| |
| subroutine | m_xnldata::q_addtail (xnl, diag, nsig, na, pf_tail) |
| |
| subroutine | m_xnldata::q_allocate |
| |
| subroutine | m_xnldata::q_chkconfig |
| |
| subroutine | m_xnldata::q_chkcons (xnl, nk, ndir, sum_e, sum_a, sum_mx, sum_my) |
| |
| subroutine | m_xnldata::q_chkres (k1x, k1y, k2x, k2y, k3x, k3y, k4x, k4y, dep, sum_kx, sum_ky, sum_w) |
| |
| subroutine | m_xnldata::q_cmplocus (ka, kb, km, kw, loclen) |
| |
| subroutine | m_xnldata::q_ctrgrid (itask, igrid) |
| |
| subroutine | m_xnldata::q_dscale (n, sigma, angle, nsig, nang, depth, grav_w, q_dfac) |
| |
| subroutine | m_xnldata::q_error (err_type, err_name, err_msg) |
| |
| subroutine | m_xnldata::q_getlocus (ik1, ia1, ik3, ia3, ifnd) |
| |
| subroutine | m_xnldata::q_init |
| |
| real function | m_xnldata::x_locus1 (k2) |
| |
| real function | m_xnldata::x_locus2 (lambda) |
| |
| subroutine | m_xnldata::q_locpos (ka, kb, km, kw, loclen) |
| |
| subroutine | m_xnldata::q_makegrid |
| |
| subroutine | m_xnldata::q_modify |
| |
| subroutine | m_xnldata::q_nearest (ik, ia, w1, w2, w3, w4) |
| |
| subroutine | m_xnldata::q_polar2 (kmin, kmax, kx_beg, ky_beg, kx_end, ky_end, loclen, ierr) |
| |
| subroutine | m_xnldata::q_setconfig (iquad) |
| |
| subroutine | m_xnldata::q_searchgrid (depth, igrid) |
| |
| subroutine | m_xnldata::q_setversion |
| |
| subroutine | m_xnldata::q_stack (mod_name) |
| |
| subroutine | m_xnldata::q_summary |
| |
| subroutine | m_xnldata::q_symmetry (k1x, k1y, k3x, k3y, k4x, k4y, symfac, nloc) |
| |
| subroutine | m_xnldata::q_t13v4 (ik1, ia1, ik3, ia3, t13, diagk1, diagk3) |
| |
| subroutine | m_xnldata::q_weight |
| |
| subroutine | m_xnldata::q_loc_w1w3 (k1x, k1y, k3x, k3y, npts, k2x, k2y, k4x, k4y, s) |
| |
| subroutine | m_xnldata::q_xnl4v4 (aspec, sigma, angle, nsig, nang, depth, xnl, diag, ierror) |
| |
| real function | m_xnldata::x_cosk (k) |
| |
| real function | m_xnldata::x_cple (k1x, k1y, k2x, k2y, k3x, k3y, k4x, k4y, iq_cple, depth, grav_w) |
| |
| real function | m_xnldata::x_flocus (kxx, kyy) |
| |
| real function | m_xnldata::x_jacobian (x2, y2, x4, y4) |
| |
| real function | m_xnldata::x_disper (k, d) |
| |
| real function | m_xnldata::xc_hh (w1x0, w1y0, w2x0, w2y0, w3x0, w3y0, z4x, z4y, h) |
| |
| real function | m_xnldata::tanz (x) |
| |
| real function | m_xnldata::cosz (x) |
| |
| real function | m_xnldata::xc_webb (k1x, k1y, k2x, k2y, k3x, k3y, k4x, k4y, grav_w) |
| |
|
| real | m_constants::sqrtg |
| |
| real | m_constants::gsq |
| |
| real | m_constants::nu |
| |
| real | m_constants::d_water |
| |
| real | m_constants::d_air |
| |
| real | m_constants::trshdep |
| |
| real | m_constants::pih |
| |
| real | m_constants::dera |
| |
| real | m_constants::rade |
| |
| real | m_constants::expmin |
| |
| real | m_constants::expmax |
| |
| real | m_constants::sqrt2 |
| |
| integer, parameter | m_fileio::i_print =0 |
| |
| integer, parameter | m_fileio::i_out =6 |
| |
| integer | m_fileio::i_log |
| |
| integer | m_fileio::i_prt |
| |
| integer | m_fileio::i_tst |
| |
| integer | m_fileio::lu_err |
| |
| integer | m_fileio::lu_inp |
| |
| integer | m_fileio::lu_log |
| |
| integer | m_fileio::lu_prt |
| |
| integer | m_fileio::lu_tst |
| |
| character(len=80) | m_fileio::tempfile |
| |
| character(len=60) | m_xnldata::q_version |
| |
| character(len=20) | m_xnldata::sub_name |
| |
| character(len=20) | m_xnldata::qbase |
| |
| character(len=20) | m_xnldata::qf_error |
| |
| integer | m_xnldata::iufind |
| |
| integer | m_xnldata::iscreen |
| |
| integer | m_xnldata::luq_bqf |
| |
| integer | m_xnldata::luq_cfg |
| |
| integer | m_xnldata::luq_err |
| |
| integer | m_xnldata::luq_fil |
| |
| integer | m_xnldata::luq_grd |
| |
| integer | m_xnldata::luq_int |
| |
| integer | m_xnldata::luq_loc |
| |
| integer | m_xnldata::luq_log |
| |
| integer | m_xnldata::luq_prt |
| |
| integer | m_xnldata::luq_trf |
| |
| integer | m_xnldata::luq_tst |
| |
| integer | m_xnldata::luq_txt |
| |
| integer | m_xnldata::luq_t13 |
| |
| real | m_xnldata::q_grav |
| |
| real | m_xnldata::qf_tail |
| |
| real | m_xnldata::qf_krat |
| |
| real | m_xnldata::qf_dmax |
| |
| real | m_xnldata::qf_frac |
| |
| integer | m_xnldata::iq_compact |
| |
| integer | m_xnldata::iq_cple |
| |
| integer | m_xnldata::iq_disp |
| |
| integer | m_xnldata::iq_dscale |
| |
| integer | m_xnldata::iq_filt |
| |
| integer | m_xnldata::iq_gauleg |
| |
| integer | m_xnldata::iq_geom |
| |
| integer | m_xnldata::iq_grid |
| |
| integer | m_xnldata::iq_integ |
| |
| integer | m_xnldata::iq_interp |
| |
| integer | m_xnldata::iq_locus |
| |
| integer | m_xnldata::iq_log |
| |
| integer | m_xnldata::iq_lump |
| |
| integer | m_xnldata::iq_make |
| |
| integer | m_xnldata::iq_mod |
| |
| integer | m_xnldata::iq_prt |
| |
| integer | m_xnldata::iq_search |
| |
| integer | m_xnldata::iq_screen |
| |
| integer | m_xnldata::iq_sym |
| |
| integer | m_xnldata::iq_tail |
| |
| integer | m_xnldata::iq_test |
| |
| integer | m_xnldata::iq_trace |
| |
| integer | m_xnldata::iq_trf |
| |
| integer | m_xnldata::iq_t13 |
| |
| integer | m_xnldata::iq_xdia |
| |
| character(len=17) | m_xnldata::aqname |
| |
| character(len=17) | m_xnldata::bqname |
| |
| character(len=17) | m_xnldata::lastquadfile |
| |
| character(len=21) | m_xnldata::q_header |
| |
| character(len=21) | m_xnldata::r_header |
| |
| logical | m_xnldata::lq_grid |
| |
| integer | m_xnldata::nkq |
| |
| integer | m_xnldata::naq |
| |
| integer | m_xnldata::ncirc |
| |
| integer | m_xnldata::ia_k1 |
| |
| integer | m_xnldata::ik_k1 |
| |
| integer | m_xnldata::ia_k3 |
| |
| integer | m_xnldata::ik_k3 |
| |
| real | m_xnldata::fqmin |
| |
| real | m_xnldata::fqmax |
| |
| real | m_xnldata::q_sector |
| |
| real | m_xnldata::q_dstep |
| |
| integer, parameter | m_xnldata::mq_stack =10 |
| |
| integer | m_xnldata::mlocus |
| |
| integer | m_xnldata::nlocus0 |
| |
| integer | m_xnldata::nlocus1 |
| |
| integer | m_xnldata::klocus |
| |
| integer | m_xnldata::nlocus |
| |
| integer | m_xnldata::nlocusx |
| |
| real | m_xnldata::kqmin |
| |
| real | m_xnldata::kqmax |
| |
| real | m_xnldata::wk_max |
| |
| real | m_xnldata::k0x |
| |
| real | m_xnldata::k0y |
| |
| real | m_xnldata::dk0 |
| |
| real | m_xnldata::krefx |
| |
| real | m_xnldata::krefy |
| |
| real | m_xnldata::k1x |
| |
| real | m_xnldata::k1y |
| |
| real | m_xnldata::k2x |
| |
| real | m_xnldata::k2y |
| |
| real | m_xnldata::k3x |
| |
| real | m_xnldata::k3y |
| |
| real | m_xnldata::k4x |
| |
| real | m_xnldata::k4y |
| |
| real | m_xnldata::px |
| |
| real | m_xnldata::py |
| |
| real | m_xnldata::pmag |
| |
| real | m_xnldata::pang |
| |
| real | m_xnldata::sang |
| |
| real | m_xnldata::xang |
| |
| real | m_xnldata::q |
| |
| real | m_xnldata::kmin_loc |
| |
| real | m_xnldata::kmax_loc |
| |
| real | m_xnldata::kmid |
| |
| real | m_xnldata::kmidx |
| |
| real | m_xnldata::kmidy |
| |
| real | m_xnldata::loc_crf |
| |
| real | m_xnldata::loc_area |
| |
| real | m_xnldata::loc_xz |
| |
| real | m_xnldata::loc_yz |
| |
| integer, dimension(:,:), allocatable | m_xnldata::quad_nloc |
| |
| integer, dimension(:,:,:), allocatable | m_xnldata::quad_ik2 |
| |
| integer, dimension(:,:,:), allocatable | m_xnldata::quad_ia2 |
| |
| integer, dimension(:,:,:), allocatable | m_xnldata::quad_ik4 |
| |
| integer, dimension(:,:,:), allocatable | m_xnldata::quad_ia4 |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_w1k2 |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_w2k2 |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_w3k2 |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_w4k2 |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_w1k4 |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_w2k4 |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_w3k4 |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_w4k4 |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_zz |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_t2 |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_t4 |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_sym |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_jac |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_cple |
| |
| real, dimension(:,:,:), allocatable | m_xnldata::quad_ws |
| |
| real, dimension(:), allocatable | m_xnldata::x2_loc |
| |
| real, dimension(:), allocatable | m_xnldata::y2_loc |
| |
| real, dimension(:), allocatable | m_xnldata::z_loc |
| |
| real, dimension(:), allocatable | m_xnldata::s_loc |
| |
| real, dimension(:), allocatable | m_xnldata::x4_loc |
| |
| real, dimension(:), allocatable | m_xnldata::y4_loc |
| |
| real, dimension(:), allocatable | m_xnldata::ds_loc |
| |
| real, dimension(:), allocatable | m_xnldata::jac_loc |
| |
| real, dimension(:), allocatable | m_xnldata::cple_loc |
| |
| real, dimension(:), allocatable | m_xnldata::sym_loc |
| |
| real, dimension(:), allocatable | m_xnldata::k_pol |
| |
| real, dimension(:), allocatable | m_xnldata::c_pol |
| |
| real, dimension(:), allocatable | m_xnldata::a_pol |
| |
| real, dimension(:), allocatable | m_xnldata::x2_mod |
| |
| real, dimension(:), allocatable | m_xnldata::y2_mod |
| |
| real, dimension(:), allocatable | m_xnldata::x4_mod |
| |
| real, dimension(:), allocatable | m_xnldata::y4_mod |
| |
| real, dimension(:), allocatable | m_xnldata::z_mod |
| |
| real, dimension(:), allocatable | m_xnldata::s_mod |
| |
| real, dimension(:), allocatable | m_xnldata::ds_mod |
| |
| real, dimension(:), allocatable | m_xnldata::jac_mod |
| |
| real, dimension(:), allocatable | m_xnldata::cple_mod |
| |
| real, dimension(:), allocatable | m_xnldata::sym_mod |
| |
| real, dimension(:), allocatable | m_xnldata::k2m_mod |
| |
| real, dimension(:), allocatable | m_xnldata::k2a_mod |
| |
| real, dimension(:), allocatable | m_xnldata::k4m_mod |
| |
| real, dimension(:), allocatable | m_xnldata::k4a_mod |
| |
| real, dimension(:), allocatable | m_xnldata::wk_k2 |
| |
| real, dimension(:), allocatable | m_xnldata::wk_k4 |
| |
| real, dimension(:), allocatable | m_xnldata::wa_k2 |
| |
| real, dimension(:), allocatable | m_xnldata::wa_k4 |
| |
| real, dimension(:), allocatable | m_xnldata::wt_k2 |
| |
| real, dimension(:), allocatable | m_xnldata::wt_k4 |
| |
| integer, dimension(:), allocatable | m_xnldata::t_ik2 |
| |
| integer, dimension(:), allocatable | m_xnldata::t_ia2 |
| |
| integer, dimension(:), allocatable | m_xnldata::t_ik4 |
| |
| integer, dimension(:), allocatable | m_xnldata::t_ia4 |
| |
| real, dimension(:), allocatable | m_xnldata::t_w1k2 |
| |
| real, dimension(:), allocatable | m_xnldata::t_w2k2 |
| |
| real, dimension(:), allocatable | m_xnldata::t_w3k2 |
| |
| real, dimension(:), allocatable | m_xnldata::t_w4k2 |
| |
| real, dimension(:), allocatable | m_xnldata::t_w1k4 |
| |
| real, dimension(:), allocatable | m_xnldata::t_w2k4 |
| |
| real, dimension(:), allocatable | m_xnldata::t_w3k4 |
| |
| real, dimension(:), allocatable | m_xnldata::t_w4k4 |
| |
| real, dimension(:), allocatable | m_xnldata::t_zz |
| |
| real, dimension(:), allocatable | m_xnldata::t_tail2 |
| |
| real, dimension(:), allocatable | m_xnldata::t_tail4 |
| |
| real, dimension(:), allocatable | m_xnldata::t_sym |
| |
| real, dimension(:), allocatable | m_xnldata::t_cple |
| |
| real, dimension(:), allocatable | m_xnldata::t_jac |
| |
| real, dimension(:), allocatable | m_xnldata::t_ws |
| |
| integer, dimension(:), allocatable | m_xnldata::r_ik2 |
| |
| integer, dimension(:), allocatable | m_xnldata::r_ia2 |
| |
| integer, dimension(:), allocatable | m_xnldata::r_ik4 |
| |
| integer, dimension(:), allocatable | m_xnldata::r_ia4 |
| |
| real, dimension(:), allocatable | m_xnldata::r_w1k2 |
| |
| real, dimension(:), allocatable | m_xnldata::r_w2k2 |
| |
| real, dimension(:), allocatable | m_xnldata::r_w3k2 |
| |
| real, dimension(:), allocatable | m_xnldata::r_w4k2 |
| |
| real, dimension(:), allocatable | m_xnldata::r_w1k4 |
| |
| real, dimension(:), allocatable | m_xnldata::r_w2k4 |
| |
| real, dimension(:), allocatable | m_xnldata::r_w3k4 |
| |
| real, dimension(:), allocatable | m_xnldata::r_w4k4 |
| |
| real, dimension(:), allocatable | m_xnldata::r_zz |
| |
| real, dimension(:), allocatable | m_xnldata::r_jac |
| |
| real, dimension(:), allocatable | m_xnldata::r_cple |
| |
| real, dimension(:), allocatable | m_xnldata::r_sym |
| |
| real, dimension(:), allocatable | m_xnldata::r_ws |
| |
| real, dimension(:), allocatable | m_xnldata::r_tail2 |
| |
| real, dimension(:), allocatable | m_xnldata::r_tail4 |
| |
| real, dimension(:), allocatable | m_xnldata::dt13 |
| |
| real, dimension(:), allocatable | m_xnldata::q_xk |
| |
| real, dimension(:), allocatable | m_xnldata::q_sk |
| |
| real | m_xnldata::sk_max |
| |
| real, dimension(:), allocatable | m_xnldata::q_k |
| |
| real, dimension(:), allocatable | m_xnldata::q_dk |
| |
| real, dimension(:), allocatable | m_xnldata::q_kpow |
| |
| real, dimension(:), allocatable | m_xnldata::q_f |
| |
| real, dimension(:), allocatable | m_xnldata::q_df |
| |
| real, dimension(:), allocatable | m_xnldata::q_sig |
| |
| real, dimension(:), allocatable | m_xnldata::q_dsig |
| |
| real, dimension(:), allocatable | m_xnldata::q_cg |
| |
| real, dimension(:), allocatable | m_xnldata::q_a |
| |
| real, dimension(:), allocatable | m_xnldata::q_ad |
| |
| real, dimension(:,:), allocatable | m_xnldata::a |
| |
| real, dimension(:,:), allocatable | m_xnldata::nspec |
| |
| real, dimension(:), allocatable | m_xnldata::nk1d |
| |
| real, dimension(:,:), allocatable | m_xnldata::qnl |
| |
| integer | m_xnldata::id_facmax |
| |
| real | m_xnldata::q_dird1 |
| |
| real | m_xnldata::q_dird2 |
| |
| real | m_xnldata::q_depth |
| |
| real | m_xnldata::q_maxdepth |
| |
| real | m_xnldata::q_mindepth |
| |
| real | m_xnldata::q_lambda |
| |
| real | m_xnldata::q_scale |
| |
| real | m_xnldata::eps_q |
| |
| real | m_xnldata::eps_k |
| |
| real | m_xnldata::rel_k |
| |
| integer | m_xnldata::iq_stack |
| |
| character(len=21), dimension(mq_stack) | m_xnldata::cstack |
| |
| real | m_xnldata::crf1 |
| |
| integer | m_xnldata::iaref |
| |
| integer | m_xnldata::iamax |
| |
| integer | m_xnldata::iaq1 |
| |
| integer | m_xnldata::iaq2 |
| |
| integer | m_xnldata::iag1 |
| |
| integer | m_xnldata::iag2 |
| |
| real | m_xnldata::q_ang1 |
| |
| real | m_xnldata::q_ang2 |
| |
| real | m_xnldata::q_delta |
| |
| real | m_xnldata::q_deltad |
| |
| real | m_xnldata::q_ffac |
| |
| real | m_xnldata::q_kfac |
| |
| real | m_xnldata::qk_tail |
| |
| real | m_xnldata::ff_tail |
| |
| integer | m_xnldata::iq_type |
| |
| integer | m_xnldata::iq_err |
| |
| integer | m_xnldata::iq_warn |
| |
| integer | m_xnldata::mk1a |
| |
| integer | m_xnldata::mk1b |
| |
| integer | m_xnldata::mk3a |
| |
| integer | m_xnldata::mk3b |
| |
