function pareax(args)
*: pareax nc nxmx nx [lm rm xpm] 図のx座標における範囲を決めるのに便利か関数．見延 
* function pareax nc nxmx nx [lm rm xpm]
* nc: number of column in JPO/JGR (1 or 2)
* nxmx: number of ny'th panels from the top
* nx: number of nx'th panels from the top
* lm: left margin
* rm: right margin
* xpm: X Page margin
NColumn=subwrd(args,1)
nxmx=subwrd(args,2)
nx=subwrd(args,3)
LMarginCM=subwrd(args,4);  if LMarginCM='';  LMarginCM=1.0;  endif
RMarginCM=subwrd(args,5);  if RMarginCM='';  RMarginCM=1.0;  endif
XPMarginCM=subwrd(args,6); if XPMarginCM=''; XPMarginCM=1.0; endif
LMarginINCH=LMarginCM/2.54;
RMarginINCH=RMarginCM/2.54;
XPMarginINCH=XPMarginCM/2.54;
if NColumn=1
  xwttl=8.2/2.54;* 8.2 is assumed to be single column width
else
  xwttl=16.4/2.54;* 16.4 is assumed to be double column width
endif
xwm=xwttl/nxmx;* xwm の定義は xwm=x2-x1+LMarginINCH+RMarginINCH, (xw=x2-x1)
x1=xwm*(nx-1)+LMarginINCH+XPMarginINCH
x2=xwm*(nx  )-RMarginINCH+XPMarginINCH
say 'RMarginCM='RMarginCM' RMarginINCH='RMarginINCH
say 'x1='x1' x2='x2
return x1' 'x2