gra_spectra

Format:

integer $*$4 gra_spectra
external gra_spectra
character $*$80 command
call gra_spectra( command )

Description:

The Fortran equivalent of gra_command(): A command is passed to the interpreter using a Fortran string descriptor.

SPECTRA generates an error message, if the last character of the command is a minus sign (continuation of the command line). However, it is possible that the command consists of several commands terminated by separators (the default separator is the semicolon).

Example:

istat = gra_spectra( 'read bpu1' ) 
if( .not. istat) then 
  type *, ' Failed to read BPU1 '
  return
endif
call gra_spectra( 'set bpu1/x_min=0/col=4' ) 
call gra_spectra( 'display' )