微信公众号
大家感兴趣的内容
小伙伴最爱的新闻
小伙伴还关注了以下信息
小伙伴关注的焦点
Copyright (C) 2006- Inc. All Rights Reserved
孝感风信信息技术有限公司 ● 版权所有forrtl:server (170): prog…
Reaction.Design.Chemkin.P…
安装 apt-get update apt-get…
首先百度关键词 intel fortran non…
mpich2下载安装好了之后 第一步 添加环境变量…为什么我选择CentOS而不是Debian/Ubuntu
我们运行着一些全球最大的互联网的营运，因此我们对可靠性和稳定性非常重视，是我们的第一要务。为此，我们只使用Linux来支撑顾客的系统。但是，我们应该使用哪一个Linux的发行版？答案是，CentOS。 为什么呢？
作为一个庞大的系统运营商，在很长的一段时间里，我们需要在多种大型系统中找到一个可靠的，可预测的系统，我们需要从世界上最强大的软件供应商和开源项目中获得强有力的支持。对于那些最常用的系统，我们需要文档，工具和全球性资源。
正因如此，RedHat / CentOS系列发行版正是我们的选择。他们能够满足以上所有需求，而且问题相对较少、长期稳定，这使得我们能够为成千上万的运行了不同配置、服务和应用的系统提供世界级的维护。
RedHat’s Enterprise Linux (RHEL)是黄金标准的企业发行版。它每五年左右更新一次，在系统的稳定性，前瞻性和安全性上有着极大的优势。每当新的主版本发行后，比如 5.x亦或最近的6.x，所有版本和代码都将保留不变，只有安全问题或是主要的bug，例如后门，端口之类的问题，会通过发布新的子版本来修复。
CentOS是RHEL发行版对应的开源版本，通常在RedHat的发布后就会很快发行。我们使用CentOS的原因在于RHEL发行版的标准支持服务费用非常高，大约每台服务器800美元左右，对于我们很多拥有数十台甚至上百台服务器的用户来说，这是必须要控制的成本。
RHEL/CentOS系统有两个潜在的问题。
首先，一旦确定了主版本，,除了安全问题和严重故障会被修复以外，其他内容将不会做任何改变。这虽然对稳定性有好处，但是对许多服务不利。比如MySQL和PHP服务，它们在这五年的CentOS/RHEL主版本发布周期中会进行繁重的开发和大量的修改。例如，MySQL5.0 是当前RHEL/CentOS主版本所默认使用的版本，但是当前MySQL已经更新到5.1和5.5版本了。
幸运的是，这个问题被Yum软件包管理器轻易地解决了。如此以来，那些主要的软件，例如当前RHEL/CentOS中实际的组件，包括内核和所有工具等仍然来自发行版， 但是那些附加的软件，例如Nginx，Apache，PHP，Java和MySQL等等来自更新的软件源例如Fedora； 或者直接从开发商获取更新的版本例如MySQL。 在我们这里，我们有自己专用的安装镜像来全自动的处理所有这些事情。
其次，CentOS的发行会滞后于RedHat的发行，包括关键的补丁和修复。这在RHEL 6.x的发行周期中尤为显著。但是根据我们的经验，这没什么好担心的，对我们来说永远不会成为问题。
很多人询问我们为什么不用基于Debian的系统，例如Debian或者Ubuntu服务器。如果在别无选择的情况下，我们的确会支持这个建议，但是根据我们的经验来看，这些系统并不如RHEL/CentOS来的稳定和可靠。
我们认为，这在某种程度上是由于他们过快的发展和各个版本、组合之间较少的测试且不成熟所导致的。然而尽管他们非常流行，但是主要的服务商和项目都仍然首选RHEL/CentOS系统，因为这样他们就可以为企业顾客提供服务，（对Oracle和MySQL更是如此）。除此之外，基于Debian的系统有许多内核和稳定性问题，尤其是在我们的云计算服务中。
对我们而言，唯一使用Debian/Ubuntu的原因是：
“它们能够为一个系统提供必要的特殊服务时，尤其是当一些驱动程序或者一些IO 子系统需要一种新的内核的时候”。例如，ext4 文件系统或在最近的内核中日志的改变等；现在，所有这一切都包含在了RHEL/CentOS6.x中。
当然，多数Linux开发者都使用的是Ubuntu的桌面版，而且可以理解的是，他们更倾向在开发生产时使用相同的系统，并且还能使用很多有趣的工具。但总体上来说，我们依然认为RHEL/CentOS是一个更优越的部署平台，并且已经有十多个客户成功地转向使用CentOS 作为生产环境并且没有任何问题，但这仍然是艰巨的任务。
总的来说，你将更乐于看到一个良好管理的CentOS 系统。我们有成千上万台服务器使用CentOS平台，而每年平均只有一台服务器崩溃。我们也很难想象它竟如此罕见，所以，挑一个优秀、迅捷、可靠的平台吧！
第一时间获取面向IT决策者的独家深度资讯，敬请关注IT经理网微信号：ctociocom
&&&除非注明，本站文章均为原创或编译，转载请务必注明出处并保留： 文章来自
相关文章：
云络网络科技创始人兼首席技术官，在全球多个行业拥有超过20年的技术管理经验。曾任土豆网、New Vine Logistics、Advanced Management Systems首席技术官职务。曾在世界卫生组织和多家财富500强企业的全球性项目中担任顾问职务。著有《Managing White-Collar Job Migration to Asia》一书，也是多项专利的发明者。
硬件成本只要200美元，距离达到1米（现实环境30cm内具有可用性），设备小巧可放入口袋
对于大多数的企业技术和业务决策者来说，制定符合自身需求的物联网技术和方案开发展战略非常困难
企业的安全运营中心到底应该具备哪些核心职能，新时期CISO的技能、职责领导力需要覆盖那些领域呢？
本论文介绍了IOActive在多个类型机器人中发现的网络安全问题，并对当前机器人网络安全技术现状、面临的威胁进行了分类介绍
本白皮书从硬件基础设施、服务部署、用户身份、存储服务、网络通讯和运营安全五个层面为我们系统介绍了Google基础设施的安全设计架构和方法
用一百万欧元，一个企业就可以拥有含一万六千个 x86 核的私有云架构基础，并且对成本，外来情报威胁拥有绝对控制权，这是任何国家的公有云供应商都无法提供的。
要使物联网真正成为主流，企业就需要遵循清晰的检查清单来确保其物联网计划的安全。
Ruckus Wireless今天宣布推出全面定制解决方案Ruckus服务提供商云，帮助服务提供商向其客户提供高价值托管服务。
针对不同类型的设备和使用场景，教育机构如何能够确保学生安全进入Wi-Fi网络并获得最佳质量的连接呢？
2017首席信息官峰会广州站以广州为中心，将聚焦华南区各企业CIO，共同探讨一带一路政策下企业信息化建设如何助力业务拓展，从云计算、大数据、安全等方面推动构建一个高效互联的数字环境，实现信息流的互联互通，驱动企业转型升级。
华昂商务咨询
上海市普陀区新村路423号1号楼
第五届全球云计算大会暨国际网络通信展览会· 中国站将汇集6000名云生态链内企业CIO、CTO、技术开发者和企业级终端用户，交流云计算在金融、电商、制造业、快消、零售、教育等应用。
会议地点上海世博展览馆上海浦东新区国展路1099号
讨论时下汽车行业发展动向，如何借助信息化技术实行全产业链的优化升级，届时更有整车、零部件、经销商等全产业链CIO及汽车行业信息化解决方案供应商对信息化应用进行交流和分享，重点研讨大数据、物联网、云计算、移动应用等最新信息技术在汽车产业的应用发展，推动汽车行业转型升级。
会议地点上海
&Copyright (C) 2011,ctocio.cc - IT经理网小木虫 --- 600万学术达人喜爱的学术科研平台
热门搜索：
&&查看话题
弱问一个Fortran程序的结果
各位大侠，用了一个online complier运行的结果是 END 1 Error: END DO statement expected at (1)
请问能帮我改错一下吗，谢谢啦，本人完全Fortran白痴
SUBROUTINE TUNL(ALPH1, ALPH2, U, G)
DIMENSION X(6) ,W(6)
DATA X/-0.9324695, -0.6612094, -0..2386192 , 0..9324695/
DATA W/0......1713245/
DATA PI, PI2, PISQ/3...8696044/
UPI2=U/PI2
C= 0.125*PI*U* (1/SQRT(ALPH1) + 1/SQRT(ALPH2))**2
V1=UPI2*ALPH1
V2 = UPI2*ALPH2
D=4*ALPHl*ALPH2-PISQ
IF(D.LT.0) GOTO 14
DF=COSH(SQRT(D))
DF=COS(SQRT(-D))
IF (V2.GE. V1) EZ=-Vl
IF (Vl.GT. V2) EZ=-V2
EB=AMIN1 (C* (ALOG(2.0* (1 +DF) /0.014)/PI2 )**2-0.5*(V1 +V2) ,3.2 )
EM=0.5*(EB-EZ)
EP=0.5*(EB+EZ)
DO 20 N=1, 6
E=EM * X (N) +EP
Al=PI*SQRT((E+V1) /C)
A2=PI*SQRT((E+V2) /C)
FP=COSH(A1+A2 )
FM=COSH(A1-A2)
G=G+W(N) *EXP(-E) *(FP-FM) / (FP+DF)
G=EM*G+ EXP(-EB)
谢谢，金币送上，再次感谢！！
是不是前面加一个行号就好了？大侠再帮我看看这样行吗？
我用online compliler, /compile_fortran_online.php
返回的是$gfortran -std=f95 main.f95 -o demo 2&&1/usr/lib/gcc/x86_64-redhat-linux/4.4.7/libgfortranbegin.a(fmain.o): In function `main':
(.text+0x26): undefined reference to `MAIN__'
collect2: ld returned 1 exit status
这是啥意思？谢谢
& & SUBROUTINE TUNL(ALPH1, ALPH2, U, G)
& & DIMENSION X(6) ,W(6)
& & DATA X/-0.9324695, -0.6612094, -0..2386192 , 0..9324695/
& & DATA W/0......1713245/
& & DATA PI, PI2, PISQ/3...8696044/
& & UPI2=U/PI2
& & C= 0.125*PI*U* (1/SQRT(ALPH1) + 1/SQRT(ALPH2))**2
& & V1=UPI2*ALPH1
& & V2 = UPI2*ALPH2
& & D=4*ALPHl*ALPH2-PISQ
& & IF(D.LT.0) GOTO 14
& & DF=COSH(SQRT(D))
& & GOTO 15
14&&DF=COS(SQRT(-D))
15&&IF (V2.GE. V1) EZ=-Vl
& & IF (Vl.GT. V2) EZ=-V2
& & EB=AMIN1 (C* (ALOG(2.0* (1 +DF) /0.014)/PI2 )**2-0.5*(V1 +V2) ,3.2 )
& & EM=0.5*(EB-EZ)
& & EP=0.5*(EB+EZ)
& & DO 27 N=1, 6
& & E=EM * X (N) +EP
& & Al=PI*SQRT((E+V1) /C)
& & A2=PI*SQRT((E+V2) /C)
& & FP=COSH(A1+A2 )
& & FM=COSH(A1-A2)
27&&G=G+W(N) *EXP(-E) *(FP-FM) / (FP+DF)
& & G=EM*G+ EXP(-EB)
& & RETURN
你这程序中有很多问题，主要是 把 1 和 小写的L （l）混起来用
比如 A1 和Al 混用， V1和 Vl 混用。 1 和 l 很难目测区分，办法是使用 implicit none. 我把程序重新写了一下。 语句标号最好用 14 continue 这样的。
SUBROUTINE TUNL(ALPH1, ALPH2, U, G)
&&implicit none
&&real*4, DIMENSION(6) :: X ,W
&&real*4 :: ALPH1,ALPH2,U,G,V1,V2,C,D,DF,PI, PI2, PISQ,UPI2,EB,EM,EP,A1,A2,FP,FM,EZ,E
&&integer :: n
&&DATA X/-0.9324695, -0.6612094, -0..2386192 , 0..9324695/
&&DATA W/0......1713245/
&&DATA PI, PI2, PISQ/3...8696044/
&&UPI2=U/PI2
&&C= 0.125*PI*U* (1/SQRT(ALPH1) + 1/SQRT(ALPH2))**2
&&V1=UPI2*ALPH1
&&V2 = UPI2*ALPH2
&&D=4*ALPH1*ALPH2-PISQ
&&IF(D.LT.0) GOTO 14
&&DF=COSH(SQRT(D))
14 continue
&&DF=COS(SQRT(-D))
15 continue
&&IF (V2.GE. V1) EZ=-V1
&&IF (V1.GT. V2) EZ=-V2
&&EB=AMIN1 (C* (ALOG(2.0* (1 +DF) /0.014)/PI2 )**2-0.5*(V1 +V2) ,3.2 )
&&EM=0.5*(EB-EZ)
&&EP=0.5*(EB+EZ)
&&DO&&N=1, 6
& &&&E=EM * X (N) +EP
& &&&A1=PI*SQRT((E+V1) /C)
& &&&A2=PI*SQRT((E+V2) /C)
& &&&FP=COSH(A1+A2 )
& &&&FM=COSH(A1-A2)
& &&&G=G+W(N) *EXP(-E) *(FP-FM) / (FP+DF)
&&G=EM*G+ EXP(-EB)
END SUBROUTINE TUNL
你再试试。这只是语法正确。不意味着程序正确
谢谢您花的时间，我用这个网站编译还是不行
这是报错的信息，再麻烦您看看。。。
real*4, DIMENSION(6) :: X ,W
Error: Nonstandard type declaration REAL*4 at (1)
main.f95:4.8:
real*4 :: ALPH1,ALPH2,U,G,V1,V2,C,D,DF,PI, PI2, PISQ,UPI2,EB,EM,EP,A1,A2,FP,F
Error: Nonstandard type declaration REAL*4 at (1)
main.f95:6.8:
DATA X/-0.9324695, -0.6612094, -0..2386192 , 0..9324695/
Error: Extension: Symbol 'x' is used before it is typed at (1)
main.f95:7.8:
DATA W/0......1713245/
Error: Extension: Symbol 'w' is used before it is typed at (1)
main.f95:8.9:
DATA PI, PI2, PISQ/3...8696044/
Error: Extension: Symbol 'pi' is used before it is typed at (1)
main.f95:1.21:
SUBROUTINE TUNL(ALPH1, ALPH2, U, G)
Error: Symbol 'alph1' at (1) has no IMPLICIT type
main.f95:1.28:
SUBROUTINE TUNL(ALPH1, ALPH2, U, G)
Error: Symbol 'alph2' at (1) has no IMPLICIT type
main.f95:1.31:
SUBROUTINE TUNL(ALPH1, ALPH2, U, G)
Error: Symbol 'u' at (1) has no IMPLICIT type
main.f95:1.34:
SUBROUTINE TUNL(ALPH1, ALPH2, U, G)
Error: Symbol 'g' at (1) has no IMPLICIT type
main.f95:29.7:
A1=PI*SQRT((E+V1) /C)
Error: Symbol 'a1' at (1) has no IMPLICIT type
main.f95:30.7:
A2=PI*SQRT((E+V2) /C)
Error: Symbol 'a2' at (1) has no IMPLICIT type
main.f95:10.3:
C= 0.125*PI*U* (1/SQRT(ALPH1) + 1/SQRT(ALPH2))**2
Error: Symbol 'c' at (1) has no IMPLICIT type
main.f95:14.3:
D=4*ALPH1*ALPH2-PISQ
Error: Symbol 'd' at (1) has no IMPLICIT type
main.f95:16.4:
DF=COSH(SQRT(D))
Error: Symbol 'df' at (1) has no IMPLICIT type
main.f95:28.6:
E=EM * X (N) +EP
Error: Symbol 'e' at (1) has no IMPLICIT type
main.f95:23.4:
EB=AMIN1 (C* (ALOG(2.0* (1 +DF) /0.014)/PI2 )**2-0.5*(V1 +V2) ,3.2 )
Error: Symbol 'eb' at (1) has no IMPLICIT type
main.f95:24.4:
EM=0.5*(EB-EZ)
Error: Symbol 'em' at (1) has no IMPLICIT type
main.f95:25.4:
EP=0.5*(EB+EZ)
Error: Symbol 'ep' at (1) has no IMPLICIT type
main.f95:21.19:
IF (V2.GE. V1) EZ=-V1
Error: Symbol 'ez' at (1) has no IMPLICIT type
main.f95:32.7:
FM=COSH(A1-A2)
Error: Symbol 'fm' at (1) has no IMPLICIT type
main.f95:31.7:
FP=COSH(A1+A2 )
Error: Symbol 'fp' at (1) has no IMPLICIT type
main.f95:10.13:
C= 0.125*PI*U* (1/SQRT(ALPH1) + 1/SQRT(ALPH2))**2
Error: Symbol 'pi' at (1) has no IMPLICIT type
main.f95:9.12:
UPI2=U/PI2
Error: Symbol 'pi2' at (1) has no IMPLICIT type
main.f95:14.22:
D=4*ALPH1*ALPH2-PISQ
Error: Symbol 'pisq' at (1) has no IMPLICIT type
main.f95:9.6:
UPI2=U/PI2
Error: Symbol 'upi2' at (1) has no IMPLICIT type
Fatal Error: Error count reached limit of 25.
你这程序中有很多问题，主要是 把 1 和 小写的L （l）混起来用
比如 A1 和Al 混用， V1和 Vl 混用。 1 和 l 很难目测区分，办法是使用 implicit none. 我把程序重新写了一下。 语句标号最好用 14 continue 这样的。
你好，我又把所有的1和l都检查了一次，保证都是用不知道为什么还是不行。。。。。
你这是什么compiler，gfortan？ 试着用 real 替代 real*4，或 写成 real(kind=4)
这是我用的online Fortran complier /compile_fortran_online.php
Compile and Execute FORTRAN-95 Online (GNU GCC version 4.4.3)
这是运行的结果是
(.text+0x26): undefined reference to `MAIN__'
collect2: ld returned 1 exit status
和之前的运行的报错结果一样
谢谢您了！
这个code是需要输入几个数值，然后code会计算出结果，我不知道在哪里输入数值，谢谢
学术必备与600万学术达人在线互动！
扫描下载送金币