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:     ! 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, locerrstat )
      
      errstat = MAX ( errstat, locerrstat )
      
  
negative.code:   ! ---------------
    INTEGER (KIND=i4),                          INTENT (IN) :: pge_idx, nx, nt
    REAL    (KIND=r8), DIMENSION (1:nx,0:nt-1), INTENT (IN) :: saocol, saodco
    REAL    (KIND=r8), DIMENSION (1:nx,0:nt-1), INTENT (IN) :: amfmol, amfgeo, amf_pro_err
    REAL    (KIND=r8), DIMENSION (1:nx,0:nt-1), INTENT (IN) :: amfcfr, amfctp
    INTEGER (KIND=i2), DIMENSION (1:nx,0:nt-1), INTENT (IN) :: amfdiag
  
  