program dims1
   implicit none
   call init
   call viewport(0.2,0.2,0.8,0.8)
   call xyworld(0.0,0.0,1.0,1.0)
   call newpath
   call rect(0.4,0.2,0.6,0.6)
   call stroke
   call dims(0.6,0.6,0.6,0.2,0.1)
   call dims(0.4,0.6,0.6,0.6,0.05)
   call text(0.485,0.64,'b')
   call text(0.69,0.385,'h')
   call fin
   stop
   end