
 
 
      CHARACTER*8 BTYpe
      COMMON /DTPAIN/ BTYpe(30)
