SUBROUTINE nprime (n, ifact, nfact)
      IMPLICIT NONE
      INTEGER,  INTENT(IN)  ::  n
      INTEGER,  DIMENSION(1:10),  INTENT(OUT)  ::  ifact
      INTEGER,  INTENT(OUT)  ::  nfact
      END SUBROUTINE nprime