LCPQ/dft_tools
3
0
Fork 0
mirror of https://github.com/triqs/dft_tools synced 2024-12-22 04:13:47 +01:00
Code Issues Releases Wiki Activity

Allow for comment lines in SRC_templates (newer Wien2k versions)

Browse Source
This commit is contained in:
aichhorn 2024-09-16 14:29:58 +02:00
parent 89434044aa
commit c19cbe7971
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
fortran/dmftproj/set_ang_trans.f
View File

@ -128,19 +128,24 @@ C Reading of the file
OPEN(iumatfile,file=fullpath,status='old') OPEN(iumatfile,file=fullpath,status='old')
ind=-l ind=-l
irep=0 irep=0
DO m=-l,l m = -l
DO WHILE (m.le.l)
READ(iumatfile,'(a)')buf1 READ(iumatfile,'(a)')buf1
READ(buf1(1:1),'(a)')repsign READ(buf1(1:1),'(a)')repsign
IF(repsign=='*') THEN C Get rid of comment lines first
IF (repsign.NE.'#') THEN
IF(repsign=='*') THEN
C Finding the different ireps in the new basis (a "*" means the end of an irep) C Finding the different ireps in the new basis (a "*" means the end of an irep)
irep=irep+1 irep=irep+1
degrep(irep)=m-ind+1 degrep(irep)=m-ind+1
ind=m+1 ind=m+1
ENDIF ENDIF
READ(buf1(2:250),*)(rtrans(m1),itrans(m1),m1=-l,l) READ(buf1(2:250),*)(rtrans(m1),itrans(m1),m1=-l,l)
C The line of the file is stored in the column of reptrans, which is temporarly "P". C The line of the file is stored in the column of reptrans, which is temporarly "P".
reptrans(l,isrt)%transmat(-l:l,m)= reptrans(l,isrt)%transmat(-l:l,m)=
& CMPLX(rtrans(-l:l),itrans(-l:l)) & CMPLX(rtrans(-l:l),itrans(-l:l))
m = m + 1
ENDIF
ENDDO ENDDO
reptrans(l,isrt)%transmat(-l:l,-l:l)= reptrans(l,isrt)%transmat(-l:l,-l:l)=
= TRANSPOSE(CONJG(reptrans(l,isrt)%transmat(-l:l,-l:l))) = TRANSPOSE(CONJG(reptrans(l,isrt)%transmat(-l:l,-l:l)))