iGmax=1
& fName(1:IL),'.',iGmax,'.',1,'.data'
if (exst) iGmax = iGmax + 1
iGmax = iGmax - 1
print*, 'There are ',iGmax,' x ',jGmax,' files'
do iG=1,iGmax