   for ( ;  ; )
   {
      if (RANDD>PSuccess)
      {
         FailCount++;
         if (FailCount>=NumFail)
         {
            break;
         }
      }
      else
      {
         SuccessCount++;
      }
   }
   X = SuccessCount;
   }
      fprintf(stdout,"%.15g\n",X); 
   }
