CPAT,MACHIN   .                                                         
      function ranf(x)                                                  
      common /ranfbk/iy                                                 
      ranf=ran0(iy)                                                     
      return                                                            
      end