anchor.diff:  
   SUBROUTINE he5_amf_write ( &
            pge_idx, nx, nt, saocol, saodco, amfmol, amfgeo, amfdiag, &
  -         amfcfr, amfctp, errstat )
  +         amfcfr, amfctp, amf_pro_err, errstat )
   
     USE OMSAO_precision_module, ONLY: i2, i4, r8
     USE OMSAO_he5_module
  
positive.code:   CALL roundoff_2darr_r8 ( n_roff_dig, nx, nt, colloc(1:nx,0:nt-1) )
    locerrstat = HE5_SWWRFLD ( pge_swath_id, TRIM(ADJUSTL(dcol_field)), &
         he5_start_2d, he5_stride_2d, he5_edge_2d, colloc(1:nx,0:nt-1) )
    errstat = MAX ( errstat, locerrstat )
  
    RETURN
  
negative.code:     ! columns and column uncertainties to output file
      ! -----------------------------------------------
      IF (yn_write) CALL he5_amf_write ( pge_idx, nx, nt, saocol, saodco, saoamf, &
           amfgeo, amfdiag, l2cfr, l2ctp, amf_pro_err, locerrstat )
      
      errstat = MAX ( errstat, locerrstat )
      
  