<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;"><BR>
<BLOCKQUOTE style="BORDER-LEFT: rgb(16,16,255) 2px solid; PADDING-LEFT: 5px; MARGIN-LEFT: 5px"><BR>
<DIV id=yiv470278488>
<TABLE border=0 cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD vAlign=top><BR><SPAN lang=EN>
<DIV>Dear Users</DIV>
<DIV>I want to use QHA for thermodynamic properties. I change fortran compiler ifort to gfortran (fedora core 7)in makefiles of Debay,Include,Phonon_Dos,SRC diretories . This change creates all *.x files except Phonon_dos.x .</DIV>
<DIV>The process after compilation is as follows</DIV>
<DIV>　</DIV>
<DIV>[root@localhost QHA]# ./Compile </DIV>
<DIV>gfortran -O3 -c tetra.f</DIV>
<DIV>gfortran -O3 -c k_brillouin.f</DIV>
<DIV>gfortran -O3 -c generate_tetra.f</DIV>
<DIV>In file generate_tetra.f:84</DIV>
<DIV>IF(S-.0001)3,3,1 </DIV>
<DIV>1</DIV>
<DIV>Warning: Obsolete: arithmetic IF statement at (1)</DIV>
<DIV>gfortran -O3 -c det3.f</DIV>
<DIV>gfortran -O3 -c det4.f</DIV>
<DIV>gfortran -static -o tetra.x tetra.o k_brillouin.o generate_tetra.o det3.o det4.o </DIV>
<DIV>gfortran -O3 -c phonon_dos.f</DIV>
<DIV>In file phonon_dos.f:122</DIV>
<DIV>open(unit=8,file='PHDOS.out',access='sequential',form='formatted'</DIV>
<DIV>1</DIV>
<DIV>Error: Syntax error in OPEN statement at (1)</DIV>
<DIV>make: *** [phonon_dos.o] Error 1</DIV>
<DIV>gfortran -O3 -c Debye.f90</DIV>
<DIV>In file Debye.f90:144</DIV>
<DIV>do T = T_low_start, T_low, T_low_delta</DIV>
<DIV>1</DIV>
<DIV>Warning: Obsolete: REAL DO loop iterator at (1)</DIV>
<DIV>In file Debye.f90:177</DIV>
<DIV>do T = T_low+5, T_high, T_high_delta</DIV>
<DIV>1</DIV>
<DIV>Warning: Obsolete: REAL DO loop iterator at (1)</DIV>
<DIV>gfortran -O3 -c Debye_T.f</DIV>
<DIV>gfortran -O3 -c debye3.f</DIV>
<DIV>gfortran -O3 -c cheval.f</DIV>
<DIV>gfortran -O3 -c d1mach.f</DIV>
<DIV>gfortran -static -o Debye.x Debye.o Debye_T.o debye3.o cheval.o d1mach.o </DIV>
<DIV>gfortran -FR -c Mean_square_displacement.f90</DIV>
<DIV>In file Mean_square_displacement.f90:162</DIV>
<DIV>do T=T_start,T_end,T_delta</DIV>
<DIV>1</DIV>
<DIV>Warning: Obsolete: REAL DO loop iterator at (1)</DIV>
<DIV>gfortran -static -o Mean_square_displacement.x Mean_square_displacement.o </DIV>
<DIV>gfortran -FR -c Atom_projected_properties.f90</DIV>
<DIV>In file Atom_projected_properties.f90:180</DIV>
<DIV>do T=T_start, T_end, T_delta</DIV>
<DIV>1</DIV>
<DIV>Warning: Obsolete: REAL DO loop iterator at (1)</DIV>
<DIV>gfortran -static -o Atom_projected_properties.x Atom_projected_properties.o </DIV>
<DIV>gfortran -FR -c F_QHA.f90</DIV>
<DIV>In file F_QHA.f90:134</DIV>
<DIV>do T=T_start,T_end,T_delta</DIV>
<DIV>1</DIV>
<DIV>Warning: Obsolete: REAL DO loop iterator at (1)</DIV>
<DIV>gfortran -static -o F_QHA.x F_QHA.o </DIV>
<DIV>gfortran -FR -c Ghost_DOS.f90</DIV>
<DIV>gfortran -static -o Ghost_DOS.x Ghost_DOS.o </DIV>
<DIV>gfortran -FR -c Partial_phonon_DOS.f90</DIV>
<DIV>gfortran -static -o Partial_phonon_DOS.x Partial_phonon_DOS.o </DIV>
<DIV>gfortran -FR -c atom_info.f90</DIV>
<DIV>gfortran -static -o atom_info.x atom_info.o </DIV>
<DIV>　</DIV></SPAN><BR>Muhammad Zafar<BR>PhD Scholar<BR>Department of Physics<BR>The Islamia University of Bahawalpur,Pakistan</TD></TR></TBODY></TABLE></DIV></BLOCKQUOTE></td></tr></table>