#include "MGCLStdAfx.h"
/********************************************************************/
/* Copyright (c) 2017 System fugen G.K. and Yuzi Mizuno          */
/* All rights reserved.                                             */
/********************************************************************/
// BKMLT WILL FIND FIRST INDEX AFTER IS S.T. 
//   T(ISF-1) <T(ISF)=T(ISF+1)=---=T(ISF+MLTF-1)<T(ISF+MLTF) 
//   WHERE MLTF >= MLT. 
// *** INPUT * 
//    NT        NUM OF DATA T. 
//    T(NT)     DATA SEQUENCE 
//    IS        INDEX OF T WHERE BKMLT TO START THE SEARCH 
//    MLT       INDICATES MINIMUM NUM OF MULTIPLICITY. 
// *** OUTPUT * 
//    ISF       =-1  NOT FOUND UNTIL THE END OF DATA 
//              >1   FIRST INDEX OF T ( FOUND ). ISF > IS. 
//    MLTF      VALID ONLY WHEN ISF>1, PROVIDES MULTIPLICITY OF T(ISF). 
void bkmlt_(int nt, const double *t, int is, int mlt, int *isf, int *mltf){
	int i = is;
    if(i<=nt && i>=1){
	   --t;   // Parameter adjustments 
		*mltf = 1;
		// LOOP OVER i UNTIL i >= nt OR MLTF>=MLT. 
		while(i<nt){
			if(t[i]==t[i+1]){
				(*mltf)++; ++i;
			}else{
				//  COMPUTE MULTIPLICITY. 
				if(*mltf >= mlt){
					*isf = i- *mltf + 1;
				    return;
				}else{
					*mltf = 1; ++i;
				}
			}
		}
		if(*mltf >= mlt){
			*isf = i- *mltf + 1;
		    return;
		}
	}
	*isf = -1;
	*mltf = 0;
}