I compiled QHA in this way and successed. This is the biggining of makefile in my Phonon_DOS folder:<br>.SUFFIXES: .f .o<br>FC = mpif90<font color="#00ffff">#ifort</font><br>LD = $(FC)<font color="#00ffff"> #-static</font><br>DOS = phonon_dos.x <br>TET = tetra.x<br><font color="#00ffff">#Linux<br>#FFLAGS = -O3 -ffast-math -fno-f2c</font><br>FFLAGS = -O3 <br>OBJ1 = phonon_dos.o k_brillouin.o generate_tetra.o det3.o det4.o \<br> Tetrahedra.o Integration.o <br>.......<br><div>--<br>GAO Zhe<br>CMC Lab, MSE, SNU, Seoul, S.Korea<br>
</div><br>At 2011-07-13 19:22:09£¬"zafar rasheed" <zafartariq2003@yahoo.com> wrote:<br> <blockquote id="isReplyContent" style="padding-left: 1ex; margin: 0px 0px 0px 0.8ex; border-left: 1px solid rgb(204, 204, 204);"><table border="0" cellpadding="0" cellspacing="0"><tbody><tr><td style="font: inherit;" valign="top"><br>
<blockquote style="border-left: 2px solid rgb(16, 16, 255); padding-left: 5px; margin-left: 5px;"><br>
<div id="yiv470278488">
<table border="0" cellpadding="0" cellspacing="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></tbody></table></blockquote><br><br><span title="neteasefooter"><span id="netease_mail_footer"></span></span>