*+ MAKEBIGIO - make a big image
SUBROUTINE MAKEBIGIO ( STATUS )
* Description :
* Initialise a SuperCOSMOS mapping data set.
* Invocation :
* CALL MAKEBIGIO ( STATUS )
* Parameters :
* STATUS=INTEGER (given and returned)
* global status
* Method :
* Create a header file is the subdirectory for the bigimage.
* 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
CHARACTER*16 DTYPE ! data type
INTEGER BD ! bigimage descriptor
INTEGER*2 VALUES(20) ! values written to the bigimage
INTEGER LANE ! lane number
INTEGER ROW ! row number
INTEGER J ! loop counter
CHARACTER*132 ERRMSG ! buffer for error messages
*-
IF ( STATUS .NE. SAI__OK ) RETURN
*
* Invent a row of pixel values
*
DO J = 1, 20
VALUES(J) = J
ENDDO
*
* Get the mapname, which is the name of the directory to hold the
* bigimage
*
CALL PAR_GET0C ( 'MAPNAME', MAPNAME, STATUS )
*
* Create the bigimage
*
DTYPE = 'I2S'
CALL COSMAP_CREATE ( MAPNAME, 3, 20, 30, DTYPE, STATUS )
IF ( STATUS .NE. SAI__OK ) THEN
CALL COSMAP_ERRTRAN ( ERRMSG, STATUS )
CALL ERR_REP ( ' ', ERRMSG, STATUS )
ELSE
*
* Open the bigimage and write the invented data to it. Each row of
* pixels in each lane is the same
*
CALL COSMAP_OPEN ( MAPNAME, 'update', BD, STATUS )
IF ( STATUS .NE. SAI__OK ) THEN
CALL COSMAP_ERRTRAN ( ERRMSG, STATUS )
CALL ERR_REP ( ' ', ERRMSG, STATUS )
ELSE
DO LANE = 1, 3
DO ROW = 1, 30
CALL COSMAP_PUTROW ( BD, LANE, ROW, VALUES, STATUS )
ENDDO
ENDDO
IF ( STATUS .NE. SAI__OK ) THEN
CALL COSMAP_ERRTRAN ( ERRMSG, STATUS )
CALL ERR_REP ( ' ', ERRMSG, STATUS )
ENDIF
ENDIF
ENDIF
END