format file I missed

LLNL · Jun 20, 2024 · 34fed29 · 34fed29
1 parent c3449f7
commit 34fed29
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/test/unit_tests/arkode/F2003_serial/ark_test_table_f2003.f90 b/test/unit_tests/arkode/F2003_serial/ark_test_table_f2003.f90
@@ -25,22 +25,22 @@ program main
   implicit none
 
   type(c_ptr)        :: table      ! Butcher table object
-  character (len=19) :: table_name ! table name
+  character(len=19) :: table_name ! table name
   integer(c_int)     :: ierr       ! error flag
   integer(c_int)     :: q(1)       ! table order
   integer(c_int)     :: p(1)       ! table embedded order
 
   print *, 'Loading ARKODE_DORMAND_PRINCE_7_4_5'
   table = FARKodeButcherTable_LoadERKByName('ARKODE_DORMAND_PRINCE_7_4_5')
   if (.not. c_associated(table)) then
-    write(error_unit,*) 'FARKodeButcherTable_LoadERKByName returned NULL'
+    write (error_unit, *) 'FARKodeButcherTable_LoadERKByName returned NULL'
     stop 1
   end if
 
   print *, 'Checking ARKODE_DORMAND_PRINCE_7_4_5 order'
-  ierr = FARKodeButcherTable_CheckOrder(table, q, p, c_null_ptr);
+  ierr = FARKodeButcherTable_CheckOrder(table, q, p, c_null_ptr); 
   if (ierr /= 0) then
-    write(error_unit, *) 'FARKodeButcherTable_CheckOrder returned ', ierr
+    write (error_unit, *) 'FARKodeButcherTable_CheckOrder returned ', ierr
     stop 1
   end if
 
@@ -50,14 +50,14 @@ program main
   table_name = 'ARKODE_TRBDF2_3_3_2'
   table = FARKodeButcherTable_LoadDIRKByName(table_name)
   if (.not. c_associated(table)) then
-    write(error_unit,*) 'FARKodeButcherTable_LoadDIRKByName returned NULL'
+    write (error_unit, *) 'FARKodeButcherTable_LoadDIRKByName returned NULL'
     stop 1
   end if
 
   print *, 'Checking ARKODE_TRBDF2_3_3_2 order'
-  ierr = FARKodeButcherTable_CheckOrder(table, q, p, c_null_ptr);
+  ierr = FARKodeButcherTable_CheckOrder(table, q, p, c_null_ptr); 
   if (ierr /= 0) then
-    write(error_unit, *) 'FARKodeButcherTable_CheckOrder returned ', ierr
+    write (error_unit, *) 'FARKodeButcherTable_CheckOrder returned ', ierr
     stop 1
   end if
 
@@ -66,14 +66,14 @@ program main
   print *, 'Loading ARKODE_DIRK_NONE'
   table = FARKodeButcherTable_LoadDIRKByName('ARKODE_DIRK_NONE')
   if (c_associated(table)) then
-    write(error_unit, *) 'FARKodeButcherTable_LoadDIRKByName returned non-NULL for ARKODE_DIRK_NONE'
+    write (error_unit, *) 'FARKodeButcherTable_LoadDIRKByName returned non-NULL for ARKODE_DIRK_NONE'
     stop 1
   end if
 
   print *, 'Loading invalid table. This should print an error'
   table = FARKodeButcherTable_LoadERKByName('does not exist')
   if (c_associated(table)) then
-    write(error_unit, *) 'FARKodeButcherTable_LoadERKByName returned non-NULL for invalid table name'
+    write (error_unit, *) 'FARKodeButcherTable_LoadERKByName returned non-NULL for invalid table name'
     stop 1
   end if