SUBROUTINE IRAN8(II,JJ) 
      II=RANF(0)*8.+1.
      JJ=RANF(0)*8.+1.
      RETURN
C* 
      ENTRY IRAN10
C* 
      II=RANF(0)*10.+1. 
      JJ=RANF(0)*10.+1. 
      RETURN      
      END