Subroutine get_io
USE FileUnits_Module
Use CommonInfo_Module
Implicit None

!=========================================================================================
! Written by: Jeff Crawford
!=========================================================================================

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

Integer :: istat

!=========================================================================
!  Open output file and write I/O info

 OPEN(UNIT=Out_Unit,FILE=Trim(outdir)//Trim(outputfile),IOSTAT=istat,STATUS='replace',ACTION='write')
 IF (istat.ne.0) THEN
     WRITE(Msg_Unit,*)"OutDir=",Outdir
     WRITE(Msg_Unit,*)"OutputFile=",OutputFile
     STOP 'OPEN failed - td_main'
 ENDIF
 OPEN(UNIT=Output_Unit,FILE=Trim(outdir)//Trim(auxoutput),IOSTAT=istat,STATUS='replace',ACTION='write')
 IF (istat.ne.0) STOP 'OPEN failed - td_main'

   WRITE(Out_Unit,21) 'I/O Info:'
   WRITE(Out_Unit,22) 'Input File 1', TRIM(inputfile1)
   WRITE(Out_Unit,22) 'Input File 2', TRIM(inputfile2)
   WRITE(Out_Unit,22) 'Output Dir  ', TRIM(outdir)
   WRITE(Out_Unit,22) 'Output Log  ', TRIM(outdir)//TRIM(outputfile)
   WRITE(Out_Unit,22) 'Output Aux  ', TRIM(outdir)//TRIM(auxoutput)

   21 FORMAT(/1x,a,/1X,50('-'))
   22 FORMAT(1X,a,10('.'),a)

End Subroutine get_io