xiaowandouer 发表于 2025-6-10 11:35
Organometallics, 2009, 28,3656-3665

好的，谢谢您！

zll12369 发表于 2025-5-12 11:08
老师您好，请问这是哪一篇文献给的，方便告知一下吗

Organometallics, 2009, 28,3656-3665

xiaowandouer 发表于 2021-7-29 17:53
这是原始文献给的程序。

老师您好，请问这是哪一篇文献给的，方便告知一下吗

lyj714 发表于 2021-7-29 18:34
把
随便改个其他名称，比如：

非常感谢，编译成功！！！

xiaowandouer 发表于 2021-7-29 16:24
谢谢社长！用gcc是否可以编译？

这又不是C/C++语言写的，显然不能用gcc

报错原因前面的人说了。
不同编译器对语法的严格程度要求不一样，作者那里能编译不代表用当前自己的编译器能编译。

把

1. program TOF

复制代码

随便改个其他名称，比如：

1. program MYTOF

复制代码

如果在gfortran下还有其他报错，就把：

1. kbh=20836643994

复制代码

改成

1. kbh=20836643994D0

复制代码

sobereva 发表于 2021-7-29 16:22
把tof后缀加上.f90，然后用Fortran编译器编译。启动程序后，输入诸如nico，就会读取当前目录下的nico.ene， ...

用gfortran和ifort都试了，编译失败，不知道该怎么改。fortran程序我是从原文献上复制的。

ifort编译的出错信息如下：
tof.f90(20): error #6406: Conflicting attributes or multiple declaration of name.   [TOF]
REAL::temp,ktemp,dummy,dg,delta,m=0.,tof,de,maxtsr,tsd  
-------------------------------------^
tof.f90(60): error #6413: This global name is invalid in this context.   [TOF]
tof=kbh*temp*delta/m  
^
tof.f90(63): error #6413: This global name is invalid in this context.   [TOF]
WRITE(*,40)tof  
-----------^
tof.f90(64): error #6413: This global name is invalid in this context.   [TOF]
WRITE(2,40)tof  
-----------^
compilation aborted for tof.f90 (code 1)

sobereva 发表于 2021-7-29 16:22
把tof后缀加上.f90，然后用Fortran编译器编译。启动程序后，输入诸如nico，就会读取当前目录下的nico.ene

谢谢社长！用gcc是否可以编译？

把tof后缀加上.f90，然后用Fortran编译器编译。启动程序后，输入诸如nico，就会读取当前目录下的nico.ene，一边计算一遍把信息输出在屏幕上以及.tof为后缀的文件里。