ESMF_StripKey Subroutine

private subroutine ESMF_StripKey(string, key)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(inout) :: string
character(len=*), intent(out) :: key

Called by

proc~~esmf_stripkey~~CalledByGraph proc~esmf_stripkey ESMF_StripKey proc~esmf_locstreamcreatebybkgmesh ESMF_LocStreamCreateByBkgMesh proc~esmf_locstreamcreatebybkgmesh->proc~esmf_stripkey proc~esmf_locstreamgetpntlist ESMF_LocStreamGetPntList proc~esmf_locstreamcreatebybkgmesh->proc~esmf_locstreamgetpntlist proc~esmf_locstreamgetpntlist->proc~esmf_stripkey interface~esmf_locstreamcreate ESMF_LocStreamCreate interface~esmf_locstreamcreate->proc~esmf_locstreamcreatebybkgmesh

Source Code

      subroutine ESMF_StripKey(string, key)
!
! !ARGUMENTS:
      character (len = *), intent(inout)  :: string
      character (len = *), intent(out)    :: key

!
! !DESCRIPTION:
!
!     Pulls out the key which occurring at position
!     occurrence in the colon-separated string, and 
!     return the truncated string.
!
! !REQUIREMENTS:
!EOPI

      integer   :: pos

      pos = index( string, ',')
      if ( pos == 0 ) then
        key = string
        string = ''
      else        
        key = string(1:pos-1)
        string = string( pos+1: )
      endif

      return
      end subroutine ESMF_StripKey