Program ParamaterDefine
       Implicit None
 C     FORTRAN变量名和关键字不区分大小写。但调用外部函数的话,需要在编译选项里指定
 c     大小写等选项 因为链接器是区分大小写的
 !     关于注释:在自由格式中,只有!一种方法; 在固定格式中,除了!还可以用c或C或*,但必须写在前五个
 !     字母,即绿线的左边。
 *     *和C是必须放在第一列的,!不必,另外73列以后的内容也属于注释
       Integer I,J,K,L,M,N!整型,前面只能声明变量,不能给变量赋值,语句后面不用分号
       Double Precision Area,Length,pi,R,YMJ,ZMJ,degree,SinAddCos,A(:)!双精度实型
       DOUBLE PRECISION MyExp,y,x
       Complex D,C!复数类型,如果含表达式则用CMPLX
       Logical T,F!逻辑型,逻辑常量有“T”和“F”,“T”表示“.TRUE.”,“F”表示“.FALSE.”
       Character* name,str*!字符型,N为字符串长度,可以在变量名称后重新指定长度
 C      DIMENSION IA(:) !使用I-N规则时用DIMENSION说明数组,也可在定义变量类型同时说明数组,说明格式为:
 C      数组名(下标下界,下标上界),也可省略下标下界,此时默认为1,例:一维数组DIMENSION IA(:)  二维:A(:,:,:)

       parameter(pi=3.1415926)!参数语句,用来定义常量,在程序中应放在类型说明语句之后

       YMJ(R)=3.14159265*R*R!应该放在所有可执行语句之前和有关类型说明语句之后,是非执行语句;
       SinAddCos(degree)=SIN(degree)+COS(degree)!语句函数必须放在函数的赋值语句前,声明语句后
       N=
       Length=3.0
       D=(,-67.8E-3)为啥错误啊
       C=Cmplx(3.0*N,6.0+Length)!有表达式,得用Cmplx
       T=.TRUE.
       F=.FALSE.
       name='My name is zhubinglong!'! //是字符串连接符,/是换行
 c     语句函数的调用,并输出结果
       ZMJ=YMJ()
       print * ,ZMJ
 c     默认格式输出字符串
       Write(*,*)'I LOVE YOU!'!默认格式输出(默认输出完成后换行)
       Write(*,*) name
 c     格式化输出
       Write(*,)!
      format(/) ! 1x表示一个空格;/表示换行;
 c     循环给数组赋值,并格式化输出一维数组A
       DO  I=,,
             A(I)=I**
    CONTINUE
       WRITE(*,) (,,)
     FORMAT(1X,(A2,I2,1X,A2,F4.,3X))
 C     尝试调用语句函数并输出结果
       R=SinAddCos(pi)
       WRITE(*,*) R
 c     调用函数子程序

       WRITE(*,*) '请输入x:'
       READ(*,*) x
       y=(MyExp(x)-MyExp(-x))/2.0
       End Program ParamaterDefine
       WRITE(*,)'Sinh(',x,')=',y
      format(1x,a,f5.,a,e13.)

       !SUBROUTINE SinAddCos(degree)
       !double precision rest
       !rest=SIN(degree)+COS(degree)
       !return rest
       !END SUBROUTINE SinAddCos(degree)
       FUNCTION MyExp(x)!或者:DOUBLE PRECISION FUNCTION MyExp(x)
       DOUBLE PRECISION MyExp,t,s,x
       INTEGER n
       n=
       t=
       s=
        )
             n=n+
             t=t*x/n
             s=s+t
     continue
       MyExp=s
       End

FORTRAN77基础代码

用fortran77

1.介绍几个基本语法学习:

http://micro.ustc.edu.cn/Fortran/ZJDing/

http://blog.sina.com.cn/s/blog_8e7709e101018mqd.html

http://blog.sina.com.cn/s/blog_6e0aa6420100pu9p.html

2.具体

https://wenku.baidu.com/view/7f656ad06529647d272852cd.html

可以看出,默认是按列输入的


3.子程序

Fortran77中默认传址,而不是传值

4.子例行程序

怎么没有在子程序中声明变量???

子例行程序默认也是传址

conmmon就像int一样,可以在多行声明,也可以在单行声明


额外发现:

c#写注释搜代码:http://www.360doc.com/content/14/0218/15/8772388_353542751.shtml

http://codesnippet.research.microsoft.com/#    插件地址:https://marketplace.visualstudio.com/items?itemName=VisualStudioPlatformTeam.DeveloperAssistant

学习fortran77基础语法的更多相关文章

  1. JavaScript学习02 基础语法

    JavaScript学习02 基础语法 JavaScript中很多基础内容和Java中大体上基本一样,所以不需要再单独重复讲了,包括: 各种算术运算符.比较运算符.逻辑运算符: if else语句.s ...

  2. 实战fortran77基础语法2

    由于大量的接触fortran77,先学习fortran77吧 1.fortran不区分大小写,fortran77一般全部大写,感觉没必要,不好读,还是用大小写混合着写吧.后缀 .for 为固定格式的代 ...

  3. JavaScript学习笔记-基础语法、类型、变量

    基础语法.类型.变量   非数字值的判断方法:(因为Infinity和NaN他们不等于任何值,包括自身) 1.用x != x ,当x为NaN时才返回true; 2.用isNaN(x) ,当x为NaN或 ...

  4. less学习:基础语法总结

    一. less是什么 Less 是一门 CSS 预处理语言,它扩充了 CSS 语言,增加了诸如变量.混合(mixin).函数等功能,让 CSS 更易维护.方便制作主题.扩充. 注意1):less使用. ...

  5. Python学习①. 基础语法

    Python 简介 Python 是一种解释型,面向对象的语言.特点是语法简单,可跨平台 Python 基础语法 交互式编程 交互式编程不需要创建脚本文件,是通过 Python 解释器的交互模式进来编 ...

  6. Python学习--Python基础语法

    第一个Python程序 交互式编程 交互式编程不需要创建脚本文件,是通过 Python 解释器的交互模式进来编写代码. linux上你只需要在命令行中输入 Python 命令即可启动交互式编程,提示窗 ...

  7. php学习之基础语法

    这些语法都是在学习视频的过程中整理出来的,有些很简单的语法可能就没有整理了,只是记录了自己看来比较重要的语法内容.   1.变量使用 $ 声明 ,变量区分大小写   变量的类型:      4种标量类 ...

  8. python学习之基础语法

    一.缩进 学习 Python 与其他语言最大的区别就是,Python 的代码块不使用大括号 {} 来控制类,函数以及其他逻辑判断.python 最具特色的就是用缩进来写模块. 缩进的空白数量是可变的, ...

  9. python3.x IDLE学习及基础语法(学习head first python 第一章)

    1. 使用Tab键可以显示IDLE提供的一些建议: 2. Alt-N 移至下一个代码语句,Alt-P 移至上一个代码语句: 3. 列表类似于C++里的链表,有插入函数insert(位置,数据项),在列 ...

随机推荐

  1. 【Python网络爬虫二】使用urllib2抓去网页内容

    在Python中通过导入urllib2组件,来完成网页的抓取工作.在python3.x中被改为urllib.request. 爬取具体的过程类似于使用程序模拟IE浏览器的功能,把URL作为HTTP请求 ...

  2. STM32之位绑定

    有32个美女给你,你32个一起处理是不是有点棘手呀??没事..那就一个一个“慢慢”来..为何我这里慢慢要加双引号?因为其实处理一个比处理32个要快很多很多..好,停住这美好的遐想,来认识下<位绑 ...

  3. Kylin查询性能低下原因分析

    在处理指数行情数据时(IDXD),我遇到一个KYLIN性能查询低下的问题,非常奇怪.经过一番研究发现了其中的原因并顺利解决: 症状: select count(*) from sensitop.idx ...

  4. jQuery代码优化:事件委托篇

    推荐阅读原文:http://www.ituring.com.cn/article/467# 推荐11收藏 随着DOM结构的复杂化和Ajax等动态脚本技术的运用,事件委托自然浮出了水面.jQuery为绑 ...

  5. 《java jdk7学习笔记》之java三大平台

    Sun公司在2006年底,就将三大平台正名为java SE.java EE和java ME.也有很多人习惯用J2SE.J2EE和J2ME. 1.java SE java SE(标准版)是各应用平台的基 ...

  6. NOIp 0924 水题记

    这场貌似是gcd专场? 第一题很有意思,模拟gcd的过程即可. //0924 candy //by Cydiater //2016.9.24 #include <iostream> #in ...

  7. UVa 10622 (gcd 分解质因数) Perfect P-th Powers

    题意: 对于32位有符号整数x,将其写成x = bp的形式,求p可能的最大值. 分析: 将x分解质因数,然后求所有指数的gcd即可. 对于负数还要再处理一下,负数求得的p必须是奇数才行. #inclu ...

  8. php 利用第三方软件进行网页快照

    网页快照有很多方法,具体的大家可以百度下.这里我复制一位别人的. 这里我只说下利用第三方软件(Web2Pic_Pro)实现. (1). 下载web2pic_pro软件.下载地址 http://isha ...

  9. Ajax - 异步处理(点击变成文本框并修改)

    效果: 对应的文档结构: Test.aspx 前台代码: 引入JQuery(jquery-1.8.3.min.js). 引入自己所写的JS代码(UserJS.js). <html xmlns=& ...

  10. R--线性回归诊断(二)

    线性回归诊断--R [转载时请注明来源]:http://www.cnblogs.com/runner-ljt/ Ljt   勿忘初心  无畏未来 作为一个初学者,水平有限,欢迎交流指正. R--线性回 ...