anchor.diff:              elseif (typ2.eq.'rgb') then
                   call lch2rgb(x1,y1,z1,x2,y2,z2)
               endif
  -        elseif (typ1.eq.'lab') then
  +        elseif (typ1.eq.'lab'.or.typ1.eq.'LAB') then
               read(convert1,*) typ1,x1,y1,z1
               if (typ2.eq.'lch') then
                   call lab2lch(y1,z1,y2,z2)
  
positive.code:             elseif (typ2.eq.'rgb') then
                  call lab2rgb(x1,y1,z1,x2,y2,z2)
              endif
          elseif(typ1.eq.'rgb') then
              read(convert1,*) typ1,x1,y1,z1
              if (typ2.eq.'lch') then
                  call rgb2lch(x1,y1,z1,x2,y2,z2)
  
negative.code:                 write(*,1002) trim(typ1),x1,y1,z1,trim(typ2),x2,y2,z2
              endif
          endif
  1002    format(A3,'(',F0.1,',',F0.1,',',F0.1')',' = ',A3,'(',F0.1,',',F0.1,',',F0.1')')
          stop
      endif
  
  