Initial commit

pgm/addchan.f

@@ -0,0 +1,52 @@
+      program addchan
+
+! compile with:
+!     > myfit -o addchan addchan.f
+
+      implicit none
+
+      integer j,i,n,listflag
+      character*256 list
+      real twoth
+
+      integer nmax
+      parameter (nmax=16000)
+      real xx(nmax)
+
+      call fit_init
+
+      call dat_ask_filelist(list,' ')
+      listflag=0
+
+      do j=1,999999
+
+        call fit_dat_next_opt(list,listflag,1,0.0)
+        if (listflag.eq.0) goto 101
+        
+        call fit_get_real('A4', twoth)
+        call fit_get_array('X', xx, nmax, n)
+        print *,'a4 ',twoth,n
+        do i=1,n
+          if (xx(i) .le. 500.) then
+            xx(i)=xx(i)-twoth+1000.
+          endif
+        enddo
+        call fit_put_array('X', xx, n)
+        if (n+1600 .ge. nmax) then
+          call fit_merge(0.05)
+        endif
+      enddo
+
+  101 write(*,*)
+
+      call fit_merge(0.05)
+      call fit_get_array('X', xx, nmax, n)
+      do i=1,n
+        xx(i)=xx(i)-1000.
+      enddo
+      call fit_put_array('X', xx, n)
+
+      call fit_export(0,'lnsp',' ')
+
+
+      end