pointType42Parser :: Get PointType42 
pointType42Parser = do 
         
  pointTag <- getByteString 10                                
  flowToday <- getIeeeFloat32                             
  flowYesterday <- getIeeeFloat32                       
  flowMonth <- getIeeeFloat32                               
  flowPrvsMonth <- getIeeeFloat32                           
  flowAccum <- getIeeeFloat32                             
  minutesToday <- getIeeeFloat32                          
  minutesYesteray <- getIeeeFloat32                         
  minutesMonth <- getIeeeFloat32                            
  minutesPrvsMonth <- getIeeeFloat32                      
  minutesAccum <- getIeeeFloat32                        
  energyToday <- getIeeeFloat32                             
  energyYesterday <- getIeeeFloat32                         
  energyMonth <- getIeeeFloat32                           
  energyPrvsMonth <- getIeeeFloat32                     
  energyAccum <- getIeeeFloat32                             
  uncrtdToday <- getIeeeFloat32                             
  uncrtdYesterday <- getIeeeFloat32                       
  uncrtdMonth <- getIeeeFloat32                         
  uncrtdPrvsMonth <- getIeeeFloat32                         
  uncrtdAccum <- getIeeeFloat32                             
  orPlateBoreDiam <- getIeeeFloat32                       
  mtrTubeIntDiamatFlowingTemp <- getIeeeFloat32         
  betaDiamRatio <- getIeeeFloat32                           
  evApproachVelocity <- getIeeeFloat32                      
  cdDischargeCoeff <- getIeeeFloat32                      
  reynoldsNum <- getIeeeFloat32                         
  upStrAbsoluteStaticPress <- getIeeeFloat32                
  molecularWeight <- getIeeeFloat32                         
       
  return $ PointType42 pointTag flowToday flowYesterday flowMonth flowPrvsMonth flowAccum minutesToday minutesYesteray minutesMonth minutesPrvsMonth minutesAccum energyToday 
    energyYesterday energyMonth energyPrvsMonth energyAccum uncrtdToday uncrtdYesterday uncrtdMonth uncrtdPrvsMonth uncrtdAccum orPlateBoreDiam mtrTubeIntDiamatFlowingTemp 
    betaDiamRatio evApproachVelocity cdDischargeCoeff reynoldsNum upStrAbsoluteStaticPress molecularWeight  
pointType42Parser :: Get PointType42
pointType42Parser = do 
         
  pointTag <- getByteString 10                                
  flowToday <- getIeeeFloat32                             
  flowYesterday <- getIeeeFloat32                       
  flowMonth <- getIeeeFloat32                               
  flowPrvsMonth <- getIeeeFloat32                           
  flowAccum <- getIeeeFloat32                             
  minutesToday <- getIeeeFloat32                          
  minutesYesteray <- getIeeeFloat32                         
  minutesMonth <- getIeeeFloat32                            
  minutesPrvsMonth <- getIeeeFloat32                      
  minutesAccum <- getIeeeFloat32                        
  energyToday <- getIeeeFloat32                             
  energyYesterday <- getIeeeFloat32                         
  energyMonth <- getIeeeFloat32                           
  energyPrvsMonth <- getIeeeFloat32                     
  energyAccum <- getIeeeFloat32                             
  uncrtdToday <- getIeeeFloat32                             
  uncrtdYesterday <- getIeeeFloat32                       
  uncrtdMonth <- getIeeeFloat32                         
  uncrtdPrvsMonth <- getIeeeFloat32                         
  uncrtdAccum <- getIeeeFloat32                             
  orPlateBoreDiam <- getIeeeFloat32                       
  mtrTubeIntDiamatFlowingTemp <- getIeeeFloat32         
  betaDiamRatio <- getIeeeFloat32                           
  evApproachVelocity <- getIeeeFloat32                      
  cdDischargeCoeff <- getIeeeFloat32                      
  reynoldsNum <- getIeeeFloat32                         
  upStrAbsoluteStaticPress <- getIeeeFloat32                
  molecularWeight <- getIeeeFloat32                         
       
  return $ PointType42 pointTag flowToday flowYesterday flowMonth flowPrvsMonth flowAccum minutesToday minutesYesteray minutesMonth minutesPrvsMonth minutesAccum energyToday 
    energyYesterday energyMonth energyPrvsMonth energyAccum uncrtdToday uncrtdYesterday uncrtdMonth uncrtdPrvsMonth uncrtdAccum orPlateBoreDiam mtrTubeIntDiamatFlowingTemp 
    betaDiamRatio evApproachVelocity cdDischargeCoeff reynoldsNum upStrAbsoluteStaticPress molecularWeight  
pointType42Parser = do 
         
  pointTag <- getByteString 10                                
  flowToday <- getIeeeFloat32                             
  flowYesterday <- getIeeeFloat32                       
  flowMonth <- getIeeeFloat32                               
  flowPrvsMonth <- getIeeeFloat32                           
  flowAccum <- getIeeeFloat32                             
  minutesToday <- getIeeeFloat32                          
  minutesYesteray <- getIeeeFloat32                         
  minutesMonth <- getIeeeFloat32                            
  minutesPrvsMonth <- getIeeeFloat32                      
  minutesAccum <- getIeeeFloat32                        
  energyToday <- getIeeeFloat32                             
  energyYesterday <- getIeeeFloat32                         
  energyMonth <- getIeeeFloat32                           
  energyPrvsMonth <- getIeeeFloat32                     
  energyAccum <- getIeeeFloat32                             
  uncrtdToday <- getIeeeFloat32                             
  uncrtdYesterday <- getIeeeFloat32                       
  uncrtdMonth <- getIeeeFloat32                         
  uncrtdPrvsMonth <- getIeeeFloat32                         
  uncrtdAccum <- getIeeeFloat32                             
  orPlateBoreDiam <- getIeeeFloat32                       
  mtrTubeIntDiamatFlowingTemp <- getIeeeFloat32         
  betaDiamRatio <- getIeeeFloat32                           
  evApproachVelocity <- getIeeeFloat32                      
  cdDischargeCoeff <- getIeeeFloat32                      
  reynoldsNum <- getIeeeFloat32                         
  upStrAbsoluteStaticPress <- getIeeeFloat32                
  molecularWeight <- getIeeeFloat32                         
       
  return $ PointType42 pointTag flowToday flowYesterday flowMonth flowPrvsMonth flowAccum minutesToday minutesYesteray minutesMonth minutesPrvsMonth minutesAccum energyToday 
    energyYesterday energyMonth energyPrvsMonth energyAccum uncrtdToday uncrtdYesterday uncrtdMonth uncrtdPrvsMonth uncrtdAccum orPlateBoreDiam mtrTubeIntDiamatFlowingTemp 
    betaDiamRatio evApproachVelocity cdDischargeCoeff reynoldsNum upStrAbsoluteStaticPress molecularWeight  