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-----------------------------------------------------------------------