anchor.diff:  
         IMPLICIT none
         INTEGER NMAX
  -      PARAMETER (NMAX=50000)
  +      PARAMETER (NMAX=100000)
         REAL*8 x(NMAX),f(NMAX),fint(NMAX),dx
         CHARACTER*30 ifile,ofile
         LOGICAL ex
  
positive.code:       call gcmdln(ifile,ofile)
        inquire(file=ifile,EXIST=ex)
        if (.not.ex) then
            write(*,*) 'No inpute file:',ifile
            call usage()
        endif
  
  
negative.code:      1 '  -h/-?    Online help (this screen)'
        write(*,*)
        write(*,*)
       1 'numint numerically integrates a time series using trapezoidal',
       2 ' integration'
        write(*,*)
        write(*,*)
  