DO m = 1,fdimLoc
DO m=1,fdimLoc
INTEGER ldimLoc, kdimLoc, fdimLoc, rdimLoc
PARAMETER ( fdimLoc = 2*numperList )
CHARACTER*8 fields(fdimLoc,ldimLoc)
CHARACTER*8 stat_fields(fdimLoc,ldimLoc)