anchor.diff:        logical::DEBUG=.true.,ok
         Parameter(LenBuf=4000)
   !
  +      integer::j
   !
   !     Format statements.
   !
  
positive.code:                  'mqc_matrix_haveFull(matrixInUse)', mqc_matrix_haveFull(matrixInUse) )
            endIf
          elseIf(mqc_matrix_haveComplex(matrixInUse)) then 
            if(mqc_matrix_test_diagonal(matrixInUse)) then
              if(.not.mqc_matrix_haveDiagonal(matrixInUse)) then
                if(mqc_matrix_haveFull(matrixInUse)) call mqc_matrix_full2Diag(matrixInUse)
  
negative.code:       if(.not.allocated(fileinfo%basisFunction2Atom)) then
          allocate(fileinfo%basisFunction2Atom(fileinfo%NBasis))
          fileinfo%basisFunction2Atom = 0
        endIf
       
        if(fileinfo%icgu.eq.111) then
          iopcl = 0 
        elseIf(fileinfo%icgu.eq.112) then
          iopcl = 1
        elseIf(fileinfo%icgu.eq.121) then
          iopcl = 2
        elseIf(fileinfo%icgu.eq.122) then
          iopcl = 3
        elseIf(fileinfo%icgu.eq.221) then
          iopcl = 6
        endIf
  !
  !     Set the readWriteMode flag in fileinfo to 'W' and then write the
  