anchor.diff:  
         integer numberOfStars,iseed,i,numberOfWDs,in
         real lum,teff,xlog,c1,c2,c3,c4,c5,c6,n1,n2,n3,n4,n5
  -      real xg,xug,xgr,xri,xiz,xgi,fractionOfDB
  +      real fractionOfDB
         real mone
   
         parameter (numberOfStars=6000000)
  
positive.code:       common /cool/ coolingTime
        common /indexdb/ typeOfWD
        common /lb/ lgac,bgac
  
        pi = 4.0 * atan(1.0)
  
        n1=0
        n2=0
  
negative.code:       real :: rgac(numberOfStars)
        double precision :: lgac(numberOfStars),
       &                    bgac(numberOfStars)
  
        TYPE(FileGroupInfo),DIMENSION(11) :: table
  
  