       subroutine bafr_fake
c  holder for bafrio.f name for now GWV 12/7/2012
         return
           end
