Fortran语言 : Fortran言语读写bin(unformatted)型文件的code ! Fortran write data in bin mode: open ( unit = 10 , file = 'restart' , form = 'unformatted' , status = 'unknown' ) write ( 10 ) nx , ny , cfl , gamma , tcur , cpu write ( 10 ) ((( uc ( i , j , m , 0 ), i = 1 , nx ), j = 1 , ny ), m = 1 , 4 ) close ( 10 ) ! In Fortran, every write code, it will first write the bytes that will save, then is the data, ! and at the end also is the bytes saved. ! bytewrite, ,bytewrite ! so, if nx,ny is integer, cfl,gamma,tcur,cpu is double , then total bytes will be 2*4+4*8=40, ! then bytewrite will be 40. !Also, in fortran, the file can not be read as: open ( unit = 10 , file = 'restart' , form = 'unformatted' , status = 'unknown' ) read ( 10 ) nx , ny , cfl , gamma , tcur , cpu read ( 10 ) (( uc ( i , j , 1 , 0 ), i = 1 , nx ), j = 1 , ny ) read ( 10 ) (( uc ( i , j , 2 , 0 ), i = 1 , nx ), j = 1 , ny ) ! here will be an error will running close ( 10 ) ! correct read code open ( unit = 10 , file = 'restart' , form = 'unformatted' , status = 'unknown' ) read ( 10 ) nx , ny , cfl , gamma , tcur , cpu read ( 10 ) ((( uc ( i , j , 1 , 0 ), i = 1 , nx ), j = 1 , ny ), m = 1 , 4 ) close ( 10 )
美国的醒世危言 哥伦比亚大学教授 Robert C. Lieberman ( Vice Dean for Academic Affairs, School of International and Public Affairs Professor Columbia University ) 最近 在 《 Foreign Affairs 》发表一篇书评,介绍 : Jacob S. Hacker and Paul Pierson 去年年代的新书 《 Winner-Take-All Politics: How Washington Made the Rich Richer—And Turned Its Back on the Middle Class 》( Hacker is the Stanley B. Resor Professor of Political Science at Yale University. He is the author of The Great Risk Shift: The New Economic Insecurity and the Decline of the American Dream , The Divided Welfare State , and, with Paul Pierson, Off Center: The Republican Revolution and the Erosion of American Democracy . A frequent media commentator who often testifies before Congress, he has appeared recently on Charlie Rose , the PBS NewsHour , MSNBC, and CNN. Pierson is the John Gross Professor of Political Science at the University of California at Berkeley. He is the coauthor of Off Center (with Jacob S. Hacker) and the author of Politics in Time and Dismantling the Welfare State . His commentary has appeared in the New York Times Magazine , the Washington Post , and The New Republic . ) Hacker Pierson 的新书说明:自 70 年代起,美国政治背离了罗斯福总统的社会政策方向,和强生总统的社会公正立法, 40 年来一步一步的走向 赢家独享 的政治 Winner-Take-All Politics 。 这样的政治环境造成了领头的全球 金融钜子 ,尽管他们多次造成了全球性的 金融消融 ( financial meltdown ),他们自己却越来越富了。 如今美国顶层 1% 豪富占有的财富,由 60 年代的 8% ,急升到今天的 20% 。书中说, 这样的贫富差距 超过了任何工业化民主国家。贫富差距的程度,甚至于比同加纳, 尼加拉瓜 ,和土耳其斯坦 (Ghana, Nicaragua, andTurkmenistan) 的情况 书中说,贫富差距的加剧,固然有 情势 造成的部分。更重要的,工艺的进步,特别是资讯革命,转型了经济,使工人的生产力大量的提升;却同时促生了 全球市场 ,全球化淘空了美国,曾经是独霸世界,的制造业,美国的经济生活从此转移到服务业上。 然而,服务业却更偏好精英分子,在某些服务业,如金融界,医药界,资讯界,给受过高深教育的专才于优厚的高薪。一般的服务业中,如零售业,悠闲业,薪水十分菲薄,工作全无保障。 但是, 情势 并非一切,作者的看法, 政府 才是主要的原因。美国国会一再的为高收入者减税;鬆弛对资金收益的处理,放宽遗产税的征收。结果是,大家说的 “ 劫贫济富 ” 。 更糟糕的原因是在,政府对金融作业的监管这方面。比如, 1999 年,国会撤回 Glass-Steagall 法案 ,这一行动撤走了,防止银行界和金融界勾搭的防火墙。促成了一群背経离道的金融包装,引进了经济衰退。政府对金融监管失职的另一个例子是: 没有及时修订会计法例 。 公司的高级经理可以拿 “ 天价 ” 的薪资,还可以拿优厚的空股作奖金。结果是公司的高级经营者, 只关注公司年底的收益,完全不在意公司长期的收成 。 美国的会计制度四十年来没有改动,说明制度必需随时代演进。 ( 按:演进是 不进则退 。王安石说 “ 祖宗之法不足守 ” ,诚信也。现在可以说成 “ 西方之法不足守 ” 也。 ) 作者分析政府失察失职的原因,也就是上述 时代演进造成的了变迁( drift )。他们指出 美国政治基础于多数主义的民主 。然而多数主义并非万全的。随着时代的变迁,多数主义受到有心人(金主们)的操控,就失去它的 “ 初衷了。(这些多不是新闻,这强调了我 “ 民主不是先决条件 ” 的主张。 大家看附件 Lieberman 的原文吧。不尽之处,以后再补充。)
查询专业名称: Atmospheric Sciences and Meteorology, General大气科学和气象 科罗拉多州立大学 Colorado State University 佛罗里达州立大学 Florida State University 佐治亚理工学院 Georgia Institute of Technology 霍华德大学 Howard University 爱荷华州立大学 Iowa State University 麻省理工学院 Massachusetts Institute of Technology 迈阿密达德学院 Miami Dade College 纽约大学 New York University 北卡罗来纳州立大学 North Carolina State University,Raleigh 北伊利诺伊大学 Northern Illinois University 宾州州立大学-University Park Campus Penn State University Park 普利茅斯州立大学 Plymouth State University 普林斯顿大学 Princeton University 普渡大学西拉法叶校区 Purdue University,West Lafayette 罗格斯大学新伯朗士威校区 Rutgers University New Brunswick 圣路易斯大学 Saint Louis University 旧金山州立大学 San Francisco State University 圣何塞州立大学 San Jose State University 纽约州立大学奥尔巴尼分校 State University of New York at Albany 纽约州立大学奥斯威戈分校 State University of New York-Oswego 纽约州立大学石溪分校 Stony Brook University SUNY 德州AM大学 Texas AM University 德州理工大学 Texas Tech University 俄亥俄州立大学哥伦布分校 The Ohio State University,Columbus 阿拉巴马汉茨维尔大学 The University of Alabama in Huntsville 亚利桑那大学 The University of Arizona 堪萨斯大学 The University of Kansas 俄克拉荷马大学 The University of Oklahoma 犹他大学 The University of Utah 加州大学戴维斯分校 University of California Davis 加州大学洛杉机分校 University of California Los Angeles 德拉华大学 University of Delaware 伊利诺伊大学厄本那—香槟分校 University of Illinois Urbana Champaign 马里兰大学帕克分校 University of Maryland College Park 马萨诸塞大学卢维尔分校 University of Massachusetts at Lowell 迈阿密大学 University of Miami 密西根大学-安娜堡分校 University of Michigan Ann Arbor 密苏里大学哥伦比亚分校 University of Missouri Columbia 内布拉斯加大学林肯分校 University of Nebraska Lincoln 内华达大学里诺校区 University of Nevada Reno 北达科他大学 University of North Dakota 华盛顿大学 University of Washington 威斯康星大学麦迪逊分校 University of Wisconsin Madison 怀俄明大学 University of Wyoming 瓦尔帕莱索大学 Valparaiso University 西肯塔基大学 Western Kentucky University