extract_nop_prefix Function

public function extract_nop_prefix(meta_key) result(prefix)

Extract the node prefix from an athena_nop_node_X metadata key.

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	meta_key

Return Value character(len=64)

Source Code

  function extract_nop_prefix(meta_key) result(prefix)
    !! Extract the node prefix from an athena_nop_node_X metadata key.
    implicit none

    character(*), intent(in) :: meta_key
    character(64) :: prefix

    integer :: pos

    prefix = trim(meta_key)
    pos = index(prefix, 'athena_nop_')
    if(pos .gt. 0) prefix = prefix(pos+11:)

  end function extract_nop_prefix