← Back to branch summary

~nickpapior/siesta/trunk-kpoint-dos

« back to all changes in this revision

Viewing changes to Src/denmat.f

  • Committer: Alberto Garcia
  • Date: 2004-11-25 18:49:43 UTC
  • Revision ID: Arch-1:siesta@uam.es--2004%siesta-devel--reference--0.11--patch-1
Siesta 0.11 -- imported from CVS
Import from cvs using date instead of siesta-0-11-release tag, since
the Pseudo structure was not properly integrated at that time and
did not get the tag.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/denmat.f
 
1
C $Id: denmat.f,v 1.12 1999/02/23 12:05:22 wdpgaara Exp $
 
2
 
1
3
      subroutine denmat(c,eta,h,s,enum,
2
4
     .                 nbasis,nbands,ncmax,nctmax,
3
5
     .                 nfmax,nftmax,nhmax,nhijmax,
117
119
     .  cim, cnj, chin, csin, chccim, csccim, cchccmn, ccsccmn,
118
120
     .  Hmn, Smn, qout, fact
119
121
 
120
 
      logical
121
 
     .  found
122
122
C ........................
123
123
 
124
124
C Start time counter .....................................................
267
267
      endif
268
268
C ........................
269
269
 
270
 
C Save DM to disk .........................................................
271
 
      call iodm( 'write', nhmax, nbasis, nbasis, 1,
272
 
     .           numh, listh, dm, found )
 
270
C Save DM to disk: now it is done at top level ............................
 
271
C     call iodm('write',nhmax,nbasis,nbasis,1,numh,listh,dm,found )
273
272
C ......................
274
273
 
275
274
C Stop time counter and return ..................