anchor.diff:  
     case("GZIP")
       if(nSplit /= 2) then
  -      write(lout,"(a,i2,a)") "HDF5> ERROR GZIP level takes 1 input parameter, ",(nSplit-1)," given."
  +      write(lout,"(a,i0,a)") "HDF5> ERROR GZIP level takes 1 input parameter, ",(nSplit-1)," given."
         iErr = .true.
         return
       end if
       call str_cast(lnSplit(2),h5_gzipLevel,spErr)
       if(h5_gzipLevel < -1 .or. h5_gzipLevel > 9) then
  -      write(lout,"(a,i2)") "HDF5> ERROR Illegal value for GZIP: ",h5_gzipLevel
  -      write(lout,"(a,i2)") "HDF5> ERROR   Allowed values are -1 for disabled, and 0-9 for none to max compression."
  +      write(lout,"(a,i0)") "HDF5> ERROR Illegal value for GZIP: ",h5_gzipLevel
  +      write(lout,"(a)")    "HDF5> ERROR   Allowed values are -1 for disabled, and 0-9 for none to max compression."
         iErr = .true.
         return
       end if
   
     case("CHUNK")
       if(nSplit /= 2) then
  -      write(lout,"(a,i2,a)") "HDF5> ERROR CHUNK takes 1 input parameter, ",(nSplit-1)," given."
  +      write(lout,"(a,i0,a)") "HDF5> ERROR CHUNK takes 1 input parameter, ",(nSplit-1)," given."
         iErr = .true.
         return
       end if
       call str_cast(lnSplit(2),h5_defChunk,spErr)
       if(h5_defChunk < 1) then
  -      write(lout,"(a,i2)") "HDF5> ERROR Illegal value for CHUNK: ",h5_defChunk
  -      write(lout,"(a,i2)") "HDF5> ERROR   Value must be larger than 0."
  +      write(lout,"(a,i0)") "HDF5> ERROR Illegal value for CHUNK: ",h5_defChunk
  +      write(lout,"(a)")    "HDF5> ERROR   Value must be larger than 0."
         iErr = .true.
         return
       end if
   
     case("FILE")
       if(nSplit < 2 .or. nSplit > 3) then
  -      write(lout,"(a,i2,a)") "HDF5> ERROR FILE statement takes 1 or 2 input parameters, ",(nSplit-1)," given."
  +      write(lout,"(a,i0,a)") "HDF5> ERROR FILE statement takes 1 or 2 input parameters, ",(nSplit-1)," given."
         write(lout,"(a)")      "HDF5> ERROR   Valid input is FILE filename [truncate]"
         iErr = .true.
         return
  
positive.code: 
    ! Report if debugging is ON
    if(h5_debugOn) then
      write (lout,"(a,i3,a)")  "HDF5> DEBUG Input line len=",len(inLine),": '"//inLine%strip()//"'."
      write (lout,"(a,i2,a)") ("HDF5> DEBUG  * Field(",i,") = '"//lnSplit(i)//"'",i=1,nSplit)
    end if
  
    select case(lnSplit(1)%chr)
  
negative.code:   case("WRITE")
  
      if(nSplit /= 2) then
        write(lout,"(a,i0,a)") "HDF5> ERROR WRITE statement takes 1 input parameter, ",(nSplit-1)," given."
        iErr = .true.
        return
      end if
  