tem_create_EndianSuffix Function

public function tem_create_EndianSuffix() result(suffix)

This function returns the string in the line which starts with the specified key string in the text returned from print_self_status. The key string itself is excluded from the returned string. If the specified key is not found in the text an empty string will be returned.

Arguments

None

Return Value character(len=4)


Called by

proc~~tem_create_endiansuffix~~CalledByGraph proc~tem_create_endiansuffix tem_create_EndianSuffix proc~tem_restart_openwrite tem_restart_openWrite proc~tem_restart_openwrite->proc~tem_create_endiansuffix proc~dump_treelmesh dump_treelmesh proc~tem_restart_openwrite->proc~dump_treelmesh proc~load_tem load_tem proc~load_tem->proc~tem_create_endiansuffix proc~load_treelmesh load_treelmesh proc~load_tem->proc~load_treelmesh proc~tem_load_weights tem_load_weights proc~load_tem->proc~tem_load_weights proc~dump_treelmesh->proc~tem_create_endiansuffix proc~load_tem_bc_prop load_tem_BC_prop proc~load_tem_bc_prop->proc~tem_create_endiansuffix proc~load_tem_bc_qval load_tem_BC_qVal proc~load_tem_bc_qval->proc~tem_create_endiansuffix proc~dump_tem_bc_prop dump_tem_BC_prop proc~dump_tem_bc_prop->proc~tem_create_endiansuffix proc~dump_tem_bc_qval dump_tem_BC_qVal proc~dump_tem_bc_qval->proc~tem_create_endiansuffix proc~load_treelmesh->proc~tem_create_endiansuffix proc~tem_load_weights->proc~tem_create_endiansuffix proc~init_tem_bc_prop init_tem_bc_prop proc~init_tem_bc_prop->proc~load_tem_bc_prop proc~getelemweight getElemWeight proc~getelemweight->proc~tem_load_weights proc~hvs_output_open hvs_output_open proc~hvs_output_open->proc~tem_restart_openwrite proc~load_env load_env proc~load_env->proc~load_tem proc~load_env->proc~load_tem_bc_prop proc~tem_adapt_dump_newmesh tem_adapt_dump_newMesh proc~tem_adapt_dump_newmesh->proc~dump_treelmesh proc~tem_restart_readheader tem_restart_readHeader proc~tem_restart_readheader->proc~load_tem proc~tem_dump_subtree tem_dump_subTree proc~tem_dump_subtree->proc~dump_treelmesh

Contents


Source Code

  function tem_create_EndianSuffix()  result(suffix)
    ! ---------------------------------------------------------------------------
    character(len=4) :: suffix
    ! ---------------------------------------------------------------------------

    if (isLittleEndian) then
      suffix = '.lsb'
    else
      suffix = '.msb'
    end if

  end function tem_create_endianSuffix