紧急求助，固定格式与自由格式的问题

lmbh2014 · 发表于 2014-10-9 15:14:22

分别采用NVT和NPT模拟出当T*=1.65时，LJ流体的状态方程并进行比较
用FORTRAN编写的时候总是有错误，恳请高手指教，非常感谢。

楚香饭 · 发表于 2014-10-9 18:26:51

论坛允许直接上传源代码文件，例如 *.for *.f90 等，不需要复制粘贴到 word 里

你的附件在我这里可以正常编译链接并执行。

1 **** PROGRAM MCLJ ****

CONSTANT-NVT MONTE CARLO PROGRAM
FOR LENNARD JONES ATOMS
ENTER THE RUN TITLE

然后就要求输入了。我不知道如何输入，没法进行下一步。

lmbh2014 · 发表于 2014-10-9 18:21:07

lmbh2014 发表于 2014-10-9 18:18
太感谢您了。学哥。

请问我上传的那个附件可以解答这道题吗？

lmbh2014 · 发表于 2014-10-9 18:18:51

楚香饭发表于 2014-10-9 18:16
Warning: Variable NCYCL is used before its value has been defined
变量 NCYCL 没有定义和符值，就开始 ...

太感谢您了。学哥。

楚香饭 · 发表于 2014-10-9 18:16:11

Warning: Variable NCYCL is used before its value has been defined
变量 NCYCL 没有定义和符值，就开始使用。

unresolved external symbol _MCMOVE@0
找不到函数 MCMOVE

unresolved external symbol _SAMPLE@0
与上一个类同

遇到错误，请先阅读本站文章，常见错误：http://error.w.fcode.cn

lmbh2014 · 发表于 2014-10-9 18:13:49

楚香饭发表于 2014-10-9 17:58
[mw_shl_code=fortran,true]PROGRAM mc
do icyc1=1,ncycl
call mcmove

请问这个是什么意思呢：--------------------Configuration: hahaha - Win32 Debug--------------------
Compiling Fortran...
F:\fortran programs\hahaha\haah.f90
F:\fortran programs\hahaha\haah.f90(2) : Warning: Variable NCYCL is used before its value has been defined
do icyc1=1,ncycl
------------------^
F:\fortran programs\hahaha\haah.f90(4) : Warning: Variable NSAMP is used before its value has been defined
if (mod(icyc1,nsamp).eq.0) call sample
-------------------------^
Linking...
haah.obj : error LNK2001: unresolved external symbol _MCMOVE@0
haah.obj : error LNK2001: unresolved external symbol _SAMPLE@0
Debug/hahaha.exe : fatal error LNK1120: 2 unresolved externals
Error executing link.exe.

hahaha.exe - 3 error(s), 2 warning(s)

楚香饭 · 发表于 2014-10-9 17:58:23

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

PROGRAM mc
       do icyc1=1,ncycl
         call mcmove
           if (mod(icyc1,nsamp).eq.0) call sample  !// 写成一行既可
         enddo
         end

lmbh2014 · 发表于 2014-10-9 17:48:32

fcode 发表于 2014-10-9 16:39
你现在的文件名是 agsdf.for，改成 agsdf.f90 然后重新编译

非常感谢。我输入了一个特别简单的程序，都有错误。代码：
   PROGRAM mc

   do icyc1=1,ncycl
      call mcmove
   if (mod(icyc1,nsamp).eq.0)
+  call sample
enddo
end

错误信息：--------------------Configuration: hai - Win32 Debug--------------------
Compiling Fortran...
F:\fortran programs\hai\ad.f90
F:\fortran programs\hai\ad.f90(6) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER DOUBLE DOUBLECOMPLEX ...
if (mod(icyc1,nsamp).eq.0)
------------------------------------^
F:\fortran programs\hai\ad.f90(7) : Error: Syntax error, found '+' when expecting one of: <LABEL> <END-OF-STATEMENT> ; BLOCK BLOCKDATA PROGRAM TYPE COMPLEX BYTE CHARACTER ...
+  call sample
--------^
Error executing df.exe.

hai.exe - 2 error(s), 0 warning(s)