Added ability to read in the name of the input file as a command line…

… argument. Default is ctem.in
MintonGroup · Mar 9, 2022 · 12a318e · 12a318e
1 parent 59d9a3c
commit 12a318e
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/src/main/CTEM.f90 b/src/main/CTEM.f90
@@ -63,11 +63,17 @@ program CTEM
 real(DP)                :: lambda
 !$ real(DP)             :: t1,t2
 real(DP),dimension(:,:),allocatable :: nflux
+integer(I4B)            :: narg, ierr 
 
 !$ t1 = omp_get_wtime()
 call io_splash()
-!write(*,*) 'Reading input files'
-infile="ctem.in"
+narg = command_argument_count() 
+if (narg /= 0) then
+   call get_command_argument(1, infile, status = ierr)
+else
+   infile="ctem.in"
+end if
+write(*,*) 'Reading input file ',trim(adjustl(infile))
 call io_input(infile,user)
 
 ! Initialize distribution arrays (crater size, number)