请管理员删除

978142355

我本是个娃娃 发表于 2015-12-14 09:17
去连载-17暖贴

喳。
program example
inplicit none
character（len=64） ：：filename，notion
write（*，*） ‘input the name：’
read（*，*） filename
open（13，file=filename）
if （notation='喳'） then
   write（13，“（a64）”） trim（filename）
end if

end

我本是个娃娃

978142355 发表于 2015-12-14 10:14
喳。
program example
inplicit none

用fortran实现看看是什么

978142355

我本是个娃娃 发表于 2015-12-14 10:16
用fortran实现看看是什么

就是一个简单的fortran链接而已（PS：暂时还实现不了。大意就是如果输入字符为“喳”，跳到海岛记17）

我本是个娃娃

978142355 发表于 2015-12-14 11:03
就是一个简单的fortran链接而已（PS：暂时还实现不了。大意就是如果输入字符为“喳”，跳到海岛记17）

我说怎么调试都不行，还找不到原因

978142355

我本是个娃娃 发表于 2015-12-14 11:12
我说怎么调试都不行，还找不到原因

形式代码。对话直接转到海岛记17了。

我本是个娃娃

978142355 发表于 2015-12-14 12:25
形式代码。对话直接转到海岛记17了。

哟哈