fortran 程序(应该是很简单的小程序)

1你需要安装 Intel Visual Fortran 编译器，并集成到 Visual Studio 中。后者自身不具备 Fortran 编译器。 2文件，新建，工程。选择 Intel Fortran 的工程。（console或其他，根据自身需求） 3添加 testfor 文件到新建好的工程内。

第一种方法：

1 建立工作目录/ ]"

2 将ABAQUS安装目录\64-pr11\site下的aba_param_dpinc 或 aba_param_spinc拷贝到工作目录，并改名为aba_paraminc；

3 将编译的fortran程序拷贝到工作目录；

4 将obj文件拷贝到工作目录；

5 建立好输入文件inp；

6 运行abaqus job=inp_name user=fortran name即可。

第二种方法：

在Job模块里，创建工作，在Edit Job对话框中选择General选项卡，在User subroutine file中点击Select按钮，从d出对话框中选择你要调用的子程序文件（后缀为for或f）。

执行 a(i,j)=1 这一句的时候，刚跳出 j 的循环， j 应该等于6的，给a(i,j)赋值应该会有问题

另外输出的时候((a(i,j),i=1,5),i=1,5)，两个都是 i ，没问题么？

program randomEG

implicit none

integer :: k, i,j, temp, n=10000

real :: r

integer, dimension(8) :: values 

! Declare an assumed shape, dynamic array

integer, dimension(:), allocatable :: seed

integer, dimension(:), allocatable :: results

! gfortran subroutine to return date and time information 

! from the real time system clock Works down to milliseconds 

! and stores the eight return values in array values

call date_and_time(VALUES=values)

! restart the state of the pseudorandom number generator

! k = minimum size of seed (12 on my system)

call random_seed(size=k)

! allocate memory to seed

allocate(seed(k))

allocate(results(n))

! assign information in values to seed

seed(:) = values(:)

! seed the random number generator

call random_seed(put=seed)

do i=1,n

    results(i) = irand()

end do

do i=1,n

    do j=i+1,n

        if (results(i) > results(j)) then

            temp = results(i)

            results(i) = results(j)

            results(j) = temp

        endif

    enddo

enddo

do i=1,n

    print , results(i)

end do

end program randomEG

数据的说明你没给呢？每行代表什么意思？

其实从文件读和写入文件都很简单，用下面的命令即可

open(100,file='nametxt')

read(100,) x,y

close(100)

open(200,file='nametxt')

write(200,) x,y

close(200)

以上就是关于fortran 程序(应该是很简单的小程序)全部的内容，包括:fortran 程序(应该是很简单的小程序)、谁能给我多发点后缀名啊，平时有好多后缀我都不知道是什么文件，谁能给我发一些顺便都告诉是什么文件。、哪位帮忙写份Fortran程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！