integer MAXVERT,MAXPROP
      parameter (MAXVERT=1000000)
      parameter (MAXPROP=6)	
      character*80 graspin(2),graspout(2)
      common /gr/graspin,graspout