anchor.diff:  C     Contains integrands to be integrated.
   
   C----------COMMON AREAS.
  -      COMMON /modpr/  g,tau,xnu,c(3),cosmo,xi        !Model parameters.
  +      COMMON /modpr/  g,tau,xnu,c(3),cosmo,xi,b      !Model parameters.
         COMMON /nupar/  t9mev,tnmev,tnu,cnorm,nu,rhonu !Integration parameters.
   
   C==========================DECLARATION DIVISION=================================
  
positive.code: C     Contains integrands to be integrated.
  
  C----------COMMON AREAS.
        COMMON /modpr/  g,tau,xnu,c(3),cosmo,xi        !Model parameters.
        COMMON /nupar/  t9mev,tnmev,tnu,cnorm,nu,rhonu !Integration parameters.
  
  C==========================DECLARATION DIVISION=================================
  
negative.code: C     Contains integrands to be integrated.
  
  C----------COMMON AREAS.
        COMMON /modpr/  g,tau,xnu,c(3),cosmo,xi,b      !Model parameters.
        COMMON /nupar/  t9mev,tnmev,tnu,cnorm,nu,rhonu !Integration parameters.
  
  C==========================DECLARATION DIVISION=================================
  