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 subroutine write_fitted_evops
  
      subroutine write_fitted_diss(type)
        character, intent(in)      :: type
  
        integer(i4b) :: i,j,k,l, tind, super1, super2, file_ios
  
        real(dp)                                         :: time
  
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()
  