68 lines
1.8 KiB
Fortran
68 lines
1.8 KiB
Fortran
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
|