Question

fortran语言

怎么用fortran语言表达：将0-1区间分成100份

Answer 1

program main
implicit none
real*8,allocatable::a(:)
integer::i
a=linspace( 0.0d0, 1.0d0, 10)
do i=1,size(a)
write(*,*)a(i)
enddo
read(*,*)
contains
function linspace(a,b,n)result(x)
implicit none
real*8,allocatable::x(:)
real*8,intent(in)::a,b
integer,intent(in)::n
integer::i
allocate(x(n+1))
x=(/(i,i=0,n)/)*1.0d0/n*(b-a)+a
end function linspace
end program main

Answer 2