grans_obj_Init Subroutine

    subroutine grans_obj_Init(this,timer,parallel,parser)
      !> Initializes the GRANS solver.
      implicit none
      class(grans_obj),   intent(inout) :: this                                !! GRANS solver
      type(timer_obj),    intent(in),    &
                                 target :: timer                               !! Timer utility
      type(parallel_obj), intent(in),    &
                                 target :: parallel                            !! Parallel machinery
      type(parser_obj),   intent(in),    &
                                 target :: parser                              !! Parser for input file

      ! Point to the master objects
      this%timer    => timer
      this%parallel => parallel
      this%parser   => parser

      return
    end subroutine grans_obj_Init