datafile name need not be default, can be user input

src/modules/quick_files_module.f90

@@ -128,6 +128,28 @@ subroutine set_quick_files(api,ierr)
 
     end subroutine
 
+    subroutine read_data_file(line)
+      use quick_exception_module
+      use quick_input_parser_module  
+
+      implicit none
+
+      character line*(*)
+
+      call read(line,'$DATA',datafilename)
+
+    end subroutine
+
+    subroutine print_data_file(io)
+        implicit none
+
+        ! pass-in Parameter
+        integer io
+
+        write (io,'("| DATA FILE  =    ",a)') trim(dataFileName)
+
+    end subroutine
+
     subroutine read_basis_file(keywd,ierr)
 
         use quick_exception_module
@@ -272,7 +294,6 @@ subroutine print_quick_io_file(io,ierr)
 
         write (io,'("| INPUT FILE :    ",a)') trim(inFileName)
         write (io,'("| OUTPUT FILE:    ",a)') trim(outFileName)
-        write (io,'("| DATA FILE  :    ",a)') trim(dataFileName)
         write (io,'("| BASIS SET PATH: ",a)') trim(basisdir)
 
         return

src/read_job_and_atom.f90

@@ -49,7 +49,15 @@ subroutine read_job_and_atom(ierr)
         do while(.true.)
           read (inFile,'(A100)') tempstring
           if(trim(tempstring).eq.'') exit
-          keyWD=trim(keyWD)//' '//trim(tempstring)
+          if(tempstring(1:1).eq.'$')then
+            call upcase(tempstring(2:2),4)
+            if (tempstring(2:5).eq.'DATA')then
+              ! read data file
+              SAFE_CALL(read_data_file(tempstring))
+            endif
+          else
+            keyWD=trim(keyWD)//' '//trim(tempstring)
+          endif
         end do
       endif
 
@@ -65,7 +73,8 @@ subroutine read_job_and_atom(ierr)
       ! read basis file
       SAFE_CALL(read_basis_file(keywd,ierr))
       call print_basis_file(iOutFile)
-      if (quick_method%ecp) call print_ecp_file(iOutFile)
+      call print_data_file(iOutFile) 
+     if (quick_method%ecp) call print_ecp_file(iOutFile)
 
       ! If PDB flag is on, then call readPDB to read PDB file and 
       ! rewrite input file so that there will be no difference between