24小时热门版块排行榜    

查看: 694  |  回复: 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
回复此楼

» 猜你喜欢

» 本主题相关商家推荐: (我也要在这里推广)

» 本主题相关价值贴推荐,对您同样有帮助:

Just do it!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

泡馍

金虫 (初入文坛)

【答案】应助回帖

★ ★
csgt0: 金币+1, 欢迎交流 2013-04-07 15:03:51
云里看雾: 金币+1, 有帮助 2013-04-07 16:30:10
第3行重复定义了啊。
你把第2行注释掉看看行不行。
2楼2013-04-05 19:01:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

云里看雾

银虫 (初入文坛)

引用回帖:
2楼: Originally posted by 泡馍 at 2013-04-05 19:01:53
第3行重复定义了啊。
你把第2行注释掉看看行不行。

之前试了很多次,也这样改过,就是不行,后来进入到另外一个QUICK win程序才解决掉,太感谢了~,不过网上那个都是这样写的,刚学,看不太懂哪里出问题。真谢谢你。
Just do it!
3楼2013-04-07 16:33:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 云里看雾 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 面上模板改不了页边距吧? +5 ieewxg 2026-02-25 6/300 2026-03-01 00:10 by addressing
[考研] 307求调剂 +4 73372112 2026-02-28 6/300 2026-03-01 00:04 by ll247
[考研] 304求调剂 +3 52hz~~ 2026-02-28 5/250 2026-03-01 00:00 by 52hz~~
[考研] 化工专硕348,一志愿985求调剂 +4 弗格个 2026-02-28 6/300 2026-02-28 22:00 by wang_dand
[考研] 292求调剂 +3 yhk_819 2026-02-28 3/150 2026-02-28 21:57 by gaoxiaoniuma
[考研] 290求调剂 +5 材料专硕调剂; 2026-02-28 6/300 2026-02-28 21:40 by gaoxiaoniuma
[考研] 295求调剂 +5 19171856320 2026-02-28 5/250 2026-02-28 21:39 by gaoxiaoniuma
[考研] 材料学调剂 +5 提神豆沙包 2026-02-28 5/250 2026-02-28 21:34 by gaoxiaoniuma
[考研] 264求调剂 +3 巴拉巴拉根556 2026-02-28 3/150 2026-02-28 21:31 by gaoxiaoniuma
[考研] 材料类求调剂 +6 wana_kiko 2026-02-28 6/300 2026-02-28 21:20 by gaoxiaoniuma
[考研] 求调剂 +4 repeatt?t 2026-02-28 4/200 2026-02-28 21:16 by gaoxiaoniuma
[考研] 高分子化学与物理调剂 +4 好好好1233 2026-02-28 7/350 2026-02-28 20:42 by 好好好1233
[考研] 298求调剂 +8 人间唯你是清欢 2026-02-28 11/550 2026-02-28 20:26 by L135790
[考研] 276求调剂 +3 路lyh123 2026-02-28 4/200 2026-02-28 19:45 by 路lyh123
[考研] 0856材料求调剂 +10 hyf hyf hyf 2026-02-28 11/550 2026-02-28 18:50 by 无际的草原
[考研] 285求调剂 +5 满头大汗的学生 2026-02-28 5/250 2026-02-28 18:10 by 材料专硕调剂;
[高分子] 求环氧树脂研发1名 +3 孙xc 2026-02-25 11/550 2026-02-28 16:57 by ichall
[考研] 0856调剂 +3 刘梦微 2026-02-28 3/150 2026-02-28 13:22 by houyaoxu
[硕博家园] 博士自荐 +6 科研狗111 2026-02-26 9/450 2026-02-28 12:32 by seaskyy
[考研] 272求调剂 +3 田智友 2026-02-28 3/150 2026-02-28 12:31 by 王加浩to
信息提示
请填处理意见