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