anchor.diff:  !
   !     Local temp variables.
         integer::i,nOutputArrays,LNZ
  -!      integer,external::LenArr
         integer,allocatable,dimension(:)::integerTmp
         real,allocatable,dimension(:)::arrayTmp
         complex(kind=8),allocatable,dimension(:)::complexTmp
  
positive.code:         integer,allocatable::natoms,nbasis,nbasisUse,icharge,multiplicity,nelectrons,icgu, &
            NFC,NFV,ITran,IDum9,NShlAO,NPrmAO,NShlDB,NPrmDB,NBTot
          integer,dimension(:),allocatable::atomicNumbers,atomTypes,basisFunction2Atom, &
            IBasisFunctionType
          real,dimension(:),allocatable::atomicCharges,atomicWeights,cartesians
        Contains
          procedure,pass::OpenFile       => MQC_Gaussian_Unformatted_Matrix_Open
          procedure,pass::CloseFile      => MQC_Gaussian_Unformatted_Matrix_Close
  
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))
  