jacky
问题补充说明：怎么用fortran语言表达：将0-1区间分成100份... 怎么用fortran语言表达：将0-1区间分成100份 展开
123来自45678910销周掌茶11121314积烧矛南承读补151617181920program 滑卖梁信运mainimplicit nonereal*8,allocatable::a(:)integer::ia=linspace( 0.0d0, 1.0d0, 10)do i=1,size(a)write(*,*)a(i)enddoread(*,*)containsfunction linspace(a,b,n)result(x)implicit nonereal*8,allocatable::x(:)real*8,intent(in)::a,binteg青物夫间而项了伯执设er,intent(in)::ninteger::iallocate(x(n+1))x=(/(i,i=0,n)/)*1.0d0/n*(b-a)+ae360问答nd function linspaceend 配冲program main
