*+ READBIGIO - read a big image
SUBROUTINE READBIGIO ( STATUS )
* Description :
* Read and print a SuperCOSMOS mapping data set.
* Invocation :
* CALL READBIGIO ( STATUS )
* Parameters :
* STATUS=INTEGER (given and returned)
* global status
* Method :
* Open the bigimage and list its contents by lane.
* 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(20) ! values read from the bigimage
INTEGER LANE ! lane number
INTEGER ROW ! row number
INTEGER J ! loop counter
CHARACTER*80 OUTBUFF ! output print buffer
CHARACTER*132 ERRMSG ! buffer for error messages
*-
IF ( STATUS .NE. SAI__OK ) RETURN
*
* Initialise a row of pixel values
*
DO J = 1, 20
VALUES(J) = 0
ENDDO
*
* Extract the mapname, which is the name of the directory to hold the
* bigimage
*
CALL PAR_GET0C ( 'MAPNAME', MAPNAME, STATUS )
*
* Open the bigimage, read the data a row at a time and print 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
DO LANE = 1, 3
DO ROW = 1, 30
CALL COSMAP_GETROW ( BD, LANE, ROW, VALUES, STATUS )
WRITE ( OUTBUFF, '(20I3)' ) (VALUES(J),J=1,20)
CALL MSG_OUT ( ' ', OUTBUFF, STATUS )
ENDDO
ENDDO
IF ( STATUS .NE. SAI__OK ) THEN
CALL COSMAP_ERRTRAN ( ERRMSG, STATUS )
CALL ERR_REP ( ' ', ERRMSG, STATUS )
ENDIF
ENDIF
END