Examples: the routines START and FINISH

The two routines used to produce the figures appearing this manual are described in this section. They are good examples of a simple, but frequent, usage of HIGZ. The first one: START, initializes HIGZ, opens an Encapsulated PostScript file and set the size of the figure according to the input parameters. The second one: FINISH, closes the Encapsulated PostScript file and terminates HIGZ. 
                         The routine START
                                  
      SUBROUTINE START(NAME,X,Y)
      CHARACTER*(*) NAME
      PARAMETER (NWORDS=50000)
      COMMON /PAWC/ RPAW(NWORDS)
      CALL MZEBRA(-3)
      CALL MZPAW(NWORDS,' ')
      CALL IGINIT(0)
      CALL IGWKTY(ITYPE)
      CALL IGSSE(6,ITYPE)
      OPEN(UNIT=10,FILE=NAME//'.EPS',FORM='FORMATTED',STATUS='UNKNOWN')
      CALL IGMETA(10,-113)
      CALL IGRNG(X,Y)
      END
In the routine FINISH the call to the routine IGTERM is not mandatory but is useful to flush the graphics buffer especially in the case of the X11 interface (see section [more info]). 
                        The routine FINISH
                                  
      SUBROUTINE FINISH
      CALL IGMETA(0,0)
      CALL ICLWK(2)
      CLOSE(10)

      CALL IGTERM
      CALL IGEND
      END