Merge pull request #54 from ORNL-Fusion/master_dev

Master dev
ORNL-Fusion · Sep 20, 2024 · b6a32f9 · b6a32f9
2 parents 4b6f80b + aa9ff00
commit b6a32f9
Showing 1 changed file with 9 additions and 10 deletions.
diff --git a/Sources/siesta.f90 b/Sources/siesta.f90
@@ -54,16 +54,15 @@ PROGRAM SIESTA
       CALL getcarg(1, command_arg, numargs)
 
       IF (numargs .gt. 0) THEN
-         IF (LEN_TRIM(temp) .ne. 0) THEN
-            IF (command_arg(1:7) .ne. 'siesta_' .AND.                          &
-                command_arg(1:7) .ne. 'SIESTA_') THEN
-               temp = 'siesta_' // TRIM(command_arg)
-            END IF
-            length = LEN_TRIM(temp)
-            IF (temp(length - 3:length) .ne. '.jcf' .AND.                        &
-                temp(length - 3:length) .ne. '.JCF') THEN
-               temp = TRIM(temp) // '.jcf'
-            END IF
+         temp = TRIM(command_arg)
+         IF (command_arg(1:7) .ne. 'siesta_' .AND.                          &
+             command_arg(1:7) .ne. 'SIESTA_') THEN
+            temp = 'siesta_' // TRIM(command_arg)
+         END IF
+         length = LEN_TRIM(temp)
+         IF (temp(length - 3:length) .ne. '.jcf' .AND.                        &
+             temp(length - 3:length) .ne. '.JCF') THEN
+            temp = TRIM(temp) // '.jcf'
          END IF
       ELSE
          temp = 'siesta.jcf'