program makepal
c
c make a color palette for NCSA image tools to use.
c
c GWH 12-Nov-1992

      implicit none

      character*1 pal(3,256)
      character filename*80

      integer i
      integer iret

c      integer dssdast,dsadata
      integer dfpgetpal, dfpputpal

c read a palette file:

      filename = ' '
      do while (filename .eq. ' ')
         write(6,*) ' Palette file name to read:'
         read(5,*) filename
      enddo
        
      iret=DFPgetpal(filename,pal)
      if(iret .ne. 0) then
         write(6,*) 'error. iret=',iret
         stop
      endif

      write(6,*) 'index   Red   Green  Blue'
      do i=1,256
         write(6,*) i, ichar(pal(1,i)), ichar(pal(2,i)), 
     >              ichar(pal(3,i))
      enddo

      do i=127,130
         pal(1,i)=pal(1,129)
         pal(2,i)=pal(2,129)
         pal(3,i)=pal(3,129)
      enddo

c write the resulting palette:

      filename = ' '
      do while (filename .eq. ' ')
         write(6,*) ' Palette file name to write:'
         read(5,*) filename
         if(filename .eq. 'q') stop
      enddo

      iret=DFPputpal(filename,pal,0,'w')
      if(iret .ne. 0) then
         write(6,*) 'error. iret=',iret
         stop
      endif

      stop
      end