应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

CyRhmU.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 计算模拟 » 关于fortran的一个小问题
51/1返回列表
查看: 666  |  回复: 2
只看楼主@他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

云里看雾

银虫 (初入文坛)

[求助] 关于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！
1楼2013-04-02 14:14:41
已阅   回复此楼   关注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的回帖
查看全部 3 个回答

泡馍

金虫 (初入文坛)

【答案】应助回帖

★ ★
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的回帖
查看全部 3 个回答
普通表情 龙 兔 虎 猫
信息提示
关闭
请填处理意见
关闭