anchor.diff:        complex(kind=real64),allocatable,dimension(:)::compVectorTmp
         type(MQC_Matrix)::matrixInUse 
         character(len=256)::my_filename,my_storage
  -      logical::DEBUG=.true.,ok
  +      logical::DEBUG=.false.,ok
         Parameter(LenBuf=4000)
   !
   !     Format statements.
  
positive.code: !           'core hamiltonian'   write the core hamiltonian.
  !           'fock'               write the fock matrix.
  !           'density'            write the density matrix.
  !           'overlap'            write the overlap matrix.
  !           'wavefunction'       export the wavefunction object.
  !
  
negative.code:       real,allocatable,dimension(:)::arrayTmp
        complex(kind=8),allocatable,dimension(:)::complexTmp
        character(len=256)::my_filename,errorMsg
        logical::DEBUG=.false.,ok,found
  !
  !
  !     Format statements.
  