Initial commit

pgm/addit.f

@@ -0,0 +1,67 @@
+      program addit
+
+*     replaces "powderplus"
+*     (23.4.99) rekonstruiert am 7.7.99, geaendert am 15.7.99,28.9.99,7.3.00
+*
+*     > myfit addit.f  
+*     > mv a.out addit 
+
+      implicit none
+
+      integer l
+      character*36 spec
+      character*256 file
+      character*8192 line
+      character*5 flag
+
+      call fit_init
+
+      call sys_get_cmdpar(line, l)
+      call str_lowcase(line, line)
+      if (line(1:l) .ne. ' ') then
+        call fit_dat_options(line)
+      endif
+      call sys_getenv('dat_defspec',spec)
+      if (spec.eq.' ') spec='DMC'
+      call str_trim(spec,spec,l)            ! Laenge bestimmen (l)
+
+  100 write(*,*)
+      write(*,'(x,a)')'DMC = 1 / HRPT = 2'
+      write(*,'(x,3a,$)')'Instrument (default: ',spec(1:l),'): '
+      read(*,'(a)')flag                     !      ^ schreibt spec von
+                                            !        Zeichen 1 bis l 
+
+      call str_upcase(flag, flag)           ! schreibt Inhalt von flag gross 
+
+      if (flag.eq.'1') flag='DMC'
+      if (flag.eq.'2') flag='HRPT'
+      if (flag.ne.' ') then
+        if (flag.ne.'DMC' .and. flag.ne.'HRPT') goto 100
+        spec=flag
+      endif
+
+      call sys_setenv('dat_defspec',spec)
+
+C      call fit_dat(' ')
+C      call fit_merge(0.02)
+      if (spec .eq. 'DMC') then
+        call fit_dat_merge(' ',0.025)          ! ersetzt fit_dat und fit_merge
+      else
+        call fit_dat_merge(' ',0.025)          ! ersetzt fit_dat und fit_merge
+      endif
+      call fit_auto_mon
+      write(*,*)
+      call fit_mon(0)
+
+  101 write(*,'(x,a,$)')'Name of output file: '
+      read(*,'(a)')file
+      if (file.eq.' ') goto 101
+
+      call fit_export(0,'lnsp',file)
+
+      call str_trim(file, file, l)
+      write(*,*)
+      write(*,'(x,2a)')'new file:   ',file(1:l)
+      write(*,*)
+
+      end