anchor.diff:  c------------------------------------------------------------------
         do ig=1,ngates
            dgate_corr(ig)=d_porte((iradar_ray-1)*MAXPORT+ig)   ! Mod Oliv
  -     &                  +corr_dist(iradar_ray)+d_dgate_guess 
  +     &                  +corr_dist(iradar_ray)+d_dgate_guess
         enddo
         ddg=dgate_corr(2)-dgate_corr(1)
   c
  
positive.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)
  
negative.code:       sxa(iradar_ray)=sxa(iradar_ray)+x_acft
        sya(iradar_ray)=sya(iradar_ray)+y_acft
        sza(iradar_ray)=sza(iradar_ray)+z_acft
        stime(iradar_ray)=stime(iradar_ray)+time_ks
        ssc(iradar_ray)=ssc(iradar_ray)+shdg
        scc(iradar_ray)=scc(iradar_ray)+chdg
        dmax=amin1(dmax0,dgate_corr(ngates))
  