parameter(kmx=45,jmx=36,imx=73)
      parameter(mxfile=15)
      character*56 flnm(mxfile)
      common/pltdat/ flnm