module data_module 
real:: a=2
real:: b=3

contains 
function add()result(add_result)
  real::add_result
  add_result=a+b 
end function add 

end module data_module

program rose
use data_module
implicit none 

print*, add()

end

还真是个小弟，写程序还没入门哪，应该一步一步来，第一个程序最好还是 Hello, world! ，还应该细看书多练习

谢国家
谢过哥

hfut……
合工大……

波克城市推广员帐号填写 yang1089  将获得8个新手大礼包（内含元宝+星币）
　　　　 
　　　　 波克城市游戏大厅下载 ，免费玩游戏，赢大奖 
　　     

         特点：《《《《礼品最好拿，玩玩游戏奖品就可领到家。真正公平。完美放作弊。种类齐全。乐趣多》》》》》
　　　　 

         波克城市游戏简介：波克城市游戏平台是一款免费网络游戏。玩游戏免费拿奖品，波克城市游戏有《斗地主》《麻将》《十三支》《斗牛》《梭哈》《诈金花》。波克城市玩游戏做任务赚取元宝换奖品。波克城市游戏好玩还有防作弊功能，记牌器，还有方言催牌功能。波克城市游戏人物卡通好看美观形象。 
　　　　 

         波克城市游戏授权方式：波克城市免费下载 
　　　　 

         波克城市游戏软件大小：波克城市大厅版/7.07M，波克城市完整版54.1M（建议下载大厅版） 
　　　　 

         波克城市游戏更新时间：2009-9-19 
　　　　 

         波克城市游戏奖品介绍：移动充值卡，手机，笔记本电脑，数码相机，MP3，电磁炉等多样商品。
　　　　 

         波克城市游戏推广员帐号： yang1089  输入此推广员账号注册，在游戏中可以获得8个新手大礼包（内含元宝+星币） 
　　　

1.申请账号时输入此推广员帐号,申请成功即可获得礼品及各种奖品.(五千星币及二十金元宝) 
  
2.在推荐人处输入推广员帐号:yang1089

波克城市官方网站http://www.gc73.com/register.do?s=yang1089

hand