subroutine U2E(U,E,[color=FF0000]is,in[/color])
      implicit double precision (a-h,o-z)
      common /G_def/ GAMA,PI,J,JJ,dL,TT,Sf
      dimension U(0:J+1,0:2),E(0:J+1,0:2)
      
      do 40 i=[color=000000]is,in[/color]       
       uu=U(i,1)/U(i,0)
       p=(GAMA-1)*(U(i,2)
     $  -0.5*U(i,1)*U(i,1)/U(i,0))
       E(i,0)=U(i,1)
       E(i,1)=U(i,0)*uu*uu+p
       E(i,2)=(U(i,2)+p)*uu
40    continue
      end


还有个问题：
这是中间一个子程序，中间的变量is,in从没有定义过，也没有在默认的impicit中定义包含，为什么？

文本数据转变成图像数据一般用画图工具, 建议不要用fortran画图了. origin, matlab, 等等~

is,in是用了默认变量类型分类. implicit double precision (a-h,o-z) 这个是声明默认的一部分. U2E 里面没有一个变量有类型定义, 有的只是属性声明而已.
估计这个是老程序, 现在写的程序不要这么写了, 默认属性很容易踩屎的. implicit none 才是正路.

姚明退役“钱途”依然光明 9年收入超过20亿元 
2011年07月10日 08:52:42 　来源： 京华时报 【字号 大小】【收藏】【打印】【关闭】 

 

 


    从2002年征战NBA到2010年，结合每年福布斯给出的统计数据，姚明9年累计收入已经超过20亿元人民币。未来无论他选择什么作为主业，这样的吸金能力仍能保障姚明继续取得成功。
    姚明从2002年开始进入NBA，而福布斯中国名人榜则从第二年开始统计上一年的数据。记者翻阅了从2003年开始的福布斯中国名人榜，2003福布斯中国名人榜数据显示，NBA状元姚明以1.2亿元排名第二，仅次于李连杰的1.4亿元。从2004年开始一直到2011年的福布斯中国名人榜，姚明连续8年占据收入首位，2004年1.5亿元，2005年1.5亿元，2006年1.7亿元，2007年2.6亿元，2008年3.87亿，2009年3.57亿元。随后在2010年福布斯中国名人榜，姚明的收入为2.5亿元。2010年，姚明整个赛季因伤免战，在2011年福布斯发布的数据为2.2亿元。累计相加，姚明9年的收入已经超过了20亿元人民币。
    根据《胡润百富榜》2010年统计数据，姚明的身价甚至已经达到了10亿美元。这9年来，他曾经的和现在的代言品牌包括汤臣倍健、卡夫、百事、可口可乐、锐步、耐克、中国人寿、中国联通、苹果电脑、麦当劳、瑞士名表豪雅和GARMIN等。
    由于不少代言品牌尚未到期，姚明即便退役，收入也将非常丰厚。www.id885.com  www.bc558.com