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. Android开发之XUtils框架使用和报错处理

    一.XUtils  lib的的添加: 1.点击+,选择第一个Library dependency 2.输入XUtils 按enter键,搜索: 3.然后就是选择XUtils,选择哪个版本就看个人了,接 ...

  2. python基础知识---数据结构之间的转换

  3. static_cast、dynamic_cast、reinterpret_cast、const_cast以及C强制类型转换的区别

    static_cast 1. 基础类型之间互转.如:float转成int.int转成unsigned int等 2. 指针与void*之间互转.如:float*转成void*.CBase*转成void ...

  4. Allegro学习(http://www.asmyword.com/forum.php?mod=forumdisplay&fid=86)

    一.资源 1.网站推荐www.eda365.com,里面有很多有用的东西:当然还有官方代理商的网站http://www.pspice.com.cn/: 2.视频教程:有库源电气的视频教程,还有在www ...

  5. Jade之Filters

    Filters jade允许将其他语言嵌套到jade语言之中. 支持的有:coffee-script,:babel,:uglify-js, :less,:markdown-it. jade: :mar ...

  6. 《微信小程序七日谈》- 第四天:页面路径最多五层?导航可以这么玩

    <微信小程序七日谈>系列文章: 第一天:人生若只如初见: 第二天:你可能要抛弃原来的响应式开发思维: 第三天:玩转Page组件的生命周期: 第四天:页面路径最多五层?导航可以这么玩 微信小 ...

  7. Orthomcl的详细使用

    参考了众多文章并结合实际操作后的感想. 参考:http://www.plob.org/2013/09/18/6174.html 参考:http://www.plob.org/2012/06/12/22 ...

  8. Ackerman函数

    Ackerman函数在许多讲解递归的书中都提到,但似乎又对解题没有太大的意义,暂时不知道了.不过这个东西,是一个数学知识点,暂时收藏于此吧. 查了一下维基百科和百度百科,表面上两个定义不一样,仔细推敲 ...

  9. 数字根(digital root)

    来源:LeetCode 258  Add Dights Question:Given a non-negative integer  num , repeatedly add all its digi ...

  10. linq 在查询表达式中处理 null 值

    此示例显示如何在源集合中处理可能的 null 值. IEnumerable<T> 等对象集合可包含值为 null 的元素. 如果源集合为 null 或包含值为 null 的元素,并且查询不 ...