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 = c4||c3||c2||c1 ;
  s = input(little,bits1.0) ;
  e = input(little,bits8.0) ;
  f = input(little,bits23.9) ;
  x = 1+f/(2**23) ;
  xall = x*(2**(e-127)) ;
  if( s eq 1 ) then xall=-xall ;
  if(_n_ > 9 ) then stop ;
 run ;
  proc print data=a ;
 run ;