新人初学Fortran，有一段代码好像第一步语法就出错了。

小小学渣一枚

[Fortran] 纯文本查看 复制代码

Last change: N     17 April 2003   10.00 am
! Program to Calculate water surface profileof ice covered
! channel and non-equilibrium ice coverthickness
! Nimal C. Jayasundara and Prof. Hung TaoShen
! Department of Civil and EnvironmentalEngineering
! Clarkson University
      program ne_jam
    parameter(kr=65,kn=50, kt=100)
    commonnhecu(kr),ywidu(kr,kn),zbu(kr,kn),
    $      nhecd(kr),ywidd(kr,kn),zbd(kr,kn)
    realbman(kr),iman(kr),xl(kr),lengthx(kr), x(kr)
    realheud, h0(kr), hu1, hu2
    realr(kr), nc(kr), hh(kr), hw(kr)
    realb(kr),p(kr),area(kr),dd(kr), v(kr),k(kr)
    realsf(kr), error(kr), eed
    realhini, q, tini, tsave(kr)
    realvmax, rhow, rhoi, rhorat, coef, alpha, g, pi, phi, e
    realk0,k1,xkk,kx,gama_e
    realti(kr),  t1,t21,t22, tavg
    realaa,bb, cc, top, ravg
    realric(kr), sw, dtdx
    realhw1(kr), ze(kr)
    realerrorv, tolv, tolh, tolice
    realhtop(kr),hbotom(kr)
    realni0, ti0, ni(kr), nimax, tti(kr)
    realti_del(kr), area_req
    realt_step(kt), Qice(kt)
    realicevol(kr), cover_vol(kr)
    realvol_diff, ice_supply
    integercount, itern, istep, vstep, ni_option
    open(unit = 2, file = 'thames-g.dat')
    open(unit = 3, file = 'thames-p.dat')
    open(unit = 4, file = 'thames-ini.dat')
    open(unit = 7, file = 'thames_icev.dat')

我只截取了一半，我不知道是编辑器不同的原因还是标准不同，好像第一步就报错了，大神来看一下吧

青衣巷

请给出错误提示信息，使用的什么操作系统，什么编译器？
1. 第一行需要注释
2. commonnhecu(kr),ywidu(kr,kn),zbu(kr,kn), & 少一个空格，应该是
common nhecu(kr),ywidu(kr,kn),zbu(kr,kn), &
3. 所有的 real  integer 后面都应该有空格。

小小学渣一枚

青衣巷 发表于 2021-3-15 15:37
请给出错误提示信息，使用的什么操作系统，什么编译器？
1. 第一行需要注释
2. commonnhecu(kr),ywidu(kr,k ...

问题解决了，谢谢大佬

小小学渣一枚

C:\Users\J\Desktop\fortran
这个错误是为什么，

Transpose

第一句 write then

没这么写的

小小学渣一枚

Transpose 发表于 2021-3-16 20:24
第一句 write then

没这么写的

一开始没then。但是运行不出来，我就加了个then，还是不对，，

necrohan

小小学渣一枚 发表于 2021-3-21 19:04
一开始没then。但是运行不出来，我就加了个then，还是不对，，

把 then 换成 &