do i = 1,nfiles call identifynoisyframes [step1] open file call framecounter call ftpois call dpoiss call factrl call gammln call epnoisemask call createNoisyMask call framecounter call ftpois call dpoiss call factrl call gammln close file call writeInfo call removenoisyframes [step2] enddo call filterEventfile [step2]