Subroutine ANALC
subroutine ANALC
! Calls
call ANALYZE
call DDSTART
call DDSTOP
call KMSData_Pick
call KMSkim_EOF
call MAGTA
call MY_PERIODIC
call MY_SLOW
call RITE
call SCALER_CORR
call SCALER_PROCESS
call SHOW_FAIL
call SKIM_CLOSE
call ZERO_EVENT_FAIL_COUNT
call ZERO_FAIL_COUNT
call ZERO_SCALER_COUNT
call begin_run
call ddstop
call getlr
call kerror
call kerror2
call my_begin_run
call my_end_device
call my_end_file
call my_end_run
call my_new_run
call rite
call skim_write
call zero_event_fail_count
call zero_fail_count
call zero_scaler_count
! Variables
logical (kind=4) :: skip_ev
logical (kind=4) :: find_ev
logical (kind=4) :: skip_f
logical (kind=4) :: anal
logical (kind=4) :: endrun
logical (kind=4) :: run_found
logical (kind=4) :: lasteof
logical (kind=4) :: numcheck
logical (kind=4) :: write_record
integer (kind=2), dimension (4) :: ICODE
integer (kind=4) :: NUMBER
integer (kind=4) :: NEVSKIP
integer (kind=4) :: NFILESKIP
integer (kind=4) :: NFILEDUN
integer (kind=4) :: MFILE
integer (kind=4) :: II
integer (kind=4) :: DUM
integer (kind=4) :: istat
integer (kind=4) :: cfmget
integer (kind=4) :: istatus
integer (kind=4) :: mean_evsiz
integer (kind=4) :: n_mean
integer (kind=4) :: magta
integer (kind=4) :: ierr
integer (kind=4) :: ist
integer (kind=4) :: ifi
integer (kind=4) :: iw
integer (kind=4) :: namelen
integer (kind=4) :: lastrun
integer (kind=4) :: nrun_temp
integer (kind=4) :: last_my_end_run
integer (kind=4) :: blocat
integer (kind=4) :: blist
integer (kind=4) :: bdlen
integer (kind=4) :: bgarb
integer (kind=4) :: ind
integer (kind=4) :: indat
integer (kind=4) :: lendat
character (len=80) :: STRING1
character (len=80) :: MESSAGE
integer (kind=4) :: EXIT_STATUS
integer (kind=4) :: USRSIGNAL
logical :: ms_error
end subroutine ANALC
Description of Variables
skip_ev
logical (kind=4) :: skip_ev
find_ev
logical (kind=4) :: find_ev
skip_f
logical (kind=4) :: skip_f
anal
logical (kind=4) :: anal
endrun
logical (kind=4) :: endrun
run_found
logical (kind=4) :: run_found
lasteof
logical (kind=4) :: lasteof
numcheck
logical (kind=4) :: numcheck
write_record
logical (kind=4) :: write_record
ICODE
integer (kind=2), dimension (4) :: ICODE
NUMBER
integer (kind=4) :: NUMBER
NEVSKIP
integer (kind=4) :: NEVSKIP
NFILESKIP
integer (kind=4) :: NFILESKIP
NFILEDUN
integer (kind=4) :: NFILEDUN
MFILE
integer (kind=4) :: MFILE
II
integer (kind=4) :: II
DUM
integer (kind=4) :: DUM
istat
integer (kind=4) :: istat
cfmget
integer (kind=4) :: cfmget
istatus
integer (kind=4) :: istatus
mean_evsiz
integer (kind=4) :: mean_evsiz
n_mean
integer (kind=4) :: n_mean
magta
integer (kind=4) :: magta
ierr
integer (kind=4) :: ierr
ist
integer (kind=4) :: ist
ifi
integer (kind=4) :: ifi
iw
integer (kind=4) :: iw
namelen
integer (kind=4) :: namelen
lastrun
integer (kind=4) :: lastrun
nrun_temp
integer (kind=4) :: nrun_temp
last_my_end_run
integer (kind=4) :: last_my_end_run
blocat
integer (kind=4) :: blocat
blist
integer (kind=4) :: blist
bdlen
integer (kind=4) :: bdlen
bgarb
integer (kind=4) :: bgarb
ind
integer (kind=4) :: ind
indat
integer (kind=4) :: indat
lendat
integer (kind=4) :: lendat
STRING1
character (len=80) :: STRING1
MESSAGE
character (len=80) :: MESSAGE
EXIT_STATUS
integer (kind=4) :: EXIT_STATUS
USRSIGNAL
integer (kind=4) :: USRSIGNAL
ms_error
logical :: ms_error