INTERFACE:
character(len=max_namlen) function getname (inname)DESCRIPTION:
Retrieve name portion of inname. If an averaging flag separater character is present (:) in inname, lop it off.
ARGUMENTS:
implicit none character(len=*), intent(in) :: innameREVISION HISTORY:
Created by Jim RosinskiLOCAL VARIABLES: