%N gropen %F $MIR/src/gropen.f
%D Open device for graphics
%B
      INTEGER FUNCTION GROPEN (TYPE,DUMMY,FILE,IDENT)
      INTEGER   TYPE, DUMMY, IDENT
      CHARACTER*(*) FILE

 GRPCKG: assign a device and prepare for plotting.  GROPEN must be
 called before all other calls to GRPCKG routines.

 Returns:

 GROPEN (output, integer): 1 => success, any other value
       indicates a failure (usually the value returned will
       be a VMS error code). In the event of an error, a
       message will be sent to the standard error unit.

 Arguments:

 TYPE (input, integer): default device type (integer code).
 DUMMY (input, integer): not used at present.
 FILE (input, character): plot specifier, of form 'device/type'.
 IDENT (output, integer): plot identifier to be used in later
       calls to GRPCKG.

  1-Jun-1984 - [TJP].
  2-Jul-1984 - change to call GRSLCT [TJP].
 13-Jul-1984 - add device initialization [TJP].
 23-Jul-1984 - add /APPEND qualifier.
 19-Oct-1984 - add VV device [TJP].
 26-Dec-1984 - obtain default file name from common [TJP].
 29-Jan-1985 - add HP2648 device [KS/TJP].
  5-Aug-1986 - add GREXEC support [AFT].
 12-Oct-1986 - fix bug causing GREXEC to erase screen [AFT].
  3-Jun-1987 - remove declaration of exit handler [TJP].
 15-Dec-1988 - standardize [TJP].
 25-Jun-1989 - remove code that removes spaces from the device name 
               [TJP].
 26-Nov-1990 - [TJP].
  5-Jan-1993 - [TJP].
  1-Sep-1994 - store device capabilities in common for later use [TJP].
 17-Apr-1995 - zero-length string fix [TJP].
  6-Jun-1995 - explicitly initialize GRSTAT [TJP].
 29-Apr-1996 - moved initialization into GRINIT [TJP].
 12-Jul-1999 - fix bug [TJP].
