Merge pull request #7 from USEPA/dev

Update msxqual.c
USEPA · Jul 7, 2023 · 84c057e · 84c057e
2 parents 2bfe341 + 98c7c46
commit 84c057e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Src/msxqual.c b/Src/msxqual.c
@@ -1209,7 +1209,7 @@ double  getSourceQual(Psource source)
 // --- apply time pattern if assigned
     i = source->pat;
     if (i == 0) return(c);
-    k = (int)((MSX.Qtime + MSX.Pstart) / MSX.Pstep) % MSX.Pattern[i].length;
+    k = (int)((MSX.Qtime + MSX.Pstart*1000) / (MSX.Pstep*1000)) % MSX.Pattern[i].length;
     if (k != MSX.Pattern[i].interval)
     {
         if ( k < MSX.Pattern[i].interval )