anchor.diff:            errorMsg = 'RAFFENETTI 1 2E INTEGRALS not present on file'
             if(present(foundERI)) then
               write(6,'(A)') errorMsg
  +            call fileinfo%load()
             else
               call mqc_error_l(trim(errorMsg),6,'found',found)
             endIf
  
positive.code:           errorMsg = 'RAFFENETTI 2 2E INTEGRALS not present on file'
            if(present(foundERI)) then
              write(6,'(A)') errorMsg
            else
              call mqc_error_l(trim(errorMsg),6,'found',found)
            endIf
  
negative.code:           errorMsg = 'RAFFENETTI 3 2E INTEGRALS not present on file'
            if(present(foundERI)) then
              write(6,'(A)') errorMsg
              call fileinfo%load()
            else
              call mqc_error_l(trim(errorMsg),6,'found',found)
            endIf
  