input Subroutine

  subroutine input

    !! Routine that calls the main input file parsing routines
    !! author: P J Knight, CCFE, Culham Science Centre
    !! None
    !! This routine provides the interface between the input file
    !! reading routines and the rest of PROCESS.
    !! A User's Guide to the PROCESS Systems Code, P. J. Knight,
    !! AEA Fusion Report AEA FUS 251, 1993
    !
    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    use constants, only: nout
    use numerics, only: ipeqns, icc, active_constraints
    implicit none

    !  Arguments

    !  Local variables

    integer :: i
    !     j
    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

    call parse_input_file(nin,nout,show_changes)

    ! Set all the values of the active_constraints array
    do i = 1, ipeqns
        if (icc(i) /= 0) then
            active_constraints(icc(i)) = .true.
            constraints_exist = .true.
        end if
    end do

    ! Set the device type based on the input file's switches
    call devtyp
  end subroutine input