Question

我正在尝试使用以下命令运行fortran代码： f95 -lm extrapolate3-node-irregularv2.f

我收到以下错误

extrapolate3节点-irregularv2.f：1.14：

   PROGRAM extrapolate3c--------------------------------------------
          1

错误：（1）

的PROGRAM语句形式无效

我的程序的开头是这样的：

  PROGRAM extrapolate3
  c------------------------------------------------------
  c  2nd step after runnin extrapolate-node-master...-v5(all dat).f
  c   so take the xxx-NODUP.dat file and proceed .. 
  c   ------- This extrapolates the int pts to the nodal values
  c   and then it outputs as per TECPLOT requirements~
  c ---------------------------------------
  IMPLICIT NONE
  integer tot_node,dim,tot_elem,d1
  parameter (dim=8,tot_elem=25,tot_node=72)
  INTEGER i,j,k,writecount,count
  DOUBLE PRECISION x(tot_elem*8),y(tot_elem*8),
 $     z(tot_elem*8)
  double precision val(tot_elem*8),d3
  integer kstep,KINC
  integer jelem(tot_elem*8),
 $     kintk(tot_elem*8)
  integer l_jelem,l_kintk(dim)
  double precision l_x(dim),l_y(dim),l_z(dim)
  double precision l_val(dim),l_nodal(dim)
  double precision xi(dim),eta(dim),zeta(dim),wvar
  double precision shfn(dim,dim),shfninv(dim,dim),one,eighth
  double precision det
  integer ii,jj,kk,err10
  integer conn(tot_elem,dim+2)
  double precision g_nodal(tot_node)
  double precision g_x_node(tot_node),
 $     g_y_node(tot_node),
 $     g_z_node(tot_node)
  double precision v1,v2,v3,dummy
  double precision l_x_node(dim),l_y_node(dim),l_z_node(dim)
  integer g_common_node(tot_node)

之前有没有人遇到过同样的问题？

Answer 1

仔细查看错误消息，该消息在语句

中报告错误

PROGRAM extrapolate3c--------------------------------------------

似乎是你程序的前两行，即

PROGRAM extrapolate3
c------------------------------------------------------

一起跑。我怀疑行之间的行尾或回车字符无效。使用适当的程序员编辑器（例如vi或emacs进行一些编辑，并确保源文件中的所有空格都是空格字符（没有标签，没有有趣的不可见的非打印字符）和所有无论您的平台上的默认设置是什么，行结尾都是如此。将源从Windows复制到Linux，然后重新编译时，有时会发生这种错误。

错误：（1）处的PROGRAM语句形式无效

1 个答案: