C*+*+*+*+*+*
C     This program was produced by the  ATOMFT  translator version 3.11
C                                 Copyright(c) 1979-93, by Y. F. Chang
C*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+
C This is for the inputs below.
C
COPTION DOUBLE,DUMP=1
C     DIFF ( Y1 , X , 1 ) = - Y2
C     DIFF  (  Y2  ,  X  ,  1  )   =  DIFF  (  Y2  ,  X  ,  1  )
C     DIFF  (  Y2  ,  X  ,  2  )   =  DIFF  (  Y2  ,  X  ,  2  )
C     DIFF  (  Y2  ,  X  ,  3  )   =  DIFF  (  Y2  ,  X  ,  3  )
C     DIFF  (  Y2  ,  X  ,  4  )   =  DIFF  (  Y2  ,  X  ,  4  )
C     DIFF  (  Y2  ,  X  ,  5 ) = Y1