Subroutine get_output
Use CommonInfo_Module
USE Print_Module
Implicit None

!=========================================================================================
!    I N T E R N A L S

INTEGER :: istat

!=========================================================================================
!    N A M E L I S T

NAMELIST /outputopt/ test_print

   OPEN(UNIT=Input_Unit,FILE=Trim(inputfile1),IOSTAT=istat,STATUS='old',ACTION='read')
   IF (istat.ne.0) STOP 'OPEN failed - get_output'
   READ(Input_Unit,outputopt)
   CLOSE(UNIT=Input_Unit,IOSTAT=istat,STATUS='keep')
   IF (istat.ne.0) STOP 'CLOSE failed - get_output'

End Subroutine get_output