anchor.diff:      famName = "tclp"
     else if(elemName(1:4) == "tcli") then
       famName = "tcli"
  -  else if(elemName(1:4) == "tcxr") then
  +  else if(elemName(1:4) == "tcxr" .or. elemName(1:3) == "xrp") then
  +! else if(elemName(1:4) == "tcxr") then
       famName = "tcxrp"
     else if(elemName(1:5) == "tcryo" .or. elemName(1:5) == "tcld.") then
       famName = "tcryo"
  
positive.code:     iLine = iLine + 1
      if(ioStat /= 0) goto 100
  
      ! Line 4: Sigma
      read(dbUnit,*,iostat=ioStat) inLine
      iLine = iLine + 1
      if(ioStat /= 0) goto 100
  
negative.code:     iLine = iLine + 1
      if(ioStat /= 0) goto 100
  
      ! Line 2: Upper case name
      read(dbUnit,*,iostat=ioStat) cdb_cNameUC(j)
      iLine = iLine + 1
      if(ioStat /= 0) goto 100
  