Merge pull request #14801 from rmcdermo/master

FDS Source: minor change to HYPRE matrix write

Author: rmcdermo

Source/pres.f90

@@ -4171,7 +4171,7 @@ SUBROUTINE GET_H_MATRIX_LUDCMP
    CALL HYPRE_IJVECTORGETOBJECT(ZSL%HYPRE_ZSL%F_H, ZSL%HYPRE_ZSL%PAR_F_H, HYPRE_IERR)
    CALL HYPRE_IJVECTORGETOBJECT(ZSL%HYPRE_ZSL%X_H, ZSL%HYPRE_ZSL%PAR_X_H, HYPRE_IERR)
 
-  ! Create solver (Parallel Compressed Sparse Row Preconditioned Conjugate Gradient)
+   ! Create solver (Parallel Compressed Sparse Row Preconditioned Conjugate Gradient)
    CALL HYPRE_PARCSRPCGCREATE(MPI_COMM_WORLD, ZSL%HYPRE_ZSL%SOLVER, HYPRE_IERR)
    CALL HYPRE_PARCSRPCGSETMAXITER(ZSL%HYPRE_ZSL%SOLVER, HYPRE_SOLVER_MAXIT, HYPRE_IERR)
    CALL HYPRE_PARCSRPCGSETTOL(ZSL%HYPRE_ZSL%SOLVER, HYPRE_SOLVER_TOL, HYPRE_IERR)
@@ -4190,7 +4190,7 @@ SUBROUTINE GET_H_MATRIX_LUDCMP
    CALL HYPRE_PARCSRPCGSETPRECOND(ZSL%HYPRE_ZSL%SOLVER, HYPRE_PRECOND_ID, ZSL%HYPRE_ZSL%PRECOND, HYPRE_IERR)
    ! Solver setup
    IF(WRITE_PARCSRPCG_MATRIX) THEN
-      WRITE(FN_PARCSRPCG_MATRIX,'(A,A,A)') './',TRIM(CHID),'_hypre_matrix.txt'
+      WRITE(FN_PARCSRPCG_MATRIX,'(A,A)') TRIM(CHID),'_hypre_matrix.txt'
       CALL HYPRE_PARCSRMATRIXPRINT(ZSL%HYPRE_ZSL%PARCSR_A_H, TRIM(FN_PARCSRPCG_MATRIX), LEN(TRIM(FN_PARCSRPCG_MATRIX)), HYPRE_IERR)
    ENDIF
    CALL HYPRE_PARCSRPCGSETUP(ZSL%HYPRE_ZSL%SOLVER, ZSL%HYPRE_ZSL%PARCSR_A_H,&