24小时热门版块排行榜

>论坛更新日志 (3385)
>虫友互识 (925)
>文献求助 (255)
>导师招生 (169)
>休闲灌水 (161)
>考博 (135)
>教师之家 (87)
>硕博家园 (82)
>博后之家 (81)
>找工作 (77)
>论文投稿 (75)
>论文道贺祈福 (67)
>基金申请 (65)
>考研 (57)
>公派出国 (51)
>招聘信息布告栏 (38)

返回列表

dl082025

金虫 (正式写手)

应助: 1 (幼儿园)
金币: 1199.3
散金: 25
帖子: 344
在线: 105.8小时
虫号: 3220503
注册: 2014-05-20
专业: 凝聚态物性 II ：电子结构

[求助] 求组fortran出错问题

Error(E42): Last command making (build\param.o) returned a bad status
Error(E02): Make execution terminated

一个申明变量的代码（书上例子），f77的我想转成f90 就报以上错误
文件名param.inc
代码（所有）：
integer dim
parameter  (dim = 1)
integer maxn,max_interaction
parameter  ( maxn = 12000 ,max_interaction = 100 * maxn )
double precision  x_maxgeom,x_mingeom,y_maxgeom, y_mingeom, z_maxgeom, z_mingeom
parameter  ( x_maxgeom =  10.e0    ,&
      &  x_mingeom = -10.e0    ,&
      &  y_maxgeom =  10.e0    ,&
      &  y_mingeom = -10.e0    ,&
      &  z_maxgeom =  10.e0    ,&
      &  z_mingeom = -10.e0    )
integer pa_sph
parameter(pa_sph = 2)
integer nnps
parameter(nnps = 1 )
integer sle
parameter(sle = 0)
integer skf
parameter(skf = 1)
logical summation_density, average_velocity, config_input,&
&       virtual_part, vp_input, vise, ex_force, heat_artificial,&
&       visc_artificial, self_gravity, nor_density
parameter  ( summation_density  = .true. )
parameter  ( average_velocity  = .false. )
parameter  ( config_input  = .false. )
parameter  ( virtual_part  = .false. )
parameter  ( vp_input  = .false.  )
parameter  ( vise  = .false.  )
parameter  ( ex_force  = .false.)
parameter  ( visc_artificial  = .true. )
parameter  ( heat_artificial  = .false. )
parameter  ( self_gravity  = .false. )
parameter  ( nor_density  = .false. )
integer nsym
parameter  ( nsym = 0)
logical int_stat
parameter  ( int_stat = .true. )
integer print_step, save_step, moni_particle
parameter  ( print_step = 100 ,&
      &  save_step = 500,&
      &  moni_particle = 1600 )
double precision pi
parameter  ( pi = 3.14159265358979323846 )
logical shocktube, shearcavity
parameter  ( shocktube  = .true. )
parameter  ( shearcavity  = .false. )

回复此楼