anchor.diff:  
       end function ind
   
  -    subroutine read_evops(type, actual_U)
  -      character, intent(in)      :: type
  +    subroutine read_evops(actual_U)
         complex(dpc), dimension(:,:,:,:,:), intent(out)     :: actual_U
   
         integer (i4b)       :: i, file_ios
  
positive.code: 
      end subroutine write_fitted_diss
  
      subroutine open_files(type,code)
        character, intent(in) :: type
        character, intent(in) :: code
  
        integer(i4b)        :: Uelement, Uelement2,Utnemele,Utnemele2, Ublock
  
negative.code: 
      end subroutine write_fitted_evops
  
      subroutine write_fitted_diss()
        integer(i4b) :: i,j,k,l, tind, super1, super2, file_ios
  
        real(dp)                                         :: time
  