| 查看: 664 | 回复: 2 | |||
[求助]
关于fortran的一个小问题
|
|
求大神帮助啊。我在学习FORTRAN的时候遇到了这样一个问题，参照别人的程序复制粘贴了一遍，可怎么都出来不了图形，大家帮忙分析下。 程序原代码如下(网上关于材料计算的FORTRAN代码之一): USE MSFLIB INTEGE R XR，YR !在的区域中画一个圆 PARAMETER XR=400,YR=400 INTEGER R, S(1:XR,1:YR) X0=XR/2 ! 圆心位置X0，YO Y0=YR/2 R=MIN(X0 -10,Y0-10) ! 圆半径 S=0 !像素的初始状态（颜色） DO I=1,XR DO J=1,YR IF((I -X0)**2+(J-Y0)**2<=R**2)S(I,J)=10 IER=SETCOLOR(S(I,J)) IER=SETPIXEL(I,J) END DO END DO END 我使用的是CVF6.5的编译器，所以第一个代码我换成了USE DFLIB,编译时发生错误：Error: This name has already been assigned a data type.见图  huatu11.JPG |
回复此楼» 猜你喜欢
求国际会议网站
已经有1人回复
-
求取一些关于纳米材料和纳米技术相关的英文PPT。
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有179人回复
-
【复旦大学】二维材料方向招收2026年博士研究生1名
已经有0人回复
-
北京纳米能源与系统研究所 王中林院士/曹南颖研究员课题组2026级硕/博/博后招生
已经有10人回复
-
荷兰Utrecht University超快太赫兹光谱王海教授课题招收2026 CSC博士生
已经有22人回复
-
反铁磁体中的磁性切换：两种不同的机制已成功可视化
已经有0人回复
-
26申博推荐：南京航空航天大学国际前沿科学研究院光学方向招收博士生！
已经有0人回复
-
求标准粉末衍射卡号 ICDD 01-076-1802
已经有0人回复
» 本主题相关商家推荐: (我也要在这里推广)
» 本主题相关价值贴推荐，对您同样有帮助:
急，急，急，求一fortran语言高手，帮解决程序问题
已经有8人回复- fortran读写问题
已经有6人回复
- 一个采用fortran在linux下运行的程序的安装问题
已经有9人回复
- 急求fortran运行错误原因，在线等
已经有7人回复
- 请教 fortran 运行错误的原因
已经有13人回复
- fortran转换CHGCAR出错
已经有4人回复
- FORTRAN新手 求助主程序循环问题
已经有10人回复
- fortran的一个错误
已经有9人回复
- 大家帮我看一个fortran的程序，我总是计算不出正确的结果
已经有20人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- Fortran的格式化输入输出问题
已经有14人回复
- 三维数组换行输入到文件（intel fortran 编译器）
已经有6人回复
- 有关fortran的一次而问题，希望大家能帮帮忙，谢谢
已经有4人回复
- 写了一个fortran90的小程序，编译通不过，请大侠帮忙
已经有59人回复
- 【求助】FORTRAN写文件时每行开头都多了一个空格？
已经有6人回复
- 【转帖】intel Fortran编译器的一个“危险”优化
已经有9人回复
泡馍
金虫 (初入文坛)
- 应助: 1 (幼儿园)
- 金币: 1487.4
- 红花: 1
- 帖子: 46
- 在线: 312.4小时
- 虫号: 2388812
- 注册: 2013-03-30
- 性别: GG
- 专业: 凝聚态物性 II ：电子结构
2楼2013-04-05 19:01:53
3楼2013-04-07 16:33:13