Commit 2b969166 authored by Gregor Michalicek's avatar Gregor Michalicek

Remove spaces from plot file names

parent 2b90c99b
...@@ -188,7 +188,7 @@ SUBROUTINE plotdop(oneD,dimension,stars,vacuum,sphhar,atoms,& ...@@ -188,7 +188,7 @@ SUBROUTINE plotdop(oneD,dimension,stars,vacuum,sphhar,atoms,&
outFilenames(1) = 'plot' outFilenames(1) = 'plot'
ELSE ELSE
DO i = 1, numInFiles DO i = 1, numInFiles
outFilenames(i) = cdnFilenames(i)//'_pl' outFilenames(i) = TRIM(ADJUSTL(cdnFilenames(i)))//'_pl'
END DO END DO
IF (polar) THEN IF (polar) THEN
outFilenames(5) = 'mabs_pl' outFilenames(5) = 'mabs_pl'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment