*+ 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