added path_input in front of summary.out file

This commit is contained in:
Bryan Herman 2012-02-23 07:25:00 -08:00
parent f1101a132d
commit d7706b76d4

View file

@ -974,7 +974,7 @@ contains
character(MAX_FILE_LEN) :: path ! path of summary file
! Create filename for log file
path = "summary.out"
path = trim(path_input)//"summary.out"
! Check if log file already exists
inquire(FILE=path, EXIST=file_exists)