Begun splitting evista_fms code from allocat.