%% CALLED BY par4Gbl_Main8c.m %%
function[p4L4,...
 TmpexpScanIntens4,TmpFexpScanSpots4,TmpFexpScanBMtp4,TmpanlZoneRefs4,Tmpsbdg4]= ...
    p4loop8c(parMat,tptLength,numScans,selScanNumLst,SWsingleSc,Fflg,PTmapPos,optCirMask,diaExt,doCircle,cirPixA,cirMask,width, ... 
    TmpexpScanIntens00,TmpFexpScanSpots00,TmpFexpScanBMtp00,TmpanlZoneRefs00,~,tifFileLstP4,pathname,ImParMat, ...
    numRows,numCols,scLst,easyResultsDir,projectScansDir, p4L00,TmpexpScanIntens4,TmpFexpScanSpots4,TmpFexpScanBMtp4,TmpanlZoneRefs4, Tmpsbdg00, Tmpsbdg4)
p4L0=p4L00;
TmpexpScanIntens0=TmpexpScanIntens00;
TmpFexpScanSpots0=TmpFexpScanSpots00;
TmpFexpScanBMtp0=TmpFexpScanBMtp00;
TmpanlZoneRefs0=TmpanlZoneRefs00;
Tmpsbdg0= Tmpsbdg00;

% for scCount=1:numScans
if SWsingleSc==1
  parforArg=0;
else
  parforArg=inf;
end

% for (scCount=1:numScans)
parfor (scCount=1:numScans,parforArg)
  scCount % for debugging
  p4L0=cell(18,1);
  [p4L3,TmpexpScanIntens3,TmpFexpScanSpots3,TmpFexpScanBMtp3,TmpanlZoneRefs3,Tmpsbdg3]= ...
  par4GblFnc8c(parMat,tptLength,numScans,selScanNumLst,SWsingleSc,Fflg,PTmapPos,optCirMask,diaExt,doCircle,cirPixA,cirMask,width, ... 
  TmpexpScanIntens0,TmpFexpScanSpots0,TmpFexpScanBMtp0,TmpanlZoneRefs0,scCount,tifFileLstP4,pathname,ImParMat, ...
  numRows,numCols, scLst,easyResultsDir,projectScansDir, p4L0,Tmpsbdg0);

  p4L4(:,scCount)=p4L3; % (:,scCount);
  TmpexpScanIntens4(scCount)=TmpexpScanIntens3;
  TmpFexpScanSpots4(scCount)=TmpFexpScanSpots3;
  TmpFexpScanBMtp4(scCount)=TmpFexpScanBMtp3;
  TmpanlZoneRefs4(scCount)=TmpanlZoneRefs3;
  Tmpsbdg4(scCount)=Tmpsbdg3;
end