C
C		2002/09/11
C
C----------------------------------------
C  parameter input
C----------------------------------------
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      parameter(IN=100,IM=IN+1)
