测试一下论坛 Fortran 语法高亮

fcode

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program www_fcode_cn

02	use params

03	use extrafunc

04	use interpreter

05	implicit none

06	character(len=255) :: s, f,error1,error2

07	real(fdp) ::  r

08	real(fdp), dimension(:),allocatable :: varvals

09	integer :: funcnum

10	write(*,*)"依次输入函数的自变量:"

11	read(*,'(a)')s

12	allocate(varvals(f_numbervars(s))) ! f_numbervars(s)为自变量的个数

13	write(*,*)"输入关于自变量的函数:"

14	read(*,'(a)')f

15	write(*,*)"依次输入对应自变量的值:"

16	read(*,*)varvals

17	call s_createfn(f, s, funcnum,error1) ! 创建函数

18	write(*,'(a)')trim(error1) ! 提示出错信息

19	call s_evaluatefn(funcnum, varvals, r,error2) ! 计算函数值

20	write(*,'(a)')trim(error2) ! 提示出错信息

21	write(*,*)"函数值等于:",r

22	call s_destroyfn(funcnum) ! 销毁函数

23

stop

24	end program www_fcode_cn

Colderheart

我来顶顶，灌灌水:$:$:$