id=0
  While (id<Ndra)
    id=id+1;
*   iidx=Nidx-id+7
    iidx=

    "set display color white"; "c"
    iy=0
    "set strsiz 0.12 0.15"
    "draw string 2.5 10.6 Geographic extent of Drought by "IDX.id" index"
    "set strsiz 0.11 0.12"
    "draw string 2.45 10.4  Top to bottom: Entire VN and R1-R7 sub-regions"
    "set strsiz 0.105 0.115"
    "draw string 2.5 10.2 Dark Blue: Moderate, Yellow: Severe; Red: Extreme"
*    "set xlab off"
*    "set xaxis 1966 2005 5"
    While (iidx > 6)
      "set xlab on"
*      "set xaxis 1966 2006 5"
      iidx=iidx-6
      iy=iy+1
      if (iy=1);  y1=iy*dy;  endif
      if (iy>1); y1=y2; "set xlab off"; endif
      y2=y1+dy
      "set parea 1 8.0 "y1 " " y2

      "set grads off"
      "set gxout linefill"
      "set lfcols 11 2"
      "set vrange 0 100"
      "set ylint 20"
      "set x "iidx
      "d Dr_Area.1; Dr_Area.1-Dr_Area.1"

      "set lfcols 7 2"
      "d Dr_Area.2; Dr_Area.2-Dr_Area.2"

      "set lfcols 2 4"
      "d Dr_Area.3; Dr_Area.3-Dr_Area.3"

say "iidx=" iidx " iy"iy
    Endwhile
    "printim Pics/Geo_Ext_"IDX.id"_Stn.png"
    pull dummy
  Endwhile
  "close 3"
  "close 2"
  "close 1"