program test
   
         implicit none

         character(20) cvar
         real(4) a 

         a=12.45

         cvar='lcbas'

         write(12,*) 'howv_bckgrmseavg="AVG =',a, '"'
         write(12,*) trim(cvar)//'_bckgrmseavg="AVG =',a, '"'

         end