Figaro:FITGAUSS consistently fails over in some DATACUBE scripts. One
reason is that AGS_ASSOC barfs (see below) whether or not I've done a
GDCLEAR first. I've isolated this to a short application, testags, that
generates the error.
> ./testags
DEVICE - Graphics device /!/ > xwin
!! SGS_ZONE - New zone not inside current
! SGS_ZONE - Unable to create new zone
! Error associating device using AGI - SGS__UCRNZ, Unable to create new zone.
! Application exit status SGS__UCRNZ, Unable to create new zone
Here's the source.
SUBROUTINE TESTAGS( STATUS )
* Type Definitions:
IMPLICIT NONE ! No implicit typing
* Global Constants:
INCLUDE 'SAE_PAR' ! Standard SAE constants
* Status:
INTEGER STATUS ! Global status
* Local Variables:
INTEGER PICID
INTEGER ZONID
*.
* Check inherited global status.
IF ( STATUS .NE. SAI__OK ) RETURN
* Associate the device with AGI and SGS.
CALL AGS_ASSOC( 'DEVICE', 'WRITE', ' ', PICID, ZONID, STATUS )
IF ( STATUS .NE. SAI__OK) THEN
CALL ERR_FACER( 'SYSTAT', STATUS )
CALL ERR_REP( 'TESTAGS_E01', 'Error associating ' //
: 'device using AGI - ^SYSTAT.', STATUS )
END IF
* Dissociate the device from AGI and SGS.
CALL AGS_DEASS( 'DEVICE', .FALSE., STATUS )
END
built using the following command.
alink testags.f -o testags -L/home/mjc/classic/ `agi_link_adam`
This links with a modern version of the repository.
The IFL is below.
interface TESTAGS
parameter DEVICE
ptype 'DEVICE'
vpath 'GLOBAL,PROMPT'
ppath 'GLOBAL,CURRENT,DEFAULT'
association '<->GLOBAL.GRAPHICS_DEVICE'
default !
prompt 'Graphics device'
helpkey '*'
endparameter
endinterface
Does anyone know what's going wrong?
Malcolm
|