anchor.diff:  
   end subroutine alfbasisinit
   
  -!***************************************************************************************************
  +!******************************************************************************
   
   subroutine alfbasis(nmax,mmax,theta,P,V,W)
   
  
positive.code: 
      implicit none
  
      character(128)              :: datafilenew, datafilelast=''
      real(4)                     :: epochnew, epochlast=-999.0
      real(8)                     :: we0, we1
      integer(4)                  :: iepoch0, iepoch1, iterm, icoord
  
negative.code: 
  end subroutine apxg2q
  
  !******************************************************************************
  
  subroutine apxg2all(glat,glon,alt,hr,vecflagin, &
                      qlatout,qlonout, mlat,mlon, f1,f2,f, d1,d2,d3,d, e1,e2,e3)
  