anchor.diff:    case("WRITE")
   
       if(nSplit /= 2) then
  -      write(lout,"(a,i2,a)") "HDF5> ERROR WRITE statement takes 1 input parameter, ",(nSplit-1)," given."
  +      write(lout,"(a,i0,a)") "HDF5> ERROR WRITE statement takes 1 input parameter, ",(nSplit-1)," given."
         iErr = .true.
         return
       end if
  
positive.code:     select case(lnSplit(2)%chr(1:4))
      case("APER")
        h5_useForAPER = .true.
        write(lout,"(3a)") "HDF5> HDF5 is enabled for APERTURE."
      case("COLL")
        h5_useForCOLL = .true.
        write(lout,"(3a)") "HDF5> HDF5 is enabled for COLLIMATION."
      case("DUMP")
        h5_useForDUMP = .true.
        write(lout,"(3a)") "HDF5> HDF5 is enabled for DUMP."
      case("SCAT")
        h5_useForSCAT = .true.
        write(lout,"(a)") "HDF5> HDF5 is enabled for SCATTER."
  
negative.code: 
    case("SIMNO")
      if(nSplit /= 2) then
        write(lout,"(a,i0,a)") "HDF5> ERROR SIMNO level takes 1 input parameter, ",(nSplit-1)," given."
        iErr = .true.
        return
      end if
  