Lost almost one day...
module mo
use clrwin
real*8 xMomTot(10000), y1MomTot(10000), y2MomTot(10000)
integer :: itime=5
contains
integer function plotMomentumTot ()
ix = 800; iy = 600
i = winio@('%pv%pl[x_array, scale=linear, N_GRAPHS=2',&
ix, iy, itime, xMomTot, y1MomTot, y2MomTot )
plotMomentumTot = 2
end function plotMomentumTot
end module
!========================
program aaa
use mo
xMomTot(1)=0
xMomTot(2)=1
xMomTot(3)=2
xMomTot(4)=3
xMomTot(5)=4
y1MomTot(1)= 0
y1MomTot(2)= 1
y1MomTot(3)= 2
y1MomTot(4)= 3
y1MomTot(5)= 2
y2MomTot(1)= 0
y2MomTot(2)= -1
y2MomTot(3)= -2
y2MomTot(4)= -3
y2MomTot(5)= -2
jj = plotMomentumTot ()
End