mathelp_psmile.F90 File Reference

#include "psmile_os.h"

Include dependency graph for mathelp_psmile.F90:

Go to the source code of this file.

Data Types
interface	mathelp_psmile::buildop
interface	mathelp_psmile::mathop
interface	mathelp_psmile::moycum
Modules
module	mathelp_psmile
Functions/Subroutines
subroutine	mathelp_psmile::buildop_r4 (str, ex_topps, topp, nbops_max, missing_val, opps, scal, nbops)
subroutine	mathelp_psmile::buildop_r8 (str, ex_topps, topp, nbops_max, missing_val, opps, scal, nbops)
subroutine	mathelp_psmile::decoop_r4 (pstr, nbops_max, missing_val, opps, scal, nbops)
subroutine	mathelp_psmile::decoop_r8 (pstr, nbops_max, missing_val, opps, scal, nbops)
subroutine	mathelp_psmile::findsep (str, nbsep, f_char, f_pos, s_char, s_pos)
subroutine	mathelp_psmile::cleanstr (str)
subroutine	mathelp_psmile::mathop_r114 (fun, nb, work_in, miss_val, nb_index, nindex, scal, nb_max, work_out)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_sin_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_cos_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_tan_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_asin_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_acos_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_atan_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_exp_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_alog_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_sqrt_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_abs_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_chs_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_cels_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_kelv_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_deg_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_rad_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_ident_r114 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_add_r114 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_sub_r114 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_subi_r114 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_mult_r114 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_div_r114 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_divi_r114 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_power_r114 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fumin_r114 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fumax_r114 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fuscat_r114 (nb, x, nbi, ind, miss_val, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fugath_r114 (nb, x, nbi, ind, miss_val, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fufill_r114 (nb, x, nbi, ind, miss_val, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fucoll_r114 (nb, x, nbi, ind, miss_val, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fuundef_r114 (nb, x, nbi, ind, miss_val, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fuonly_r114 (nb, x, nbi, ind, miss_val, nbo, y)
subroutine	mathelp_psmile::mathop_r118 (fun, nb, work_in, miss_val, nb_index, nindex, scal, nb_max, work_out)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_sin_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_cos_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_tan_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_asin_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_acos_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_atan_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_exp_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_alog_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_sqrt_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_abs_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_chs_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_cels_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_kelv_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_deg_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_rad_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_ident_r118 (nb, x, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_add_r118 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_sub_r118 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_subi_r118 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_mult_r118 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_div_r118 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_divi_r118 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_power_r118 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fumin_r118 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fumax_r118 (nb, x, s, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fuscat_r118 (nb, x, nbi, ind, miss_val, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fugath_r118 (nb, x, nbi, ind, miss_val, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fufill_r118 (nb, x, nbi, ind, miss_val, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fucoll_r118 (nb, x, nbi, ind, miss_val, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fuundef_r118 (nb, x, nbi, ind, miss_val, nbo, y)
INTEGER(kind=ip_intwp_p)	mathelp_psmile::ma_fuonly_r118 (nb, x, nbi, ind, miss_val, nbo, y)
subroutine	mathelp_psmile::moycum_r4 (opp, np, px, py, pwx)
subroutine	mathelp_psmile::moycum_r8 (opp, np, px, py, pwx)
Variables
CHARACTER(LEN=80), save	mathelp_psmile::seps = '( ) , + - / * ^'
CHARACTER(LEN=80), save	mathelp_psmile::ops = '+ - * / ^'
CHARACTER(LEN=80), save	mathelp_psmile::mima = 'min max'
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'
CHARACTER(LEN=120), save	mathelp_psmile::indexfu = 'gather, scatter, fill, coll, undef, only'