精华内容
下载资源
问答
  • Fortran77例子程序.zip

    2019-08-02 09:21:45
    fortran语言77版本。科学计算方法是许多科研工作得以展开的前提,较为详细地介绍了科学计算与工程中的常用数值方法。全部程序在 Visual Studio 2008 集成 Intel 编译器环境下调试通过。主要内容包括矩阵分解与线性...
  • 基于Fortran语言的并行程序设计例子,可以用于课程报告参考,期末考试复习以及理解Fortran语言下的并行程序优化。
  • Cuda & Fortran简单例子

    千次阅读 2016-11-09 20:14:07
    简单的cuda&fortran小程序

    一、 简单小程序

    module simpleOps_m
    contains
     attributes(global)subroutine increment(a,b)
      implicit none
      integer,intent(inout)::a(:)
      integer,value::b
      integer::i
      i = threadIdx%x
      a(i)=a(i)+b
     end subroutine increment
    end module simpleOps_m
    
    program incrementTestGPU
      use cudafor
      use simpleOps_m
      implicit none
      integer ,parameter :: n =256
      integer :: a(n),b
      integer, device :: ad(n)
    
      a=1
      b=3
      ad=a
      call increment<<<1,n>>>(ad,b)
      a=ad
      if(any(a /=4)) then
        write(*,*) "Failed"
      else
        write(*,*)  "Passed"
      endif
    end program incrementTestGPU
    

    fortran是用module进行包装的。implicit none这句表示变量必须定义之后才可以使用,subroutine是用来包装子程序的标签,(global)这个相当于cuda的_global_。Fortran的参数申明是在里面的,不需要在increment(a,b)这个里面做申明。Increment是子程序名。Fortran默认是按地址传递,所以如果要使用按值传递的话,需要加上value这个形容词,就比如上面的integer,value::b一样。Program是程序的入口,就像main一样,incrementTestGPU这个是程序名称可以修改成其他,use cudafor这个是需要添加的因为我们会使用到cudaFortran。simpleOps_m这个模块我也也会使用到,我们会调用到里面的子程序。然后就定义各种变量,大家注意格式就好了。调用内核函数的使用,和cuda一样,只是多了一个call这个东西。
    如果我们把上面的代码存在a.f90
    编译命令:pgf90 a.f90 -Mcuda
    -Mcuda这个参数是需要添加的,它是为了告诉编译器我要使用到cudaFortran了。


    二、 调用另外一个文件的内核函数

    假如我们把内核函数写在b.f90这个文件里面

    module simpleOps_m
    contains
     attributes(global)subroutine increment(a,b)
      implicit none
      integer,intent(inout)::a(:)
      integer,value::b
      integer::i
      i = threadIdx%x
      a(i)=a(i)+b
     end subroutine increment
    end module simpleOps_m
    

    我们把主函数写在a.f90这个文件里面

    program incrementTestGPU
      use cudafor
      use simpleOps_m
      implicit none
      integer ,parameter :: n =256
      integer :: a(n),b
      integer, device :: ad(n)
    
      a=1
      b=3
      ad=a
      call increment<<<1,n>>>(ad,b)
      a=ad
      if(any(a /=4)) then
        write(*,*) "Failed"
      else
        write(*,*)  "Passed"
      endif
    end program incrementTestGPU
    

    这个时候我们就涉及到调用另外一个文件里的函数的问题,其实很简单。我们先把b.f90这个文件编译成.o的中间文件即可,只是注意需要加个参数
    编译命令:pgf90 -Mcuda=rdc -c b.f90
    这个时候就生成了b.o这个文件
    pgf90 -Mcuda b.o a.f90
    这个时候我们就可以看到可执行文件了。


    展开全文
  • 一些Fortran程序例子

    千次阅读 2016-07-19 10:11:00
    Fortran中有4个预定义的外部文件(设备):   设备号0,5,6可以通过OPEN语句连接到其他文件上(重定向),当在程序中关闭设备号是O,5,6的外部文件后,如果下次还要使用这些设备号进行输入输出操作,...

    一、解二次方程 

    C
    C   quadraticroot.f
    C
          PROGRAM QUADRATIC
       50 READ(*,10)A,B,C 
       10 FORMAT (3F3.1)
          IF (A.EQ.0.0) THEN       
           WRITE(*,*) '二次项系数不能为0!'
           STOP
          ENDIF
          D=B*B-4.0*A*C
          IF (D.LT.0.0) THEN       
           WRITE(*,*) '该二次方程没有实根!'
           STOP
          ENDIF
          X1=( B+SQRT(D))/(2.0*A)
          X2=(-B+SQRT(D))/(2.0*A)
          WRITE(*,20) X1,X2
       20 FORMAT(1X, F6.2,10X,F6.2)
          GO TO 50
          END PROGRAM QUADRATIC

       50 READ(*,10)A,B,C

    它指出从代号为*的输入设备按照标号10的格式语句所提供的数据格式读入三个数,分别送到A,B,C三个单元

     *:是通道代码,这里*代表是标准输入设备(即键盘)

    在Fortran中有4个预定义的外部文件(设备):

     

    184929_Q2pg_2245781.png

    设备号0,5,6可以通过OPEN语句连接到其他文件上(重定向),当在程序中关闭设备号是O,5,6的外部文件后,如果下次还要使用这些设备号进行输入输出操作,这些设备号将自动连接到它们各自的缺省的设备上去。所以该句也可以改为:

    50 READ(5,10)A,B,C 

    10:格式语句的行号,即

       10 FORMAT (3F3.1)这一行

     

     

    二、文件操作

    C
    C   helloworld.f
    C   gfortran helloworld.f -o helloworld
          PROGRAM HELLOWORLD
          WRITE(*,10)
       10 FORMAT('hello, world')
          OPEN(unit=16, file='results.txt')
          WRITE(16,10)
          END PROGRAM HELLOWORLD

    该代码同时向屏幕和文件results.txt写hello,world

    open(unit=16, file='results.txt')将定义设备号16为文件results.txt。(文件的设备号最好使用10以上)

    小于10可能被用作标准设备

    三、Examples

    Example 1: Formatted read, trap I/O errors, EOF, and I/O status:

           READ( 1, 2, ERR=8, END=9, IOSTAT=N ) X, Y 
           ... 
    8     WRITE( *, * ) 'I/O error # ', N, ', on 1' 
           STOP 
    9     WRITE( *, * ) 'EoF on 1' 
           RETURN 
           END

     

    Example 2: Direct, unformatted read, trap I/O errors, and I/O status:

           READ( 1, REC=3, IOSTAT=N, ERR=8 ) V 
           ... 
    4     CONTINUE 
           RETURN 
    8     WRITE( *, * ) 'I/O error # ', N, ', on 1' 
           END

     

    Example 3: List-directed read from keyboard:

           
    READ(*,*) A, V
    or
           READ*, A, V

     

    Example 4: Formatted read from an internal file:

           CHARACTER CA*16 / 'abcdefghijklmnop' /, L*8, R*8
            READ( CA, 1 ) L, R
    1     FORMAT( 2 A8 )

     

    Example 5: Read an entire array:

           DIMENSION V(5) 
           READ( 3, '(5F4.1)') V

     

    Example 6: Namelist-directed read:

    CHARACTER SAMPLE*16 
           LOGICAL NEW*4 
           REAL DELTA*4 
           NAMELIST /G/SAMPLE,NEW,DELTA 
           ... 
           READ(1, G) 
                or 
           READ(UNIT=1, NML=G) 
                or 
           READ(1, NML=G)  

     

    [例1.6] 分别求半径R=1,3,12.5时的圆周长。此源程序由二部分组成:主程序和子程序。[e_121_06.f90]

    ! f95 e_121_06.f90 -o e_121_06
    PROGRAM e_121_06
        real :: r(3)
        data r /1, 3, 12.5/
        do i=1,3
            print *, '半径=', r(i), '圆周长=', C(r(i))
        end do
    END PROGRAM e_121_06
    
    function C(radius)
        pi=acos(-1.0)
        C=2*pi*radius
        return
        end
    

    求出所有100-999之间每一位上的数字的立方和等于自身的三位数。

    !本程序能够求出所有100-999之间每一位上的数字的立方和等于自身的三位数。
          PROGRAM SUM_OF_CUBES
          INTEGER A,B,C
          DO A = 1,9
             DO B = 0,9
                 DO C = 0,9
                     IF (100*A + 10*B + C == A**3 + B**3 + C**3) &
                         PRINT "(3I1)", A,B,C
                 END DO
              END DO
           END DO
          END PROGRAM SUM_OF_CUBES

     

    转载于:https://my.oschina.net/u/2245781/blog/714324

    展开全文
  • Fortran 编程实例 No.1-使用if和case结构进行数据计算 注:本例均在VS2015中运行成功实现 题目: 代码: ! 1 program volume implicit none real r,t,b,h,s,a real ::PI=3.1415927 read*,r,t b=2*r*sin(t/...

    Fortran 编程实例 No.1-使用if和case结构进行数据计算

    注:本例均在VS2015中运行成功实现

    题目:

    代码:

    ! 1
    program volume
    implicit none
    
    real r,t,b,h,s,a
    real ::PI=3.1415927
    read*,r,t
    
    b=2*r*sin(t/2)
    h=2*r*sin(t/4)*sin(t/4)
    a=2*PI*t/360
    s=a*r**2/2
    
    print*,"弦长b=",b
    print*,"拱高h=",h
    print*,"面积s=",s
    
    end program volume
    
    
    !2.1
    program Taxes
    implicit none
    
    character*8 name
    integer n
    real i,tax,j
    read*,name,n,i
    j=i/12
    
    if(n<50) then
        if(j<3000) then
    	tax=i*0.05
    	else if(j>=3000.and.j<=8000)then
    	tax=i*0.09
    	else if(j>8000)then
    	tax=i*0.12
    	endif
    else
        if(j<3000) then
    	tax=i*0.03
    	else if(j>=3000.and.j<=8000)then
    	tax=i*0.07
    	else if(j>8000)then
    	tax=i*0.1
    	endif
    endif
    print*,"姓名:",name
    print*,"年龄:",n
    print*,"一年该缴纳的税金:",tax
    
    end program
    
    !2.2
    program Taxes
    implicit none
    
    character*8 name
    integer n,i,j
    real tax
    read*,name,n,i
    j=i/12
    
    select case(n)
    case(0:50)
        select case(j)
    	case(0:3000)
        tax=i*0.05
        case(3001:8000)
    	tax=i*0.09
    	case(8001:999999)
    	tax=i*0.12
    	case default
    	write(*,'("输入数据错误")')
        end select
    case(51:130)
        select case(j)
    	case(0:3000)
        tax=i*0.03
        case(3001:8000)
    	tax=i*0.07
    	case(8001:999999)
    	tax=i*0.1
    	case default
    	write(*,'("输入数据错误")')
        end select
    end select
    
    print*,"姓名:",name
    print*,"年龄:",n
    print*,"一年该缴纳的税金:",tax
    
    end program
    
    

     

    展开全文
  • VC和FORTRAN混合编程、相互调用演示。
  • 基础编程入门题目-Fortran

    千次阅读 2018-04-02 14:51:57
    Fortran重在数值计算,下边各题目将重点放在对数值的处理上,弱化了对字符串的操作上。 Problem 16: 成绩统计和调整 有一些学生参加了一场考试,但是考试评判标准比较严格,大家的分数都不太理想。现在将这个班的...

    毕业设计 -> 量子化学计算的FORTRAN程序设计分节解释和参考:
    https://blog.csdn.net/sinat_38863494/article/details/80242788

    Fortran重在数值计算,下边各题目将重点放在对数值的处理上,弱化了对字符串的操作上。

    Problem 16: 成绩统计和调整

    有一些学生参加了一场考试,但是考试评判标准比较严格,大家的分数都不太理想。现在将这个班的成绩全部输入到你的程序当中,请你先输出所有考生的平均分数,然后将所有同学的成绩稍作调整,即将每个人的成绩乘1.2再加10分。如果这样处理后的学生成绩超过了100分则只记为100。再输出这样调整后的平均分。
    输入有多行,每行为一个学生的分数,学生的成绩在[0,100]区间之内。在输入完全部学生的成绩之后,输入一个-1表示输入结束,-1这个数不做处理。
    输出有两行:第1行是原始数据的平均分数,第2行输出将学生成绩处理后的平均分数。
    输入样例:
    10
    40
    50
    95
    81
    50
    66
    20
    20
    45
    37
    37
    37
    29
    12
    -1
    输出样例:
    41.933334
    58.240005

    Problem 15: 冒泡法排序

    将N个整数按从小到大排序的冒泡排序法是这样工作的:从头到尾比较相邻两个元素,如果前面的元素大于其紧随的后面元素,则交换它们。通过一遍扫描,则最后一个元素必定是最大的元素。然后用同样的方法对前N−1个元素进行第二遍扫描。依此类推,最后只需处理两个元素,就完成了对N个数的排序。
    根据以上的描述,对一个保存在数组内的数列进行从小到大的排序。
    输入格式:
    输入在第1行中给出N代表数字个数,接下来的N行为包含待排序的序列的N个数字。
    输出排序后的数列
    输入样例:
    10
    1
    2
    9
    9
    13
    8
    3
    24
    8
    13
    输出样例
    1 2 3 8 8 9 9 13 13 24

    Problem 14:按顺序输出

    输入3个整数,要求按从大到小的顺序输出它们。
    输入
    一行,包括3个整数,以空格分隔
    输出
    一行,包括3个整数,以空格分隔
    样例输入
    1 4 4
    样例输出
    4 4 1

    Problem 13:二分法求算术平方根

    学习使用DO WHILE语句进行控制精度而不是指定次数的循环。
    输入一个不超过10的正实数k,请你用二分法计算这个实数的算术平方根 k k
    具体步骤为:
    求k的算术平方根,即求方程x^2-k=0的解,记 f(x)=x2k f ( x ) = x 2 − k
    数据k不超过10,所以选定区间 [0,10] [ 0 , 10 ] ,记区间的左边界为a=0,右边界为b=10,取a,b的中点 m=(a+b)/2 m = ( a + b ) / 2 ,对左边界计算 a2k a 2 − k 的值 f(a) f ( a ) ,对中点计算 m2k m 2 − k 的值 f(m) f ( m ) ,若f(m)=0此时说明已找到方程的解,可以提前跳出循环。若f(a)f(m)<0,说明方程的解 k k 在区间[a,m]当中,应则将右边界改为m,否则方程的解在[m,b]当中,再进行迭代计算,直至区间长度小于一个合理的精度(如0.000001)时结束循环。
    输入:一个实数,数据为不大于10的正实数k
    输出:一个实数,为k的算术平方根 k k
    输入样例1:
    2
    输出样例1:
    1.41421378
    输入样例2:
    9
    输出样例2:
    3.00000000

    Problem 12:求三角形面积

    给三个平面直角坐标系下的点 (x1,y1),(x2,y2),(x3,y3) ( x 1 , y 1 ) , ( x 2 , y 2 ) , ( x 3 , y 3 ) ,求以这三个点围成三角形的面积
    提示:Heron公式:以a,b,c为边长的三角形面积 S=p(pa)(pb)(pc) S = p ( p − a ) ( p − b ) ( p − c ) ,其中p为三角形的半周长 p=(a+b+c)/2 p = ( a + b + c ) / 2
    输入包含三行,每行两个数字分别代表一个坐标点的横纵坐标,输出一个数字为这三个点围成三角形的面积
    输入样例:
    0 0
    0 2
    2 2
    输出样例:
    2.00000048

    Problem 11:计算两点距离

    给两个平面直角坐标系下的坐标 (x1,y1),(x2,y2) ( x 1 , y 1 ) , ( x 2 , y 2 ) ,求出这两点的直线距离 (x1x2)2+(y1y2)2 ( x 1 − x 2 ) 2 + ( y 1 − y 2 ) 2
    输入包含两行,每行两个数字分别代表一个点的横纵坐标
    输出1个数字,为这两个点的距离

    • 计算机输出实数时精度可能不完全与数学运算一致,可能会损失一定的精度。

    样例输入
    0 0
    1 1
    样例输出
    1.41421354

    Problem 10:解方程 ax2+bx+c=0 a x 2 + b x + c = 0

    根据一元二次方程的求根公式,输入a,b,c的值,请你输出这个方程的根
    如果两根相等,只输出一个根,如果方程无解,输出“No solution”
    输入样例1:
    1 2 4
    输出样例1:
    No solution
    输入样例2:
    1 5 6
    输出样例2:
    -2.00000000 -3.00000000

    Problem 9:输出勾股数

    假设a、b、c均为整数,且满足a,b,c 大于1,并且小于等于100,找出所有符合条件: a2+b2=c2 a 2 + b 2 = c 2 ”的整数组。
    输入
    无。
    输出
    按a从小到大的顺序输出所有满足条件的整数组(若a相同,则按b从小到大的顺序输出),每行一组,每一组数据的输出样式为: (a,b,c),为防止重复输出,仅输出a不大于b的所有结果

    Problem 8:用户水费

    为鼓励居民节约用水,自来水公司采取按用水量阶梯式计价的办法,居民应交水费y(元)与月用水量x(吨)相关:当x不超过15吨时,y=4x/3;超过后,y=2.5x−17.5。请编写程序实现水费的计算。

    输入格式:
    输入在一行中给出非负实数x。

    输出格式:
    在一行输出应交的水费,精确到小数点后2位。

    输入样例1:
    12
    输出样例1:
    16.00
    输入样例2:
    16
    输出样例2:
    22.50

    Problem 7:Callatz猜想

    卡拉兹(Callatz)猜想:
    对任何一个自然数n,如果它是偶数,那么把它砍掉一半;如果它是奇数,那么把(3n+1)砍掉一半。这样一直反复砍下去,最后一定在某一步得到n=1。卡拉兹在1950年的世界数学家大会上公布了这个猜想,传说当时耶鲁大学师生齐动员,拼命想证明这个貌似很傻很天真的命题,结果闹得学生们无心学业,一心只证(3n+1),以至于有人说这是一个阴谋,卡拉兹是在蓄意延缓美国数学界教学与科研的进展……
    现在我们模拟一下这个过程,输入一个数字,将这个数按Callatz猜想描述的那样的每一步输出出来。
    输入一个数字,不超过200。输出有多行,每行为callatz猜想的一个步骤,即,如果上一步的数字是奇数,那么将这个数乘三再加一,如果是偶数就将它除以2,直到数字1为止。
    输入样例:
    17
    输出样例
    52
    26
    13
    40
    20
    10
    5
    16
    8
    4
    2
    1

    Problem 6: 骑车与走路

    描述
    在校园里如果没有自行车,上课办事会很不方便.但实际上,并非去办任何事情都是骑车快,因为骑车总要找车、开锁、停车、锁车等,这要耽误一些时间.假设找到自行车,开锁并车上自行车的时间为27秒;停车锁车的时间为23秒;步行每秒行走1.2米,骑车每秒行走3.0米.请判断走不同的距离去办事,是骑车快还是走路快.
    输入
    第一行为待处理的数据的数量n
    其后每一行整数为一次办事要行走的距离,单位为米.
    输出
    对应每个整数,如果骑车快,输出一行”Bike”;如果走路快,输出一行”Walk”;如果一样快,输出一行”All”.
    样例输入
    4
    50
    90
    120
    180
    样例输出
    Walk
    Walk
    Bike
    Bike

    Problem 5:统计各位数

    给定k(1< k < 100)个正整数,其中每个数都是大于等于1,小于等于10的数。写程序计算给定的k个正整数中,1,5和10出现的次数。
    输入
    输入有k+1行:第一行包含一个正整数k,接下来k行,每一行包含1个正整数
    输出
    输出有三行,第一行为1出现的次数,,第二行为5出现的次数,第三行为10出现的次数。
    样例输入
    5
    1
    5
    8
    10
    5
    样例输出
    1
    2
    1

    Problem 4:厘米与英尺英寸换算

    如果已知英制长度的英尺foot和英寸inch的值,那么对应的米是 (foot+inch/12)×0.3048 ( f o o t + i n c h / 12 ) × 0.3048 。现在,如果用户输入的是厘米数,那么对应英制长度的英尺和英寸是多少呢?别忘了1英尺等于12英寸。
    输入在一行中给出1个正整数,单位是厘米。
    在两行中分别输出这个厘米数对应英制长度的英尺和英寸的整数值.
    输入样例:
    170
    输出样例:
    5
    6

    Problem 3:输出数列

    会控制程序的输出,输入一个数N,设计能程序输出奇数数列{1,3,5,7,…}的前N项,每行占一项。
    输入样例:
    5
    输出样例:
    1
    3
    5
    7
    9

    Problem 2:平方和

    输入两个数值a,b,其中a< b,设计程序计算a^2+(a+1)^2+(a+2)^2+…+b^2的值
    样例输入:
    1 10
    样例输出:
    385

    Problem 1:

    求和。熟悉循环结构,设计循环,完成以下任务:输入两个数值a,b,其中a< b,设计程序计算a+(a+1)+(a+2)+…+b的值
    样例输入:
    1 100
    样例输出:
    5050

    展开全文
  • fortran95开发实例

    2012-03-26 17:03:15
    fortran95开发实例,有兴趣的拿去吧。。
  • Fortran-C-CPP混合编程-01

    2019-04-02 22:21:45
    笔者最近接手一个用Fortran90、C、Python语言混合编程的项目,借着这个机会,将Fortran与C、C++混合编程的基础知识在做一个回顾。 简单示例 先给出一个简单的实例,让读者对Fotran和C互相调用有一个基本的认识。 ...
  • FORTRAN 90 程序典型示例

    千次阅读 2012-03-30 10:13:32
    1 FORTRAN 90 程序示例代码   !------------------------------------------------------------------------------------! ! Code NAME: people.F90 ...
  • Fortran 入门——基本矩阵运算

    千次阅读 2011-11-15 17:31:00
    Fortran就是为了解决一些矩阵运算的问题,传说它的运算非常快,对矩阵的支持也非常好. 敲了几行代码,实现了一些基本运算,果然很方便. 1 program Console4 2 implicit none 3 parameter N=5 4 integer i,j 5 ...
  • 读者切不可笑,今天初次接触fortran,抄了个例子,却一样是编译不过,错误百出。究其原因,对fortran一无所知而已。正好,借此机会好好回忆总结下,如何学习语言。 step 1. 搜索fortran入门,找到 http://mic...
  • Matlab与Fortran混合编程:m…

    千次阅读 2014-06-03 17:14:29
    原文地址:Matlab与Fortran混合编程:mexfunction作者:fishpjy一、编程环境 Matlab R2012b + Visual ...通过下面的简单例子简单说明Matlab与Fortran的混合编程。 例:计算一个向量的各个元素的乘积。 1、Fortran
  • Fortran95程序设计(彭国伦)例题、习题程序
  • Fortran 编程笔记

    2019-09-24 17:11:14
    这是本人学习Fortran 所记的一些笔记,也许对于初学Fortran 的朋友有些许帮助,并且以备自己的不时之需。
  • Fortran 95简单教程

    千次阅读 2017-07-14 10:44:28
    变量名称的长度限制随着各家编译器的不同而不同,Fortran标准规定最少要支持到6个字符,Fortran90则最少要支持到31个字符   Implicit Fortran标准中有一项不太好的功能,它的变量不一定要经过程序声明才能...
  • 最近在做研究时突然用到了一个Fortran编写的程序,但是里边的代码并不适合自己的研究目的,由于代码很凌乱,加上自己也不熟悉那块理论基础,就打消了用C语言重写的念头,故而换一种思路,将C和Fortran混合编程,把...
  • Fortran77和9095编程入门

    2010-11-21 21:00:37
    Fortran77和9095编程入门,里面详细讲解了Fortran的各种语法,更重要的是还附有很多很好的例子。是科研人员编写Fortran必备的参考手册
  • 方面的教程在网络上一搜一大堆,以后再抽空在这里用实例简单地讲述一下。这次 是用FORTRAN写好几个函数然后编译成DLL,然后在C语言程序中使用。 1、首先是编写一段代码,这里给出一个例子 ! forsubs.f90 ! FUNCTIONS...
  • Fortran语言的入门与心得

    万次阅读 多人点赞 2020-04-04 19:34:18
    实验室很多旧的程序是用Fortran语言编写的,因此,就学习了一下Fortran语言,下面是我的一些个人总结: 第一部分:第一个例子 1.1 Hello world 程序 program main implicit none print *, 'Hello World' ...
  • Fortran文件处理实例(一)

    千次阅读 2018-10-29 14:24:42
    Fortran文件处理实例(一)问题描述问题解决编译器选择 问题描述 对于一个文件(英文文章),找出其中出现频率...当然如果简单的学习我们建议simply Fortran。 PROGRAM TASK !----------------------------...
  • Akin教授的Fortran90编程

    2009-03-21 10:59:32
    fortran程序,详细介绍了fortran的一此例子,对于初学者来说,非常好啊。
  • 建立了mex文件后,在 MEX 文件中使用 mexFunction,就像在 Fortran 程序中使用 subroutine 一样。 MEX 文件主要有以下用途: 1. 对于大量现有的 C 或者 Fortran 程序可以无须改写成 MATLAB...
  • 清华徐士良编的《fortran常用算法程序集》相关程序的的源代码。
  • c中调用fortran

    2016-05-05 17:05:22
    一个fortran在vs2010环境下的hello world例子 一个frotran的lib静态库例子 一个c语言的应用程序,实现在c中显示调用fortran函数的功能 实测可用
  • 以下例子均来自网络,只是稍作了编辑,方便今后查阅。 子目录 (一) Fortran调用C语言 (二) C语言调用Fortran (三) C++ 调用Fortran (四) Fortran 调用 C++ 需要说明的是,(一)和(二)对GCC编译器...
  • Fortran 的IF语法

    2021-03-22 21:51:44
    这里含有then以及end if Fortran的case用法比较nice的 此用法借鉴 case参考链接 全文参考链接 百度知道:go to用法参考
  • 文章目录问题来源我的问题头文件、库文件和动态链接库头文件.h库文件.lib动态链接库.dll三者的关系静态链接动态链接初识 Fortran 预处理包含文件 includeFortran中function简单使用声明interface调用function声明...
  • 在Linux环境下编译Fortran代码

    千次阅读 2019-04-16 10:27:59
    在Linux环境下编译Fortran代码 在 linux 环境编译 fortran 代码有一些容易忽略的关键点,供大家借鉴。 编译的原则:先编译嵌套在最内部的“例程子程序”以及“模块”,然后结合主程序一起编译,生成可执行文件。 ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 12,346
精华内容 4,938
关键字:

fortran简单编程例子