anchor.diff:  c******************************************************************
   c**** ADD WEIGHTS AND DZ_surf
   c******************************************************************
  -c 
  +c
                   n_dzsurf(iradar_ray)=n_dzsurf(iradar_ray)+1
                   swdzsurf_sweep(iradar_ray)
        &           =swdzsurf_sweep(iradar_ray)+wghtsurf_ray
  
positive.code: c******************************************************************
  c**** CHECK THAT NO ELEMENT OF THE MATRIX' MAIN DIAGONAL IS NULL
  c******************************************************************
  c 
                 if(abs(xmat(i,i)).le.0.)then
                   do j=1,nvar
                      xmat(i,j)=0.
  
negative.code:         INTEGER  nfile,ifile,lastfile     ! total number of netcdf text file & file number
          INTEGER iopen
  
  c Variables declarations previous in Franks' common block, which has been deleted
  
  c From COMMON /CSPD_OU_CELV/
        integer*4 nb_portes
        real d_porte(MAXPORAD)
  
  c From COMMON /CFAC/
  c
        real corr_azest(MAXRAD),corr_elhor(MAXRAD),corr_dist(MAXRAD)
       &    ,corr_lon(MAXRAD),corr_lat(MAXRAD)
  