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:         if (i.le.0) call usage('!! Error: format for input type, value is TYP=V1,V2,V3')
          convert1(i:i) = ' '
          i = index(convert1,',')
          if (i.le.0) call usage('!! Error: format for input type, value is TYP=V1,V2,V3')
          convert1(i:i) = ' '
          i = index(convert1,',')
          if (i.le.0) call usage('!! Error: format for input type, value is TYP=V1,V2,V3')
          convert1(i:i) = ' '
          read(convert1,*) typ1
          read(convert2,*) typ2
          if (typ2.ne.'lab'.and.typ2.ne.'lch'.and.typ2.ne.'rgb') call usage('!! Error: OTYP must be lab, lch, or rgb')
          if (typ1.eq.'lch') then
              read(convert1,*) typ1,x1,y1,z1
              if (typ2.eq.'lab') then
                  call lch2lab(y1,z1,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
  
  