PROGRAM MAIN
      CALL GREAD('./results/gtopdraw_THRUST_00000.dat')
      CALL GTOPER(   3,1,1,0,100+3)
      CALL GTOPER(10+3,0,0,0,110+3)
      END PROGRAM
C-----------------------------------------------------------------------