s_err_print Subroutine

public subroutine s_err_print(error)

Prints error message in specific format.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: error

Calls

proc~~s_err_print~~CallsGraph proc~s_err_print s_err_print proc~f_utl_r2c f_utl_r2c proc~s_err_print->proc~f_utl_r2c

Called by

proc~~s_err_print~~CalledByGraph proc~s_err_print s_err_print proc~f_dst_chi2_cdf f_dst_chi2_cdf proc~f_dst_chi2_cdf->proc~s_err_print proc~f_dst_chi2_pdf f_dst_chi2_pdf proc~f_dst_chi2_pdf->proc~s_err_print proc~f_dst_chi2_ppf f_dst_chi2_ppf proc~f_dst_chi2_ppf->proc~s_err_print proc~f_dst_exp_cdf f_dst_exp_cdf proc~f_dst_exp_cdf->proc~s_err_print proc~f_dst_exp_pdf f_dst_exp_pdf proc~f_dst_exp_pdf->proc~s_err_print proc~f_dst_exp_ppf f_dst_exp_ppf proc~f_dst_exp_ppf->proc~s_err_print proc~f_dst_f_cdf f_dst_f_cdf proc~f_dst_f_cdf->proc~s_err_print proc~f_dst_f_pdf f_dst_f_pdf proc~f_dst_f_pdf->proc~s_err_print proc~f_dst_f_ppf f_dst_f_ppf proc~f_dst_f_ppf->proc~s_err_print proc~f_dst_gamma_cdf f_dst_gamma_cdf proc~f_dst_gamma_cdf->proc~s_err_print proc~f_dst_gamma_pdf f_dst_gamma_pdf proc~f_dst_gamma_pdf->proc~s_err_print proc~f_dst_gamma_ppf f_dst_gamma_ppf proc~f_dst_gamma_ppf->proc~s_err_print proc~f_dst_gpd_cdf f_dst_gpd_cdf proc~f_dst_gpd_cdf->proc~s_err_print proc~f_dst_gpd_pdf f_dst_gpd_pdf proc~f_dst_gpd_pdf->proc~s_err_print proc~f_dst_gpd_ppf f_dst_gpd_ppf proc~f_dst_gpd_ppf->proc~s_err_print proc~f_dst_norm_cdf f_dst_norm_cdf proc~f_dst_norm_cdf->proc~s_err_print proc~f_dst_norm_pdf f_dst_norm_pdf proc~f_dst_norm_pdf->proc~s_err_print proc~f_dst_norm_ppf f_dst_norm_ppf proc~f_dst_norm_ppf->proc~s_err_print proc~f_dst_t_cdf f_dst_t_cdf proc~f_dst_t_cdf->proc~s_err_print proc~f_dst_t_pdf f_dst_t_pdf proc~f_dst_t_pdf->proc~s_err_print proc~f_dst_t_ppf f_dst_t_ppf proc~f_dst_t_ppf->proc~s_err_print proc~f_sts_cov f_sts_cov proc~f_sts_cov->proc~s_err_print proc~f_sts_mean f_sts_mean proc~f_sts_mean->proc~s_err_print proc~f_sts_pcc f_sts_pcc proc~f_sts_pcc->proc~s_err_print proc~f_sts_std f_sts_std proc~f_sts_std->proc~s_err_print proc~f_sts_trend f_sts_trend proc~f_sts_trend->proc~s_err_print proc~f_sts_var f_sts_var proc~f_sts_var->proc~s_err_print proc~s_lin_pca s_lin_pca proc~s_lin_pca->proc~s_err_print proc~s_tst_anova_1w s_tst_anova_1w proc~s_tst_anova_1w->proc~s_err_print proc~s_tst_kruskalwallis s_tst_kruskalwallis proc~s_tst_kruskalwallis->proc~s_err_print proc~s_tst_ranksum s_tst_ranksum proc~s_tst_ranksum->proc~s_err_print proc~s_tst_signedrank_1s s_tst_signedrank_1s proc~s_tst_signedrank_1s->proc~s_err_print proc~s_tst_signedrank_2s s_tst_signedrank_2s proc~s_tst_signedrank_2s->proc~s_err_print proc~s_tst_ttest_1s s_tst_ttest_1s proc~s_tst_ttest_1s->proc~s_err_print proc~s_tst_ttest_2s s_tst_ttest_2s proc~s_tst_ttest_2s->proc~s_err_print proc~s_tst_ttest_paired s_tst_ttest_paired proc~s_tst_ttest_paired->proc~s_err_print interface~fsml_anova_1way fsml_anova_1way interface~fsml_anova_1way->proc~s_tst_anova_1w interface~fsml_chi2_cdf fsml_chi2_cdf interface~fsml_chi2_cdf->proc~f_dst_chi2_cdf interface~fsml_chi2_pdf fsml_chi2_pdf interface~fsml_chi2_pdf->proc~f_dst_chi2_pdf interface~fsml_chi2_ppf fsml_chi2_ppf interface~fsml_chi2_ppf->proc~f_dst_chi2_ppf interface~fsml_cov fsml_cov interface~fsml_cov->proc~f_sts_cov interface~fsml_exp_cdf fsml_exp_cdf interface~fsml_exp_cdf->proc~f_dst_exp_cdf interface~fsml_exp_pdf fsml_exp_pdf interface~fsml_exp_pdf->proc~f_dst_exp_pdf interface~fsml_exp_ppf fsml_exp_ppf interface~fsml_exp_ppf->proc~f_dst_exp_ppf interface~fsml_f_cdf fsml_f_cdf interface~fsml_f_cdf->proc~f_dst_f_cdf interface~fsml_f_pdf fsml_f_pdf interface~fsml_f_pdf->proc~f_dst_f_pdf interface~fsml_f_ppf fsml_f_ppf interface~fsml_f_ppf->proc~f_dst_f_ppf interface~fsml_gamma_cdf fsml_gamma_cdf interface~fsml_gamma_cdf->proc~f_dst_gamma_cdf interface~fsml_gamma_pdf fsml_gamma_pdf interface~fsml_gamma_pdf->proc~f_dst_gamma_pdf interface~fsml_gamma_ppf fsml_gamma_ppf interface~fsml_gamma_ppf->proc~f_dst_gamma_ppf interface~fsml_gpd_cdf fsml_gpd_cdf interface~fsml_gpd_cdf->proc~f_dst_gpd_cdf interface~fsml_gpd_pdf fsml_gpd_pdf interface~fsml_gpd_pdf->proc~f_dst_gpd_pdf interface~fsml_gpd_ppf fsml_gpd_ppf interface~fsml_gpd_ppf->proc~f_dst_gpd_ppf interface~fsml_kruskalwallis fsml_kruskalwallis interface~fsml_kruskalwallis->proc~s_tst_kruskalwallis interface~fsml_mean fsml_mean interface~fsml_mean->proc~f_sts_mean interface~fsml_norm_cdf fsml_norm_cdf interface~fsml_norm_cdf->proc~f_dst_norm_cdf interface~fsml_norm_pdf fsml_norm_pdf interface~fsml_norm_pdf->proc~f_dst_norm_pdf interface~fsml_norm_ppf fsml_norm_ppf interface~fsml_norm_ppf->proc~f_dst_norm_ppf interface~fsml_pca fsml_pca interface~fsml_pca->proc~s_lin_pca interface~fsml_pcc fsml_pcc interface~fsml_pcc->proc~f_sts_pcc interface~fsml_ranksum fsml_ranksum interface~fsml_ranksum->proc~s_tst_ranksum interface~fsml_signedrank_1sample fsml_signedrank_1sample interface~fsml_signedrank_1sample->proc~s_tst_signedrank_1s interface~fsml_signedrank_paired fsml_signedrank_paired interface~fsml_signedrank_paired->proc~s_tst_signedrank_2s interface~fsml_std fsml_std interface~fsml_std->proc~f_sts_std interface~fsml_t_cdf fsml_t_cdf interface~fsml_t_cdf->proc~f_dst_t_cdf interface~fsml_t_pdf fsml_t_pdf interface~fsml_t_pdf->proc~f_dst_t_pdf interface~fsml_t_ppf fsml_t_ppf interface~fsml_t_ppf->proc~f_dst_t_ppf interface~fsml_trend fsml_trend interface~fsml_trend->proc~f_sts_trend interface~fsml_ttest_1sample fsml_ttest_1sample interface~fsml_ttest_1sample->proc~s_tst_ttest_1s interface~fsml_ttest_2sample fsml_ttest_2sample interface~fsml_ttest_2sample->proc~s_tst_ttest_2s interface~fsml_ttest_paired fsml_ttest_paired interface~fsml_ttest_paired->proc~s_tst_ttest_paired interface~fsml_var fsml_var interface~fsml_var->proc~f_sts_var

Source Code

subroutine s_err_print(error)

! ==== Description
!! Prints error message in specific format.

! ==== Declarations
  character(len=*), intent(in) :: error
  character(len=128)           :: fstring

! ==== Instructions
  fstring = trim(error) // " (" // trim(f_utl_r2c(c_sentinel_r)) // ")"
!  fstring = txt_error // trim(error) // txt_info // &
!          & " (" // trim(f_utl_r2c(c_sentinel_r)) // ")" // txt_reset
  write(std_e, '(A)') fstring

end subroutine s_err_print