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

楚香饭

请给出源码，错误提示

楚香饭

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

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

楚香饭

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

楚香饭

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

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

1 **** PROGRAM MCLJ ****

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

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