program test character*64 filename integer rc integer DFR8setp integer DFR8puti * * /********** 387 rows of 500 cols each in c ********/ * * character*1 rast( 387, 500 ) character*1 rast( 500, 387 ) character*1 clut( 768 ) * filename = 'dd:output' * * /*********************************************************/ * /* read in the colors */ * /*********************************************************/ * open( unit=2,file='colors' ) read( 2,2 ) clut 2 format( 128a1 ) rc = d8spal( clut ) write( 6,3 ) rc 3 format( ' return code is: ', i5 ) * * /*********************************************************/ * /* read in the image */ * /*********************************************************/ * open( unit=1,file='rast' ) do 4 i = 1,387 read( 1,5 )( rast( j, i ), j=1,500 ) 5 format( 200a1,200a1,100a1 ) 4 continue * rc = d8pimg( filename, rast, 387, 500, 11) rc = d8pimg( filename, rast, 500, 387, 11) write( 6,3 ) rc * stop end