character*1 clut( 768 ) integer n integer dpgpal character*25 filename filename = 'dd:hdf' n = Dpgpal( filename, clut ) write( 6,* ) ' return code from DFPgetpal is ', n n = Dpgpal( filename, clut ) write( 6,* ) ' return code from DFPgetpal is ', n n = Dpgpal( filename, clut ) write( 6,* ) ' return code from DFPgetpal is ', n n = Dpgpal( filename, clut ) write( 6,* ) ' return code from DFPgetpal is ', n stop end