INTERFACE:
character(len=1) function getflag (inname)DESCRIPTION:
Retrieve flag portion of inname. If an averaging flag separater character is present (:) in inname, return the character after it as the flag
ARGUMENTS:
implicit none character(len=*) inname ! character stringREVISION HISTORY:
Created by Jim RosinskiLOCAL VARIABLES: