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