data a ;
  infile 'sg_v2.1.m01' ; * length little $4 ;
* input (c1-c4)($1.)@@; /*c4='3f'x;c3='80';c2='00'x;c1='00'x ;*/
* little = c1||c2||c3||c4 ;
  input little $4. @@ ;
  s = input(little,bits1.0) ;
  e = input(little,bits8.1) ;
  f = input(little,bits23.9) ;
  x = 1+f/(2**23) ;             big = input(little,ieee4.) ;
  xall = x*(2**(e-127)) ;
  if( s eq 1 ) then xall=-xall ;
  if(_n_ > 9 ) then stop ;
 run ;
  proc print data=a ;*format big hex8.;
 run ;