24小时热门版块排行榜    

查看: 234  |  回复: 1

阿萨德A1

铁杆木虫 (著名写手)

[求助] 请问这是程序啊?

请问这是程序啊?在书上看的一段程序的开头,没注明什么语言?请教下,谢谢了
REAL*4 PN(1002)
COMPLEX*8 CM2,CM1,A34,A24,A22,A32,A12,A14,QN,SN,CN,PIN,
*      B1,B2,B3,SIGMA,X(2),CSBES1,DIFCS1
PY=3.1415926;
WRITE(*,'(A)')'==R=='
WRITE(*,'(A\)')'    RADIUS------------------------------>'
R=0.001;
WRITE(*,'(A\)')'    DENSITY------------------------------->'
G1=2700.0;
WRITE(*,'(A\)')'    VELOCITY C1------------------------------>'
C1=6420.0;
WRITE(*,'(A\)')'    VELOCITY C2------------------------------->'
C2=2700.0;
WRITE(*,'(A\)')'   
GS1=0.019/8.686;
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

中国特色

【答案】应助回帖

★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
阿萨德A1: 金币+5, 有帮助 2013-12-10 10:23:15
jjdg: 金币+1, 感谢参与 2013-12-13 01:55:43
fortran 语言,搞数值计算常用
我同意叔本华的观点,人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活,逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦
2楼2013-12-05 14:29:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 阿萨德A1 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 321求调剂 +5 何润采123 2026-03-18 5/250 2026-03-19 10:50 by Linda Hu
[考研] 288求调剂 +3 于海海海海 2026-03-19 3/150 2026-03-19 10:38 by 有只狸奴
[考研] 281求调剂(0805) +7 烟汐忆海 2026-03-16 17/850 2026-03-19 09:55 by 30660438
[考研] 0817调剂 +3 没有答案_ 2026-03-14 3/150 2026-03-19 09:51 by Xu de nuo
[考研] 本科郑州大学物理学院,一志愿华科070200学硕,346求调剂 +4 我不是一根葱 2026-03-18 4/200 2026-03-19 09:11 by 浮云166
[考研] 能源材料化学课题组招收硕士研究生8-10名 +4 脱颖而出 2026-03-16 11/550 2026-03-19 08:11 by 脱颖而出
[考研] 0703化学 305求调剂 +4 FY_yy 2026-03-14 4/200 2026-03-19 05:54 by anny19840123
[考研] 【同济软件】软件(085405)考研求调剂 +3 2026eternal 2026-03-18 3/150 2026-03-18 19:09 by 搏击518
[考研] 26调剂/材料/英一数二/总分289/已过A区线 +7 步川酷紫123 2026-03-13 7/350 2026-03-18 17:12 by 尽舜尧1
[考研] 268求调剂 +6 简单点0 2026-03-17 6/300 2026-03-18 09:04 by 无际的草原
[考研] 277调剂 +5 自由煎饼果子 2026-03-16 6/300 2026-03-17 19:26 by 李leezz
[考研] 301求调剂 +4 A_JiXing 2026-03-16 4/200 2026-03-17 17:32 by ruiyingmiao
[考博] 26申博 +4 八6八68 2026-03-16 4/200 2026-03-17 13:00 by 轻松不少随
[考研] 11408 一志愿西电,277分求调剂 +3 zhouzhen654 2026-03-16 3/150 2026-03-17 07:03 by laoshidan
[基金申请] 现在如何回避去年的某一个专家,不知道名字 +3 zk200107 2026-03-12 6/300 2026-03-14 17:13 by zk200107
[考研] 求材料调剂 085600英一数二总分302 前三科235 精通机器学习 一志愿哈工大 +4 林yaxin 2026-03-12 4/200 2026-03-13 22:04 by 星空星月
[考研] 26调剂/材料科学与工程/总分295/求收留 +9 2026调剂侠 2026-03-12 9/450 2026-03-13 20:46 by 18595523086
[考研] 工科材料085601 279求调剂 +8 困于星晨 2026-03-12 10/500 2026-03-13 15:42 by ms629
[考研] 274求调剂 +3 S.H1 2026-03-12 3/150 2026-03-13 15:15 by JourneyLucky
[考研] 一志愿山大07化学 332分 四六级已过 本科山东双非 求调剂! +3 不想理你 2026-03-12 3/150 2026-03-13 14:18 by JourneyLucky
信息提示
请填处理意见