anchor.diff:        end do
       end subroutine open_files
   
  -    subroutine close_files(type,code)
  -      character, intent(in) :: type
  +    subroutine close_files(code)
         character, intent(in) :: code
   
         integer(i4b)        :: Uelement, Uelement2,Utnemele,Utnemele2
  
positive.code: 
      end function ind
  
      subroutine read_evops(type, actual_U)
        character, intent(in)      :: type
        complex(dpc), dimension(:,:,:,:,:), intent(out)     :: actual_U
  
        integer (i4b)       :: i, file_ios
  
negative.code: 
          write(*,*) 'READING EXTERNAL EVOPS'
          call flush()
          call open_files('r')
          call read_evops(Uee)
          call close_files('r')
  
          write(*,*) 'CALCULATION OF THE DESIGN MATRIX'
          call flush()
  