*+ WRITEMAP - write a map into a big image
SUBROUTINE WRITEMAP ( STATUS )
* Description :
* Write a rectangular area into a SuperCOSMOS mapping data set.
* Invocation :
* CALL WRITEMAP ( STATUS )
* Parameters :
* STATUS=INTEGER (given and returned)
* global status
* Method :
* Open the bigimage and insert a rectangular area.
* Authors :
* B.D.Kelly (ROE)
* History :
* 24.01.1995: original (BDK)
* endhistory
* Type Definitions :
IMPLICIT NONE
* Global constants :
INCLUDE 'SAE_PAR'
* Status :
INTEGER STATUS
* Local variables :
CHARACTER*132 MAPNAME ! name of directory to hold bigimage
INTEGER BD ! bigimage descriptor
INTEGER*2 VALUES(200) ! values written to the bigimage
INTEGER J ! loop counter
CHARACTER*132 ERRMSG ! buffer to hold error messages
*-
IF ( STATUS .NE. SAI__OK ) RETURN
*
* Initialise the array of values to be put
*
DO J = 1, 200
VALUES(J) = J / 10
ENDDO
*
* Get the mapname, which is the name of the directory to hold the
* bigimage
*
CALL PAR_GET0C ( 'MAPNAME', MAPNAME, STATUS )
*
* Open the bigimage and overwrite a 2-D rectangular area of it */
*
CALL COSMAP_OPEN ( MAPNAME, 'update', BD, STATUS )
IF ( STATUS .NE. SAI__OK ) THEN
CALL COSMAP_ERRTRAN ( ERRMSG, STATUS )
CALL ERR_REP ( ' ', ERRMSG, STATUS )
ELSE
CALL COSMAP_PUTMAP ( BD, 5, 5, 14, 24, VALUES, STATUS )
IF ( STATUS .NE. SAI__OK ) THEN
CALL COSMAP_ERRTRAN ( ERRMSG, STATUS )
CALL ERR_REP ( ' ', ERRMSG, STATUS )
ENDIF
ENDIF
END