Module CommonInfo_Module
USE Numeric_Kinds_Module
Implicit None
Save

! General 

  !Logical last,initial,initwf
  Logical firstcall                       ! Final time step logical
  Real(dp) initnorm
  Integer initcount,initcount_global


! Input / Output Filenames
!  CHARACTER(LEN=100),PARAMETER :: outdir='../output/'
!  CHARACTER(LEN=100),PARAMETER :: BinOutdir='../output/BinOut/'
!  CHARACTER(LEN=100),PARAMETER :: scratchdir='../output/'
!  CHARACTER(LEN=100),PARAMETER :: GraphicsOutdir='../output/GraphicsOut/'

!  CHARACTER(LEN=100),PARAMETER :: inputfile1='../Input/inputlist.txt'
!  CHARACTER(LEN=100),PARAMETER :: inputfile2='../Input/allist.data'
!  CHARACTER(LEN=100),PARAMETER :: outputfile='td_output.txt'
!  CHARACTER(LEN=100),PARAMETER :: auxoutput='aux_output.txt'

  CHARACTER(LEN=100),PARAMETER :: outdir="F:/Scratch/tdrs_3d/output/"
  CHARACTER(LEN=100),PARAMETER :: BinOutdir="F:/Scratch/tdrs_3d/BinOut/"
  CHARACTER(LEN=100),PARAMETER :: scratchdir="F:/Scratch/tdrs_3d/"
  CHARACTER(LEN=100),PARAMETER :: GraphicsOutdir="F:/Scratch/tdrs_3d/GraphicsOut/"

  CHARACTER(LEN=100),PARAMETER :: inputfile1="C:\Users\user\Documents\Programs\SRC\TDWP_Crawford_Dec_5_2012\Input\inputlist.txt"
  CHARACTER(LEN=100),PARAMETER :: inputfile2="C:\Users\user\Documents\Programs\SRC\TDWP_Crawford_Dec_5_2012\Input\allist.data"
  CHARACTER(LEN=100),PARAMETER :: outputfile='td_output.txt'
  CHARACTER(LEN=100),PARAMETER :: auxoutput='aux_output.txt'


! Unit Numbers

  Integer, Parameter:: Input_Unit=4         ! data/inputlist.txt : Input data
  Integer, Parameter:: Input_Unit2=16       ! Input/allist.data : Input data
  Integer, Parameter:: Input_Unit3=17       ! Input/AllBasis.data : Input data
  Integer, Parameter:: Out_Unit=6           ! td_output.txt : Program output
  Integer, Parameter:: Norm_Unit=7
  Integer, Parameter:: Pot_Graph_Unit=9     ! pot_graph.txt : Potential plot
  Integer, Parameter:: iwf_unit=11    ! iwf_graph.txt : Initial wave function
  Integer, Parameter:: Test_Graph_Unit=12   ! testwf_graph.txt : TI out wave function
  Integer, Parameter:: Pwf_Graph_Unit=14    ! pwf_graph_000.txt : Propagated wave function   
  Integer, Parameter:: Pwf_Log_Unit=15      ! pwf_graph_log.txt     
  Integer, Parameter:: Gauss_Graph_Unit=19  ! gauss_graph.txt

  Integer, Parameter:: analysis_unit0=20
  Integer, Parameter:: analysis_unit1=21
  Integer, Parameter:: analysis_unit2=22
  Integer, Parameter:: analysis_unit3=23
  Integer, Parameter:: analysis_unit4=24
  Integer, Parameter:: analysis_unit5=25
  Integer, Parameter:: analysis_unit6=26
  Integer, Parameter:: analysis_unit7=27
  Integer, Parameter:: analysis_unit8=28
  Integer, Parameter:: analysis_unit9=29

  Integer, Parameter:: output_unit0=30
  Integer, Parameter:: output_unit1=31
  Integer, Parameter:: output_unit2=32
  Integer, Parameter:: output_unit3=33
  Integer, Parameter:: output_unit4=34
  Integer, Parameter:: output_unit5=35
  Integer, Parameter:: output_unit6=36
  Integer, Parameter:: output_unit7=37
  Integer, Parameter:: output_unit8=38
  Integer, Parameter:: output_unit9=39
!
  Integer, Parameter:: project_unitR=40
  Integer, Parameter:: project_unitP=41
  Integer, Parameter:: project_unitT=42
  Integer, Parameter:: pvec_unitR=43
  Integer, Parameter:: pvec_unitP=44
  Integer, Parameter:: pvec_unitT=45
  Integer, Parameter:: pvec_unitA=46
  Integer, Parameter:: pd_unit=47 
  Integer, Parameter:: pddiff_unit=48

  Integer, Parameter:: bin_unit0=50
  Integer, Parameter:: bin_unit1=51
  Integer, Parameter:: bin_unit2=52
  Integer, Parameter:: bin_unit3=53
  Integer, Parameter:: bin_unit4=54
  Integer, Parameter:: bin_unit5=55
  Integer, Parameter:: bin_unit6=56
  Integer, Parameter:: bin_unit7=57
  Integer, Parameter:: bin_unit8=58
  Integer, Parameter:: bin_unit9=59

  Integer, Parameter:: binout_unit0=60
  Integer, Parameter:: binout_unit1=61
  Integer, Parameter:: binout_unit2=62
  Integer, Parameter:: binout_unit3=63

  Integer, Parameter:: smatrix_unit0=70
  Integer, Parameter:: smatrix_unit1=71
  Integer, Parameter:: smatrix_unit2=72
  Integer, Parameter:: smatrix_unit3=73
  Integer, Parameter:: smatrix_unit4=74
  Integer, Parameter:: smatrix_unit5=75
  Integer, Parameter:: smatrix_unit6=76
  Integer, Parameter:: smatrix_unit7=77
  Integer, Parameter:: smatrix_unit8=78
  Integer, Parameter:: smatrix_unit9=79

  Integer, Parameter:: smatrix_unit10=80
  Integer, Parameter:: smatrix_unit11=81
  Integer, Parameter:: smatrix_unit12=82
  Integer, Parameter:: smatrix_unit13=83
  Integer, Parameter:: smatrix_unit14=84
  Integer, Parameter:: smatrix_unit15=85
  Integer, Parameter:: smatrix_unit16=86
  Integer, Parameter:: smatrix_unit17=87
  Integer, Parameter:: smatrix_unit18=88
  Integer, Parameter:: smatrix_unit19=89

  Integer, Parameter:: smat_unit1=111
  Integer, Parameter:: smat_unit2=112

  Integer, Parameter:: tempunit=90
  Integer, Parameter:: tempunit2=91
  Integer, Parameter:: tempunit3=92 

End Module CommonInfo_Module