24小时热门版块排行榜

南方科技大学公共卫生及应急管理学院2026级博士研究生招生报考通知（长期有效）

返回列表

当前主题已经存档。

xirainbow

木虫 (正式写手)

应助: 0 (幼儿园)
贵宾: 0.03
金币: 2132.6
红花: 2
帖子: 775
在线: 6.1小时
虫号: 431211
注册: 2007-08-11
专业: 光谱学

[交流] 【求助】如何读大型的fortran写的源程序？

本人只读过一本fortran入门的书籍
我现在想读一个大型开源软件(PWscf中的pw.x)的源程序
但是其中含有一百多个.f90文件，我不知道哪个.f90是我应该读的第一个文件：（
(我只知道C语言一般是从main文件开始读，根据main中的code，就可以知道接着该读哪个文件了)

还有，这种软件如何才能像matlab中的debug模式一样，
让其执行一行，然后自动停住，等待键盘指令再执行下一行。

还请多多指教！

它的Makefile文件如下所示。
我不知道是否还需要提供更多的信息，才能回到我提出的问题：）

# Makefile for PW

include ../make.sys

PWOBJS = \
a2fmod.o \
add_bfield.o \
add_efield.o \
add_vuspsi.o \
add_vuspsi_nc.o \
addusdens.o \
addusforce.o \
addusstress.o \
allocate_bp_efield.o \
allocate_fft.o \
allocate_locpot.o \
allocate_nlpot.o \
allocate_wfc.o \
atomic_rho.o \
atomic_wfc.o \
average_pp.o \
becmod.o \
bp_c_phase.o \
bp_calc_btq.o \
bp_qvan3.o \
bp_strings.o \
buffers.o \
c_bands.o \
c_phase_field.o \
ccgdiagg.o \
cdiagh.o \
cdiaghg.o \
cegterg.o \
cft3.o \
cft3s.o \
checkallsym.o \
checksym.o \
clean_pw.o \
close_files.o \
compute_becsum.o \
compute_dip.o \
compute_rho.o \
compute_rho_new.o \
compute_fes_grads.o \
compute_scf.o \
compute_qdipol.o \
compute_qdipol_so.o \
compute_ux.o \
coset.o \
cryst_to_car.o \
cubicsym.o \
d_matrix.o \
data_structure.o \
davcio.o \
deriv_drhoc.o \
divide_class.o \
divide_class_so.o \
realus.o \
diropn.o \
divide.o \
divide_et_impera.o \
dndepsilon.o \
dndtau_of_k.o \
dprojdepsilon.o \
dprojdtau.o \
dqvan2.o \
drhoc.o \
dvloc_of_g.o \
dynamics_module.o \
efermig.o \
efermit.o \
electrons.o \
eqvect.o \
ewald.o \
ewald_dipole.o \
exx.o \
find_group.o \
forces_bp_efield.o \
force_cc.o \
force_corr.o \
force_ew.o \
force_hub.o \
force_lc.o \
force_us.o \
forces.o \
g_psi.o \
g_psi_mod.o \
gen_at_dj.o \
gen_at_dy.o \
gen_us_dj.o \
gen_us_dy.o \
get_locals.o \
ggen.o \
gk_sort.o \
gradcorr.o \
gweights.o \
g2_kin.o \
h_epsi_her_apply.o \
h_epsi_her_set.o \
h_1psi.o \
h_psi.o \
h_psi_meta.o \
hexsym.o \
hinit0.o \
hinit1.o \
init_ns.o \
init_run.o \
init_us_1.o \
init_us_2.o \
init_at_1.o \
init_vloc.o \
input.o \
interpolate.o \
inverse_s.o \
io_rho_xml.o \
ions.o \
irrek.o \
iweights.o \
kpoint_grid.o \
lchk_tauxk.o \
make_pointlists.o \
makov_payne.o \
memory_report.o \
mix_pot.o \
mix_rho.o \
mode_group.o \
move_ions.o \
multable.o \
n_plane_waves.o \
new_ns.o \
ns_adj.o \
newd.o \
noncol.o \
non_scf.o \
openfil.o \
orthoatwfc.o \
output_tau.o \
para.o \
paw_init.o \
paw_onecenter.o \
potinit.o \
print_clock_pw.o \
print_ks_energies.o \
psymrho.o \
psymrho_mag.o \
punch.o \
pw_restart.o \
pwcom.o \
qvan2.o \
rcgdiagg.o \
rdiagh.o \
rdiaghg.o \
read_conf_from_file.o \
read_file.o \
read_pseudo.o \
regterg.o \
remove_atomic_rho.o \
report_mag.o \
reset_k_points.o \
restart_from_file.o \
restart_in_electrons.o \
restart_in_ions.o \
rgen.o \
rho2zeta.o \
rotate_wfc.o \
rotate_wfc_k.o \
rotate_wfc_gamma.o \
ruotaijk.o \
s_1psi.o \
s_axis_to_ca.o \
s_psi.o \
save_in_cbands.o \
save_in_electrons.o \
save_in_ions.o \
scale_h.o \
scf_mod.o \
seqopn.o \
set_defaults_pw.o \
set_fft_dim.o \
set_hubbard_l.o \
set_kplusq.o \
set_kup_and_kdw.o \
set_rhoc.o \
set_vrs.o \
setlocal.o \
setqf.o \
setup.o \
setupkpt.o \
sgam_at.o \
sgam_at_mag.o \
sgam_ph.o \
sgama.o \
smallg_q.o \
spinor.o \
sph_ind.o \
startup.o \
stop_run.o \
stres_cc.o \
stres_ewa.o \
stres_gradcorr.o \
stres_har.o \
stres_hub.o \
stres_knl.o \
stres_loc.o \
stres_us.o \
stress.o \
struct_fact.o \
sum_band.o \
sumkg.o \
sumkt.o \
summary.o \
symmetrize_at.o \
symrho.o \
symrho_mag.o \
symscalar.o \
symtns.o \
symvect.o \
symz.o \
tabd.o \
transform_becsum_so.o \
transform_becsum_nc.o \
trntns.o \
trnvecc.o \
trnvect.o \
tweights.o \
update_pot.o \
usnldiag.o \
v_of_rho.o \
vcsmd.o \
vcsubs.o \
vhpsi.o \
vhpsi_nc.o \
vloc_of_g.o \
vloc_psi.o \
w0gauss.o \
w1gauss.o \
wfcinit.o \
wgauss.o \
write_ns.o \
wsweight.o \
weights.o \

MODULES = \
../Modules/atom.o \
../Modules/autopilot.o \
../Modules/basic_algebra_routines.o \
../Modules/berry_phase.o \
../Modules/bfgs_module.o \
../Modules/cell_base.o \
../Modules/check_stop.o \
../Modules/clocks.o \
../Modules/constants.o \
../Modules/constraints_module.o \
../Modules/control_flags.o \
../Modules/descriptors.o \
../Modules/dspev_drv.o \
../Modules/electrons_base.o \
../Modules/error_handler.o \
../Modules/exc_t.o \
../Modules/fft_base.o \
../Modules/fft_parallel.o \
../Modules/fft_scalar.o \
../Modules/fft_types.o \
../Modules/functionals.o \
../Modules/input_parameters.o \
../Modules/io_files.o \
../Modules/io_global.o \
../Modules/ions_base.o \
../Modules/ions_nose.o \
../Modules/kind.o \
../Modules/mp_global.o \
../Modules/mp_wave.o \
../Modules/mp.o \
../Modules/mp_base.o \
../Modules/metagga.o \
../Modules/metadyn_base.o \
../Modules/metadyn_io.o \
../Modules/metadyn_vars.o \
../Modules/path_base.o \
../Modules/path_formats.o \
../Modules/path_variables.o \
../Modules/path_opt_routines.o \
../Modules/path_io_routines.o \
../Modules/path_reparametrisation.o \
../Modules/parallel_include.o \
../Modules/parameters.o \
../Modules/parser.o \
../Modules/paw_variables.o \
../Modules/printout_base.o \
../Modules/pseudo_types.o \
../Modules/ptoolkit.o \
../Modules/radial_grids.o \
../Modules/random_numbers.o \
../Modules/read_cards.o \
../Modules/read_namelists.o \
../Modules/read_ncpp.o \
../Modules/read_upf_v1.o \
../Modules/read_upf_v2.o \
../Modules/read_uspp.o \
../Modules/recvec.o \
../Modules/shmem_include.o \
../Modules/splinelib.o \
../Modules/stick_base.o \
../Modules/task_groups.o \
../Modules/timestep.o \
../Modules/upf_to_internal.o \
../Modules/uspp.o \
../Modules/upf.o \
../Modules/version.o \
../Modules/vxc_t.o \
../Modules/vxcgc.o \
../Modules/wavefunctions.o \
../Modules/wave_base.o \
../Modules/write_upf_v2.o \
../Modules/xml_io_base.o \
../Modules/zhpev_drv.o

TLDEPS=bindir mods libs libiotk

all : tldeps pw.x

pw.x : pwscf.o libpw.a $(LIBOBJS)
$(LD) $(LDFLAGS) -o $@ \
pwscf.o $(MODULES) libpw.a $(LIBOBJS) $(LIBS)
- ( cd ../bin; ln -fs ../PW/$@ . )

libpw.a : $(PWOBJS)
$(AR) $(ARFLAGS) $@ $?
$(RANLIB) $@

tldeps:
test -n "$(TLDEPS)" && ( cd .. ; $(MAKE) $(MFLAGS) $(TLDEPS) || exit 1) || :

clean :
- /bin/rm -f pw.x *.o *.a *~ *.F90 *.d *.mod *.i *.L

include make.depend

# DO NOT DELETE

[ Last edited by xirainbow on 2010-2-16 at 14:42 ]

回复此楼

» 猜你喜欢

三甲基碘化亚砜的氧化反应已经有4人回复
请问下大家为什么这个铃木偶联几乎不反应呢已经有5人回复
请问有评职称，把科研教学业绩算分排序的高校吗已经有5人回复
孩子确诊有中度注意力缺陷已经有12人回复
2025冷门绝学什么时候出结果已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有3人回复
论文投稿，期刊推荐已经有4人回复
硕士和导师闹得不愉快已经有13人回复

1楼2010-02-16 14:41:43

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

magic7004

金虫 (职业作家)

程序强帖: 2
应助: 0 (幼儿园)
金币: 444
红花: 4
帖子: 3278
在线: 156.2小时
虫号: 482895
注册: 2007-12-26
性别: GG
专业: 化学工程

★ ★
jjdg(金币+2):辛苦了！春节快乐 2010-02-18 23:35
xirainbow(金币+2): 2010-02-19 14:03
xirainbow(金币+2): 2010-02-20 21:18

还是看文档吧，如果没有文档，就不要读了

赞一下(1人)

回复此楼

流氓不可怕，可怕的是流氓有文化，有文化又BH的流氓无敌~~！

2楼2010-02-18 21:21:47

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

xirainbow

木虫 (正式写手)

应助: 0 (幼儿园)
贵宾: 0.03
金币: 2132.6
红花: 2
帖子: 775
在线: 6.1小时
虫号: 431211
注册: 2007-08-11
专业: 光谱学

引用回帖:

Originally posted by magic7004 at 2010-02-18 21:21:47:
还是看文档吧，如果没有文档，就不要读了

谢谢您的回帖；）

我通过搜索PROGRAM，已经找到了主程序
但是，还不知道如何像MATLAB一样的调试程序：（

use only, call 等命令的细节我还不懂
还有下面的语句为什么在前面有个井号，我也不懂
#if defined __INTEL
! ... Intel compilers v .ge.8 allocate a lot of stack space
CALL remove_stack_limit ( )
#endif
慢慢来吧：）

赞一下

回复此楼

3楼2010-02-19 14:09:14

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖