Subroutine func

subroutine func

        ! Uses
    use precision_mod
    use chambers_mod
    use hists_mod
    use xtalk_mod
    use efficiency_mod
    use align_mod
    use timezero_mod
    use namelist_mod

        ! Calls
    call AlignPlaneShiftsPrint
    call AlignWireShiftsPrint
    call EffDCinit
    call EffDCprint
    call EffPCinit
    call EffPCprint
    call PrintGeom
    call TestGeomHists
    call XtalkInit
    call XtalkPrint
    call define_hists
    call kerror
    call loadhist
    call savec
    call zero_mofia

        ! Variables
    integer (kind=i4) :: ii
    integer (kind=i4) :: ip
    character :: resp

end subroutine func

Description of Variables

ii

integer (kind=i4) :: ii

ip

integer (kind=i4) :: ip

resp

character :: resp