错误:(1) 处的程序语句形式无效

Question

我正在尝试使用以下命令运行 fortran 代码： f95 -lm 外推3-节点-不规则v2.f

我得到了以下错误

外推3-节点不规则v2.f：1.14：

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

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

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

  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并重新编译时，有时会发生这种错误。