主题:[讨论]关于IMSLEG的af.i库函数,谢谢
我看到一个fortran程序:
program main
include '/opt/lib/ipt_1.2/include/af.i'
integer ncval, nx, ny
parameter (ncval=5, nx=11, ny=11)
c
integer istatus, iunit, new_plot
real ax, bx, ay, by, cfill_1
external cfill_1
c
data iunit /0/
c
ax = -1.0
bx = 1.0
ay = -1.0
by = 1.0
new_plot = 0
c Setup the graphics database to
c contour plot
istatus = af_tgrid_contour_function_plot (cfill_1, nx, ny, ax, bx,
& ay, by, ncval,
& af_no_label,
& af_contour_fill,
& 0)
new_plot = af3_contour_fill(ncval, new_plot)
c Draw the plot and close graphics
call af3_plot (iunit, 0)
end
c
c
real function cfill_1 (x, y)
real x, y
cfill_1 = 2.0 - (x*x + y*y)
return
end
我知道af.i是IMSLEG里面的。而 IMSL Exponent Graphics 应该是fortran画图专用的(原先在Unix系统下,我不知道VF下有没有相应的工具包),但是我安装的Visual fortran里面没有安装IMSLEG,比如AF_set是IMSLEG的函数,但是在我的VF里面查不到这个函数,所以请教下哪里可以载到这个工具包(我刚下载到IMSL,但是里面的文档没有提及Exponent Graphics的内容),还有相关文档,谢谢。
program main
include '/opt/lib/ipt_1.2/include/af.i'
integer ncval, nx, ny
parameter (ncval=5, nx=11, ny=11)
c
integer istatus, iunit, new_plot
real ax, bx, ay, by, cfill_1
external cfill_1
c
data iunit /0/
c
ax = -1.0
bx = 1.0
ay = -1.0
by = 1.0
new_plot = 0
c Setup the graphics database to
c contour plot
istatus = af_tgrid_contour_function_plot (cfill_1, nx, ny, ax, bx,
& ay, by, ncval,
& af_no_label,
& af_contour_fill,
& 0)
new_plot = af3_contour_fill(ncval, new_plot)
c Draw the plot and close graphics
call af3_plot (iunit, 0)
end
c
c
real function cfill_1 (x, y)
real x, y
cfill_1 = 2.0 - (x*x + y*y)
return
end
我知道af.i是IMSLEG里面的。而 IMSL Exponent Graphics 应该是fortran画图专用的(原先在Unix系统下,我不知道VF下有没有相应的工具包),但是我安装的Visual fortran里面没有安装IMSLEG,比如AF_set是IMSLEG的函数,但是在我的VF里面查不到这个函数,所以请教下哪里可以载到这个工具包(我刚下载到IMSL,但是里面的文档没有提及Exponent Graphics的内容),还有相关文档,谢谢。