← Back to branch summary

~siesta-maint/siesta/trunk

« back to all changes in this revision

Viewing changes to Src/basis_specs.f

  • Committer: Nick Papior
  • Date: 2018-04-07 19:24:04 UTC
  • mfrom: (560.1.325 4.1)
  • Revision ID: nickpapior@gmail.com-20180407192404-z5414ljigmh07vd3
Merged r882-885, bug-fixes non-equilibrium contours in example and added tiling

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/basis_specs.f
249
249
!     Use standard routine in chemical module to process the
250
250
!     chemical species
251
251
!
252
 
      call read_chemical_types()
253
 
      nsp = number_of_species()
254
 
 
255
 
      allocate(basis_parameters(nsp))
256
 
      do isp=1,nsp
257
 
        call initialize(basis_parameters(isp))
258
 
      enddo
 
252
      nsp = size(basis_parameters)
259
253
 
260
254
      synthetic_atoms = .false.
261
255