s_err_warn Subroutine

public subroutine s_err_warn(warning)

Prints warning message in specific format.

Arguments

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

Called by

proc~~s_err_warn~~CalledByGraph proc~s_err_warn s_err_warn proc~f_dst_chi2_ppf f_dst_chi2_ppf proc~f_dst_chi2_ppf->proc~s_err_warn proc~f_dst_exp_ppf f_dst_exp_ppf proc~f_dst_exp_ppf->proc~s_err_warn proc~f_dst_f_ppf f_dst_f_ppf proc~f_dst_f_ppf->proc~s_err_warn proc~f_dst_gamma_ppf f_dst_gamma_ppf proc~f_dst_gamma_ppf->proc~s_err_warn proc~f_dst_norm_ppf f_dst_norm_ppf proc~f_dst_norm_ppf->proc~s_err_warn proc~f_dst_t_ppf f_dst_t_ppf proc~f_dst_t_ppf->proc~s_err_warn proc~s_nlp_hclust s_nlp_hclust proc~s_nlp_hclust->proc~s_err_warn proc~s_nlp_hkmeans s_nlp_hkmeans proc~s_nlp_hkmeans->proc~s_err_warn proc~s_nlp_kmeans s_nlp_kmeans proc~s_nlp_kmeans->proc~s_err_warn interface~fsml_chi2_ppf fsml_chi2_ppf interface~fsml_chi2_ppf->proc~f_dst_chi2_ppf interface~fsml_exp_ppf fsml_exp_ppf interface~fsml_exp_ppf->proc~f_dst_exp_ppf interface~fsml_f_ppf fsml_f_ppf interface~fsml_f_ppf->proc~f_dst_f_ppf interface~fsml_gamma_ppf fsml_gamma_ppf interface~fsml_gamma_ppf->proc~f_dst_gamma_ppf interface~fsml_hclust fsml_hclust interface~fsml_hclust->proc~s_nlp_hclust interface~fsml_hkmeans fsml_hkmeans interface~fsml_hkmeans->proc~s_nlp_hkmeans interface~fsml_kmeans fsml_kmeans interface~fsml_kmeans->proc~s_nlp_kmeans interface~fsml_norm_ppf fsml_norm_ppf interface~fsml_norm_ppf->proc~f_dst_norm_ppf interface~fsml_t_ppf fsml_t_ppf interface~fsml_t_ppf->proc~f_dst_t_ppf

Source Code

subroutine s_err_warn(warning)

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

! ==== Declarations
  character(len=*), intent(in) :: warning
  character(len=256)           :: fstring

! ==== Instructions
  fstring = "[fsml warning] " // trim(warning)
!   fstring = fg_color_magenta // "[fsml warning] " //  style_reset // &
!             trim(warning) // fg_color_blue //  " (" //&
!           & trim(f_utl_r2c(c_sentinel_r)) // ")" // style_reset
  write(std_e, '(A)') trim(fstring)

end subroutine s_err_warn