CALL AYPSTR(81)
      CALL AYORIG(20.0,80.0)
      CALL MOVETO(0.0,0.0)
      CALL LINETO(150.0,0.0)
      DO 1 I=0,7
         X=I*20.0
         CALL MOVETO(X,0.0)
         CALL LINETO(X,-5.0)
         E=I*0.1
         CALL FWRITE(20,E,3,1,X-2.0,-5.0,-90)
 1    CONTINUE
      CALL AWRITE(25,'Ry',2,150.0,-5.0,-90)
      CALL AYORIG(0.0,7.0)
      CALL MOVETO(0.0,0.0)
      CALL LINETO(150.0,0.0)
      DO 2 I=0,10
         X=(I*20.0)/1.361
         CALL MOVETO(X,0.0)   
         CALL LINETO(X,5.0)
         IF(I.NE.10) CALL IWRITE(20,I,2,X-2.0,Y+10.0,-90)
         IF(I.EQ.10) CALL IWRITE(20,I,2,X-2.0,Y+12.0,-90)
 2    CONTINUE   
      CALL AWRITE(25,'eV',2,155.0,12.0,-90)
      CALL AYPEND
      STOP
      END