anchor.diff:          write(*,*) 'READING EXTERNAL EVOPS'
           call flush()
           call open_files('r')
  -        call read_evops(Uee)
  +        call read_evops(Evops)
           call close_files('r')
   
           write(*,*) 'CALCULATION OF THE DESIGN MATRIX'
  
positive.code:           A(super2,super1) = calc(super1,i,j,k,l)
  
            if(super1 == 1) then
              B(super2) = Uee(i,j,k,l,tind)
            end if
          end do
          end do
  
negative.code:     ! declarations
      real(dp), dimension(:,:), allocatable  :: Ham
      complex(dpc), allocatable:: rho1(:,:), prhox1(:,:), prhodx1(:,:)
      complex(dpc), dimension(:,:,:,:,:), allocatable      :: Evops
      complex(dpc), dimension(:,:), private, allocatable   :: A, U, VT
      complex(dpc), dimension(:), private, allocatable     :: B
      real(dp), dimension(:), private, allocatable         :: EIGVAL
  