Oasis3 4.0.2
|
Data Types | |
interface | buildop |
interface | mathop |
interface | moycum |
Functions/Subroutines | |
subroutine | buildop_r4 (str, ex_topps, topp, nbops_max, missing_val, opps, scal, nbops) |
subroutine | buildop_r8 (str, ex_topps, topp, nbops_max, missing_val, opps, scal, nbops) |
subroutine | decoop_r4 (pstr, nbops_max, missing_val, opps, scal, nbops) |
subroutine | decoop_r8 (pstr, nbops_max, missing_val, opps, scal, nbops) |
subroutine | findsep (str, nbsep, f_char, f_pos, s_char, s_pos) |
subroutine | cleanstr (str) |
subroutine | mathop_r114 (fun, nb, work_in, miss_val, nb_index, nindex, scal, nb_max, work_out) |
INTEGER(kind=ip_intwp_p) | ma_sin_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_cos_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_tan_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_asin_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_acos_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_atan_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_exp_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_alog_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_sqrt_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_abs_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_chs_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_cels_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_kelv_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_deg_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_rad_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_ident_r114 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_add_r114 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_sub_r114 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_subi_r114 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_mult_r114 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_div_r114 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_divi_r114 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_power_r114 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fumin_r114 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fumax_r114 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fuscat_r114 (nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fugath_r114 (nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fufill_r114 (nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fucoll_r114 (nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fuundef_r114 (nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fuonly_r114 (nb, x, nbi, ind, miss_val, nbo, y) |
subroutine | mathop_r118 (fun, nb, work_in, miss_val, nb_index, nindex, scal, nb_max, work_out) |
INTEGER(kind=ip_intwp_p) | ma_sin_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_cos_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_tan_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_asin_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_acos_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_atan_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_exp_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_alog_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_sqrt_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_abs_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_chs_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_cels_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_kelv_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_deg_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_rad_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_ident_r118 (nb, x, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_add_r118 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_sub_r118 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_subi_r118 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_mult_r118 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_div_r118 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_divi_r118 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_power_r118 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fumin_r118 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fumax_r118 (nb, x, s, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fuscat_r118 (nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fugath_r118 (nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fufill_r118 (nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fucoll_r118 (nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fuundef_r118 (nb, x, nbi, ind, miss_val, nbo, y) |
INTEGER(kind=ip_intwp_p) | ma_fuonly_r118 (nb, x, nbi, ind, miss_val, nbo, y) |
subroutine | moycum_r4 (opp, np, px, py, pwx) |
subroutine | moycum_r8 (opp, np, px, py, pwx) |
Variables | |
CHARACTER(LEN=80), save | seps = '( ) , + - / * ^' |
CHARACTER(LEN=80), save | ops = '+ - * / ^' |
CHARACTER(LEN=80), save | mima = 'min max' |
CHARACTER(LEN=250), save | funcs = 'sin cos tan asin acos atan exp log sqrt chs abs ' //'cels kelv deg rad gather scatter fill coll undef only ident' |
CHARACTER(LEN=120), save | indexfu = 'gather, scatter, fill, coll, undef, only' |
subroutine mathelp_psmile::buildop_r4 | ( | CHARACTER*80 | str, |
CHARACTER*(*) | ex_topps, | ||
CHARACTER*7 | topp, | ||
INTEGER (kind=ip_intwp_p) | nbops_max, | ||
REAL (kind=ip_single_p) | missing_val, | ||
CHARACTER*7,dimension(nbops_max) | opps, | ||
REAL (kind=ip_single_p),dimension(nbops_max) | scal, | ||
INTEGER (kind=ip_intwp_p) | nbops | ||
) | [private] |
Definition at line 53 of file mathelp_psmile.F90.
References decoop_r4(), and errioipsl_psmile::histerr().
subroutine mathelp_psmile::buildop_r8 | ( | CHARACTER*80 | str, |
CHARACTER*(*) | ex_topps, | ||
CHARACTER*7 | topp, | ||
INTEGER (kind=ip_intwp_p) | nbops_max, | ||
REAL (kind=ip_double_p) | missing_val, | ||
CHARACTER*7,dimension(nbops_max) | opps, | ||
REAL (kind=ip_double_p),dimension(nbops_max) | scal, | ||
INTEGER (kind=ip_intwp_p) | nbops | ||
) |
Definition at line 133 of file mathelp_psmile.F90.
References decoop_r8(), and errioipsl_psmile::histerr().
subroutine mathelp_psmile::cleanstr | ( | CHARACTER*80 | str | ) |
Definition at line 713 of file mathelp_psmile.F90.
References seps, and stringop_psmile::strlowercase().
Referenced by findsep().
subroutine mathelp_psmile::decoop_r4 | ( | CHARACTER*80 | pstr, |
INTEGER (kind=ip_intwp_p) | nbops_max, | ||
REAL (kind=ip_single_p) | missing_val, | ||
CHARACTER*7,dimension(nbops_max) | opps, | ||
REAL (kind=ip_single_p),dimension(nbops_max) | scal, | ||
INTEGER (kind=ip_intwp_p) | nbops | ||
) |
Definition at line 214 of file mathelp_psmile.F90.
References findsep(), funcs, errioipsl_psmile::histerr(), mima, and ops.
Referenced by buildop_r4().
subroutine mathelp_psmile::decoop_r8 | ( | CHARACTER*80 | pstr, |
INTEGER (kind=ip_intwp_p) | nbops_max, | ||
REAL (kind=ip_double_p) | missing_val, | ||
CHARACTER*7,dimension(nbops_max) | opps, | ||
REAL (kind=ip_double_p),dimension(nbops_max) | scal, | ||
INTEGER (kind=ip_intwp_p) | nbops | ||
) |
Definition at line 415 of file mathelp_psmile.F90.
References findsep(), funcs, errioipsl_psmile::histerr(), mima, and ops.
Referenced by buildop_r8().
subroutine mathelp_psmile::findsep | ( | CHARACTER*80 | str, |
INTEGER (kind=ip_intwp_p) | nbsep, | ||
CHARACTER*1,dimension(2) | f_char, | ||
INTEGER (kind=ip_intwp_p),dimension(2) | f_pos, | ||
CHARACTER*1,dimension(2) | s_char, | ||
INTEGER (kind=ip_intwp_p),dimension(2) | s_pos | ||
) |
Definition at line 616 of file mathelp_psmile.F90.
References cleanstr(), errioipsl_psmile::histerr(), and seps.
Referenced by decoop_r4(), and decoop_r8().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_abs_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1100 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_abs_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2003 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_acos_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1010 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_acos_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 1908 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_add_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
REAL (kind=ip_single_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1233 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_add_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
REAL (kind=ip_double_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2138 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_alog_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1064 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_alog_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 1965 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_asin_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 992 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_asin_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 1889 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_atan_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1028 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_atan_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 1927 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_cels_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1136 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_cels_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2041 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_chs_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1118 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_chs_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2022 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_cos_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 955 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_cos_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 1851 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_deg_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1175 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_deg_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2080 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_div_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
REAL (kind=ip_single_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1317 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_div_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
REAL (kind=ip_double_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2222 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_divi_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
REAL (kind=ip_single_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1338 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_divi_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
REAL (kind=ip_double_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2243 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_exp_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1046 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_exp_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 1946 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fucoll_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbi, | ||
INTEGER (kind=ip_intwp_p),dimension(nbi) | ind, | ||
REAL (kind=ip_single_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1571 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fucoll_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbi, | ||
INTEGER (kind=ip_intwp_p),dimension(nbi) | ind, | ||
REAL (kind=ip_double_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2476 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fufill_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbi, | ||
INTEGER (kind=ip_intwp_p),dimension(nbi) | ind, | ||
REAL (kind=ip_single_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1520 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fufill_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbi, | ||
INTEGER (kind=ip_intwp_p),dimension(nbi) | ind, | ||
REAL (kind=ip_double_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2425 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fugath_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbi, | ||
INTEGER (kind=ip_intwp_p),dimension(nbi) | ind, | ||
REAL (kind=ip_single_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1477 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fugath_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbi, | ||
INTEGER (kind=ip_intwp_p),dimension(nbi) | ind, | ||
REAL (kind=ip_double_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2382 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fumax_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
REAL (kind=ip_single_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1401 of file mathelp_psmile.F90.
References max.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fumax_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
REAL (kind=ip_double_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2306 of file mathelp_psmile.F90.
References max.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fumin_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
REAL (kind=ip_single_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1380 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fumin_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
REAL (kind=ip_double_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2285 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fuonly_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbi, | ||
INTEGER (kind=ip_intwp_p),dimension(nbi) | ind, | ||
REAL (kind=ip_single_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1649 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fuonly_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbi, | ||
INTEGER (kind=ip_intwp_p),dimension(nbi) | ind, | ||
REAL (kind=ip_double_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2554 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fuscat_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbi, | ||
INTEGER (kind=ip_intwp_p),dimension(nbi) | ind, | ||
REAL (kind=ip_single_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1422 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fuscat_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbi, | ||
INTEGER (kind=ip_intwp_p),dimension(nbi) | ind, | ||
REAL (kind=ip_double_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2327 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fuundef_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbi, | ||
INTEGER (kind=ip_intwp_p),dimension(nbi) | ind, | ||
REAL (kind=ip_single_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1612 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_fuundef_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbi, | ||
INTEGER (kind=ip_intwp_p),dimension(nbi) | ind, | ||
REAL (kind=ip_double_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2517 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_ident_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1212 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_ident_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2117 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_kelv_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1156 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_kelv_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2061 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_mult_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
REAL (kind=ip_single_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1296 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_mult_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
REAL (kind=ip_double_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2201 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_power_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
REAL (kind=ip_single_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1359 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_power_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
REAL (kind=ip_double_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2264 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_rad_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1193 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_rad_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2098 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_sin_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 937 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_sin_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 1832 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_sqrt_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1082 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_sqrt_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 1984 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_sub_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
REAL (kind=ip_single_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1254 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_sub_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
REAL (kind=ip_double_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2159 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_subi_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
REAL (kind=ip_single_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 1275 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_subi_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
REAL (kind=ip_double_p) | s, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 2180 of file mathelp_psmile.F90.
Referenced by mathop_r118().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_tan_r114 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_single_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_single_p),dimension(nbo) | y | ||
) |
Definition at line 973 of file mathelp_psmile.F90.
Referenced by mathop_r114().
INTEGER (kind=ip_intwp_p) mathelp_psmile::ma_tan_r118 | ( | INTEGER (kind=ip_intwp_p) | nb, |
REAL (kind=ip_double_p),dimension(nb) | x, | ||
INTEGER (kind=ip_intwp_p) | nbo, | ||
REAL (kind=ip_double_p),dimension(nbo) | y | ||
) |
Definition at line 1870 of file mathelp_psmile.F90.
Referenced by mathop_r118().
subroutine mathelp_psmile::mathop_r114 | ( | CHARACTER*7 | fun, |
INTEGER (kind=ip_intwp_p) | nb, | ||
REAL (kind=ip_single_p),dimension(nb) | work_in, | ||
REAL (kind=ip_single_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nb_index, | ||
INTEGER (kind=ip_intwp_p),dimension(nb_index) | nindex, | ||
REAL (kind=ip_single_p) | scal, | ||
INTEGER (kind=ip_intwp_p) | nb_max, | ||
REAL (kind=ip_single_p),dimension(nb_max) | work_out | ||
) |
Definition at line 789 of file mathelp_psmile.F90.
References errioipsl_psmile::histerr(), indexfu, ma_abs_r114(), ma_acos_r114(), ma_add_r114(), ma_alog_r114(), ma_asin_r114(), ma_atan_r114(), ma_cels_r114(), ma_chs_r114(), ma_cos_r114(), ma_deg_r114(), ma_div_r114(), ma_divi_r114(), ma_exp_r114(), ma_fucoll_r114(), ma_fufill_r114(), ma_fugath_r114(), ma_fumax_r114(), ma_fumin_r114(), ma_fuonly_r114(), ma_fuscat_r114(), ma_fuundef_r114(), ma_ident_r114(), ma_kelv_r114(), ma_mult_r114(), ma_power_r114(), ma_rad_r114(), ma_sin_r114(), ma_sqrt_r114(), ma_sub_r114(), ma_subi_r114(), and ma_tan_r114().
subroutine mathelp_psmile::mathop_r118 | ( | CHARACTER*7 | fun, |
INTEGER (kind=ip_intwp_p) | nb, | ||
REAL (kind=ip_double_p),dimension(nb) | work_in, | ||
REAL (kind=ip_double_p) | miss_val, | ||
INTEGER (kind=ip_intwp_p) | nb_index, | ||
INTEGER (kind=ip_intwp_p),dimension(nb_index) | nindex, | ||
REAL (kind=ip_double_p) | scal, | ||
INTEGER (kind=ip_intwp_p) | nb_max, | ||
REAL (kind=ip_double_p),dimension(nb_max) | work_out | ||
) |
Definition at line 1684 of file mathelp_psmile.F90.
References errioipsl_psmile::histerr(), indexfu, ma_abs_r118(), ma_acos_r118(), ma_add_r118(), ma_alog_r118(), ma_asin_r118(), ma_atan_r118(), ma_cels_r118(), ma_chs_r118(), ma_cos_r118(), ma_deg_r118(), ma_div_r118(), ma_divi_r118(), ma_exp_r118(), ma_fucoll_r118(), ma_fufill_r118(), ma_fugath_r118(), ma_fumax_r118(), ma_fumin_r118(), ma_fuonly_r118(), ma_fuscat_r118(), ma_fuundef_r118(), ma_ident_r118(), ma_kelv_r118(), ma_mult_r118(), ma_power_r118(), ma_rad_r118(), ma_sin_r118(), ma_sqrt_r118(), ma_sub_r118(), ma_subi_r118(), and ma_tan_r118().
subroutine mathelp_psmile::moycum_r4 | ( | CHARACTER(LEN=7) | opp, |
INTEGER (kind=ip_intwp_p) | np, | ||
REAL (kind=ip_single_p),dimension(:) | px, | ||
REAL (kind=ip_single_p),dimension(:) | py, | ||
INTEGER (kind=ip_intwp_p) | pwx | ||
) |
Definition at line 2589 of file mathelp_psmile.F90.
References errioipsl_psmile::histerr().
subroutine mathelp_psmile::moycum_r8 | ( | CHARACTER(LEN=7) | opp, |
INTEGER (kind=ip_intwp_p) | np, | ||
REAL (kind=ip_double_p),dimension(:) | px, | ||
REAL (kind=ip_double_p),dimension(:) | py, | ||
INTEGER (kind=ip_intwp_p) | pwx | ||
) |
Definition at line 2628 of file mathelp_psmile.F90.
References errioipsl_psmile::histerr().
CHARACTER(LEN=250),save mathelp_psmile::funcs = 'sin cos tan asin acos atan exp log sqrt chs abs ' //'cels kelv deg rad gather scatter fill coll undef only ident' |
Definition at line 45 of file mathelp_psmile.F90.
Referenced by decoop_r4(), and decoop_r8().
CHARACTER(LEN=120),save mathelp_psmile::indexfu = 'gather, scatter, fill, coll, undef, only' |
Definition at line 48 of file mathelp_psmile.F90.
Referenced by mathop_r114(), and mathop_r118().
CHARACTER(LEN=80),save mathelp_psmile::mima = 'min max' |
Definition at line 43 of file mathelp_psmile.F90.
Referenced by decoop_r4(), and decoop_r8().
CHARACTER(LEN=80),save mathelp_psmile::ops = '+ - * / ^' |
Definition at line 43 of file mathelp_psmile.F90.
Referenced by decoop_r4(), and decoop_r8().
CHARACTER(LEN=80),save mathelp_psmile::seps = '( ) , + - / * ^' |
Definition at line 43 of file mathelp_psmile.F90.
Referenced by cleanstr(), and findsep().