anchor.diff:  
   subroutine formatrgb(red,grn,blu,rgbstring)
   implicit none
  -real :: red,grn,blu
  -character(len=200) :: tmpstring
  +double precision :: red,grn,blu
  +character(len=1024) :: tmpstring
   character(len=*) :: rgbstring
   integer :: j,jj
   write(tmpstring,1001) red,grn,blu
  
positive.code: 
  subroutine rgb2lab(red,grn,blu,l,a,b)
  implicit none
  real :: red,grn,blu,l,a,b
  real :: x,y,z
  call rgb2xyz(red,grn,blu,x,y,z)
  call xyz2lab(x,y,z,l,a,b)
  return
  
negative.code: ! X-y-z tristimulus to lightness-a-b
  use colormodule
  implicit none
  double precision :: xin,yin,zin,x,y,z,ciel,ciea,cieb
  x = xin/refx
  y = yin/refy
  z = zin/refz
  