PROGRAM ALIGN
DIMENSION Y1(80),Y2(80),Y3(80),Y4(80),XP(80),Y5(80)
INTEGER*4 options
INTEGER i_ret
INTEGER just_cleanup
C
C------------------------------------------------------------------------
C Call IDL Initialization
call IDL_Init (options, i_ret)
C
C -----------------------------------------------------------------------------
EX=0.0
DEX=.1
JMAX=80
DO 15 J=1,JMAX
X1=EX
X2=EX/2.
X3=EX/3.
X4=EX/4.
X5=EX/5.
Y1(J)=X1*(2.+X1)/(1.+X1)**2
Y2(J)=X2*(2.+X2)/(1.+X2)**2
Y3(J)=X3*(2.+X3)/(1.+X3)**2
Y4(J)=X4*(2.+X4)/(1.+X4)**2
Y5(J)=X5*(2.+X5)/(1.+X5)**2
XP(J)=EX
15 EX=EX+DEX
C ---------------------------------------------------------------------------
C Call IDL ImportNamedArray
call IDL_ImportNamedArray (Y1, Y2,
Y3, Y4, Y5, XP, i_ret)
C
C------------------------------------------------------------------------
C Call IDL Cleanup
just_cleanup = 0
call IDL_Cleanup (just_cleanup,
i_ret)
C
C ---------------------------------------------------------------------------
STOP
END