common /carg/ argstr(MAXLINE), upflag, noread
   character argstr
   logical upflag, noread