Hello Wen,
I don't think:
testA(x)=dsqrt(x)
is what you want. The index for testA should be an integer between 0 and 2000. Instead:
testA(i)=dsqrt(x)
looks to be what you trying to do, i.e. initializing testA to contain the sqrts of values between 0.0 and 0.1. But as you noted, when you display the array in the Array Viewer you see an xrange of 0 to 2000. That's because the default behaviour is to display the array indices along the x-axis. To display different x-axis labels you need to create an additional array containing the x values and then call favSetDimScale.
The code would look like this:
Subroutine viewary( )
use AVDef
use AVViewer
use DFLib
real(8), allocatable :: testA(:)
real(8), allocatable :: xscale(:)
!DEC$ATTRIBUTES array_visualizer :: testA
real(8) xmax, x
integer istatus, ihv
allocate (testA(0:2000))
allocate (xscale(0:2000))
xmax=0.1
DO i=0, 2000
x=xmax*i/2000.0
100 testA(i)=dsqrt(x)
xscale(i) = x
END DO
call faglStartWatch(testA, istatus)
call faglStartWatch(xscale, istatus)
call FavStartViewer(ihv, istatus)
call favSetArray(ihv, testA, istatus)
call favSetDimScale(ihv, 1, xscale, istatus)
call favShowWindow(ihv, AV_TRUE, istatus)
call faglSaveAsFile(testA, "testA.agl", istatus)
call favEndViewer(ihv, istatus)
call faglEndWatch(testA, istatus)
deallocate(testA)
deallocate(xscale)
END Subroutine viewary
John
