jGmax=1

     &             fName(1:IL),'.',1,'.',jGmax,'.data'

         if (exst)  jGmax = jGmax + 1

      jGmax = jGmax - 1

      print*, 'There are ',iGmax,' x ',jGmax,' files'

         do jG=1,jGmax

         do jG=1,jGmax

         do jG=1,jGmax

         do jG=1,jGmax

      jGmax=1

     &             fName(1:IL),'.',1,'.',jGmax,'.data'

         if (exst)  jGmax = jGmax + 1

      jGmax = jGmax - 1

      print*, 'There are ',iGmax,' x ',jGmax,' files'

         do jG=1,jGmax