INQUIRE( FILE=fileName, EXIST=fileExist )

          WRITE(fileName,'(3A)')

          WRITE(fileName,'(4A)') mdsioLocalDir(1:lp),

        INQUIRE( FILE=fileName, EXIST=fileExist )

        i  = MAX(ILNBLNK(fileName),1)

     &       filePfx(1:ip), ' , ', fileSfx(1:is), ' , ', fileName(1:i)

        fileName = ' '

     O                           fileName, fileExist,

      CHARACTER*(*) fileName

      fileName = ' '

       i  = LEN(fileName)

        WRITE(fileName,'(A)') filePfx(1:ip)

        INQUIRE( FILE=fileName, EXIST=fileExist )

        WRITE(fileName,'(2A)') filePfx(1:ip), fileSfx(1:is)

        INQUIRE( FILE=fileName, EXIST=fileExist )

          WRITE(fileName,'(2A,I3.3,A,I3.3,A)')

          WRITE(fileName,'(3A,I3.3,A,I3.3,A)') mdsioLocalDir(1:lp),

     I               fileName,

      iL = ILNBLNK(fileName)

        pfName = fileName

        WRITE(pfName,'(2A)') mdsioLocalDir(1:pL), fileName(1:iL)

      mFileName = fileName(1:iL)

        WRITE(mFileName,'(2A)') fileName(1:iL), '.meta'

     &          fileName(1:iL), '.meta , ', mFileName(1:iLm)

      CHARACTER*(*) fileName

        fileName(l)   = blkFilName

       iLen = ILNBLNK(fileName(l))

     &         ' for list l=', l, ', fileName: ', fileName(l)

         fnames(n)  = fileName (l)

     &         ' for list l=', l, ', fileName: ', fileName(l)

     &        ' in list l=', l, ', fileName: ', fileName(l)

     &    ' Frq=', frequency(l), ', fileName: ', fileName(l)

      CHARACTER*80 fileName(ldimLoc), blkFilName

     &     levels, fields, fileName, fileFlags,