18 lines
383 B
Fortran
18 lines
383 B
Fortran
SUBROUTINE FIT_EXIT
|
|
! -------------------
|
|
|
|
include 'fit.inc'
|
|
character ans*1
|
|
|
|
if (npkt .gt. 0) then
|
|
if (npkt .gt. 1000) then
|
|
write(isyswr, '(/X,A,$)')
|
|
1 'Do you want to save current data and parameters [n]? '
|
|
read(isysrd, '(a)',err=9,end=9) ans
|
|
if (ans .ne. 'Y' .and. ans .ne. 'y') goto 9
|
|
endif
|
|
call fit_save('last.fit3')
|
|
endif
|
|
9 call gra_print
|
|
END
|