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