anchor.diff:          allocate(fileinfo%NBTot)
           fileinfo%NBTot = 0
         endIf
  -
         nAt3 = fileinfo%natoms*3
  -
         if(.not.allocated(fileinfo%atomicNumbers)) then
           allocate(fileinfo%atomicNumbers(fileinfo%natoms))
           fileinfo%atomicNumbers = 0
  
positive.code:         fileinfo%Multiplicity,fileinfo%nelectrons,Len12L,Len4L,  &
          IOpCl,fileinfo%ICGU
  !
        return
        end subroutine MQC_Gaussian_Unformatted_Matrix_Read_Header
  
  
negative.code: !           This CASE block uses NI, NR, N1-N5, and NRI to determine the data
  !           type (integer, real, etc.) and data structure (scalar, vector,
  !           matrix, etc.).
  !
  
  !hph+
  !            write(IOut,*)' MQC_Gaussian_Unformatted_Matrix_Array_Type = ',  &
  !              MQC_Gaussian_Unformatted_Matrix_Array_Type(NI,NR,N1,N2,N3,N4,N5,NRI,ASym)
  !hph-
  
              select case(MQC_Gaussian_Unformatted_Matrix_Array_Type(NI,NR,N1,N2,N3,N4,N5,NRI,ASym))
              case('INTEGER-VECTOR')
                allocate(integerTmp(LR))
  