Write outputs to a .txt file

gha3mi · May 8, 2024 · bcabea3 · bcabea3
1 parent 59f4290
commit bcabea3
Show file tree

Hide file tree

Showing 51 changed files with 33 additions and 57 deletions.
diff --git a/.gitignore b/.gitignore
@@ -1,3 +1,4 @@
 /build
 /doc
-/mod
+/mod
+*.txt
diff --git a/example/example2.f90 b/example/example2.f90
@@ -12,6 +12,6 @@ program example2
         call sleep(1) ! Perform operations ntimes
     end do
    call t%timer_stop(nloops = nloops, message = 'Elapsed time:', print = .true., color='green') ! nloops, message, print and color are optional. 
-   call t%timer_write('example/example2_etimes') ! Optionally, write the elapsed time to a file
+   call t%timer_write('example/example2_etimes.txt') ! Optionally, write the elapsed time to a file
 
 end program example2
diff --git a/example/example2_etimes b/example/example2_etimes
diff --git a/example/example4.f90 b/example/example4.f90
@@ -12,6 +12,6 @@ program example4
         call sleep(1) ! Perform operations ntimes
     end do
    call t%ctimer_stop(nloops = nloops, message = 'CPU time:', print = .true., color='yellow') ! nloops, message, print and color are optional. 
-   call t%ctimer_write('example/example4_ctimes') ! Optionally, write the elapsed time to a file
+   call t%ctimer_write('example/example4_ctimes.txt') ! Optionally, write the elapsed time to a file
 
 end program example4
diff --git a/example/example4_ctimes b/example/example4_ctimes
diff --git a/example/example6.f90 b/example/example6.f90
@@ -12,6 +12,6 @@ program example6
         call sleep(1) ! Perform operations ntimes
     end do
    call t%dtimer_stop(nloops = nloops, message = 'Elapsed time:', print = .true., color='red') ! nloops, message, print and color are optional. 
-   call t%dtimer_write('example/example6_etimes') ! Optionally, write the elapsed time to a file
+   call t%dtimer_write('example/example6_etimes.txt') ! Optionally, write the elapsed time to a file
 
 end program example6
diff --git a/example/example6_etimes b/example/example6_etimes
diff --git a/test/test10.f90 b/test/test10.f90
@@ -6,12 +6,12 @@ program test10
 
    implicit none
 
+#if defined(USE_MPI)
    type(timer) :: t
    type(unit_test) :: ut
    integer :: ierr
 
 
-#if defined(USE_MPI)
    ! MPI time
    call mpi_init(ierr)
    call t%mtimer_start()

diff --git a/test/test11.f90 b/test/test11.f90
@@ -6,13 +6,13 @@ program test11
 
    implicit none
 
+#if defined(USE_MPI)
    type(timer) :: t
    type(unit_test) :: ut
    integer :: nl, nloops=3
    integer :: ierr
 
 
-#if defined(USE_MPI)
    ! MPI time with nloops
    call mpi_init(ierr)
    call t%mtimer_start()
@@ -21,7 +21,7 @@ program test11
    end do
    call t%mtimer_stop(nloops = nloops, message = 'MPI time:')
    call mpi_finalize(ierr)
-   call t%mtimer_write('test/test11_mtimes') ! Optionally, write the elapsed time to a file
+   call t%mtimer_write('test/test11_mtimes.txt') ! Optionally, write the elapsed time to a file
 
    call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test11')
 

diff --git a/test/test11_mtimes b/test/test11_mtimes
diff --git a/test/test12.f90 b/test/test12.f90
@@ -6,13 +6,13 @@ program test12
 
    implicit none
 
+#if defined(USE_MPI)
    type(timer) :: t
    type(unit_test) :: ut
    integer :: nl, nloops=3
    integer :: ierr
 
 
-#if defined(USE_MPI)
    ! MPI time with nloops
    call mpi_init(ierr)
    call t%mtimer_start()

diff --git a/test/test12_mtimes b/test/test12_mtimes
diff --git a/test/test14.f90 b/test/test14.f90
@@ -17,7 +17,7 @@ program test14
       call sleep(1) ! Perform operations ntimes
    end do
    call t%timer_stop(nloops = nloops, message = 'Elapsed time:', print=.false.)
-   call t%timer_write('test/test14_etimes') ! Optionally, write the elapsed time to a file
+   call t%timer_write('test/test14_etimes.txt') ! Optionally, write the elapsed time to a file
 
    call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test14')
 

diff --git a/test/test14_etimes b/test/test14_etimes
diff --git a/test/test15.f90 b/test/test15.f90
@@ -17,7 +17,7 @@ program test15
       call sleep(1) ! Perform operations ntimes
    end do
    call t%timer_stop(message = 'Elapsed time:', print=.false.)
-   call t%timer_write('test/test15_etimes') ! Optionally, write the elapsed time to a file
+   call t%timer_write('test/test15_etimes.txt') ! Optionally, write the elapsed time to a file
 
    call ut%check(res=t%elapsed_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-1_rk, msg='test15')
 

diff --git a/test/test15_etimes b/test/test15_etimes
diff --git a/test/test17.f90 b/test/test17.f90
@@ -15,7 +15,7 @@ program test17
       call sleep(1) ! Perform operations ntimes
    end do
    call t%ctimer_stop(nloops = nloops, message = 'CPU time:', print=.false.)
-   call t%ctimer_write('test/test17_ctimes') ! Optionally, write the elapsed time to a file
+   call t%ctimer_write('test/test17_ctimes.txt') ! Optionally, write the elapsed time to a file
 
 end program test17
 
diff --git a/test/test17_ctimes b/test/test17_ctimes
diff --git a/test/test18.f90 b/test/test18.f90
@@ -15,7 +15,7 @@ program test18
       call sleep(1) ! Perform operations ntimes
    end do
    call t%ctimer_stop(message = 'CPU time:', print=.false.)
-   call t%ctimer_write('test/test18_ctimes') ! Optionally, write the elapsed time to a file
+   call t%ctimer_write('test/test18_ctimes.txt') ! Optionally, write the elapsed time to a file
 
 end program test18
 
diff --git a/test/test18_ctimes b/test/test18_ctimes
diff --git a/test/test19.f90 b/test/test19.f90
@@ -6,11 +6,11 @@ program test19
 
    implicit none
 
+#if defined(USE_OMP)
    type(timer) :: t
    type(unit_test) :: ut
 
 
-#if defined(USE_OMP)
    ! OMP time
    call t%otimer_start()
       call sleep(1) ! Perform operations here

diff --git a/test/test2.f90 b/test/test2.f90
@@ -17,7 +17,7 @@ program test2
       call sleep(1) ! Perform operations ntimes
    end do
    call t%timer_stop(nloops = nloops, message = 'Elapsed time:')
-   call t%timer_write('test/test2_etimes') ! Optionally, write the elapsed time to a file
+   call t%timer_write('test/test2_etimes.txt') ! Optionally, write the elapsed time to a file
 
    call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test2')
 

diff --git a/test/test20.f90 b/test/test20.f90
@@ -6,19 +6,19 @@ program test20
 
    implicit none
 
+#if defined(USE_OMP)
    type(timer) :: t
    type(unit_test) :: ut
    integer :: nl, nloops=3
 
 
-#if defined(USE_OMP)
    ! OMP time with nloops
    call t%otimer_start()
    do nl = 1, nloops
       call sleep(1) ! Perform operations ntimes
    end do
    call t%otimer_stop(nloops = nloops, message = 'OMP time:', print=.false.)
-   call t%otimer_write('test/test20_otimes') ! Optionally, write the elapsed time to a file
+   call t%otimer_write('test/test20_otimes.txt') ! Optionally, write the elapsed time to a file
 
    call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test20')
 

diff --git a/test/test20_otimes b/test/test20_otimes
diff --git a/test/test21.f90 b/test/test21.f90
@@ -6,12 +6,12 @@ program test21
 
    implicit none
 
+#if defined(USE_OMP)
    type(timer) :: t
    type(unit_test) :: ut
    integer :: nl, nloops=3
 
 
-#if defined(USE_OMP)
    ! OMP time with nloops
    call t%otimer_start()
    do nl = 1, nloops

diff --git a/test/test21_otimes b/test/test21_otimes
diff --git a/test/test22.f90 b/test/test22.f90
@@ -6,12 +6,12 @@ program test22
 
    implicit none
 
+#if defined(USE_MPI)
    type(timer) :: t
    type(unit_test) :: ut
    integer :: ierr
 
 
-#if defined(USE_MPI)
    ! MPI time
    call mpi_init(ierr)
    call t%mtimer_start()

diff --git a/test/test23.f90 b/test/test23.f90
@@ -6,13 +6,13 @@ program test23
 
    implicit none
 
+#if defined(USE_MPI)
    type(timer) :: t
    type(unit_test) :: ut
    integer :: nl, nloops=3
    integer :: ierr
 
 
-#if defined(USE_MPI)
    ! MPI time with nloops
    call mpi_init(ierr)
    call t%mtimer_start()
@@ -21,7 +21,7 @@ program test23
    end do
    call t%mtimer_stop(nloops = nloops, message = 'MPI time:', print=.false.)
    call mpi_finalize(ierr)
-   call t%mtimer_write('test/test23_mtimes') ! Optionally, write the elapsed time to a file
+   call t%mtimer_write('test/test23_mtimes.txt') ! Optionally, write the elapsed time to a file
 
    call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test23')
 

diff --git a/test/test23_mtimes b/test/test23_mtimes
diff --git a/test/test24.f90 b/test/test24.f90
@@ -6,13 +6,13 @@ program test24
 
    implicit none
 
+#if defined(USE_MPI)
    type(timer) :: t
    type(unit_test) :: ut
    integer :: nl, nloops=3
    integer :: ierr
 
 
-#if defined(USE_MPI)
    ! MPI time with nloops
    call mpi_init(ierr)
    call t%mtimer_start()

diff --git a/test/test24_mtimes b/test/test24_mtimes
diff --git a/test/test26.f90 b/test/test26.f90
@@ -17,7 +17,7 @@ program test26
       call sleep(1) ! Perform operations ntimes
    end do
    call t%dtimer_stop(nloops = nloops, message = 'Elapsed time:')
-   call t%dtimer_write('test/test26_etimes') ! Optionally, write the elapsed time to a file
+   call t%dtimer_write('test/test26_etimes.txt') ! Optionally, write the elapsed time to a file
 
    call ut%check(res=t%elapsed_dtime, expected=1.0_rk, tol=1.0e-1_rk, msg='test26')
 

diff --git a/test/test26_etimes b/test/test26_etimes
diff --git a/test/test27.f90 b/test/test27.f90
@@ -17,7 +17,7 @@ program test27
       call sleep(1) ! Perform operations ntimes
    end do
    call t%dtimer_stop(message = 'Elapsed time:')
-   call t%dtimer_write('test/test27_etimes') ! Optionally, write the elapsed time to a file
+   call t%dtimer_write('test/test27_etimes.txt') ! Optionally, write the elapsed time to a file
 
    call ut%check(res=t%elapsed_dtime, expected=real(nloops,rk)*1.0_rk, tol=1.0e-1_rk, msg='test27')
 

diff --git a/test/test27_etimes b/test/test27_etimes
diff --git a/test/test29.f90 b/test/test29.f90
@@ -17,7 +17,7 @@ program test29
       call sleep(1) ! Perform operations ntimes
    end do
    call t%dtimer_stop(nloops = nloops, message = 'Elapsed time:', print=.false.)
-   call t%dtimer_write('test/test29_etimes') ! Optionally, write the elapsed time to a file
+   call t%dtimer_write('test/test29_etimes.txt') ! Optionally, write the elapsed time to a file
 
    call ut%check(res=t%elapsed_dtime, expected=1.0_rk, tol=1.0e-1_rk, msg='test29')
 

diff --git a/test/test29_etimes b/test/test29_etimes
diff --git a/test/test2_etimes b/test/test2_etimes
diff --git a/test/test3.f90 b/test/test3.f90
@@ -17,7 +17,7 @@ program test3
       call sleep(1) ! Perform operations ntimes
    end do
    call t%timer_stop(message = 'Elapsed time:')
-   call t%timer_write('test/test3_etimes') ! Optionally, write the elapsed time to a file
+   call t%timer_write('test/test3_etimes.txt') ! Optionally, write the elapsed time to a file
 
    call ut%check(res=t%elapsed_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-1_rk, msg='test3')
 

diff --git a/test/test30.f90 b/test/test30.f90
@@ -17,7 +17,7 @@ program test30
       call sleep(1) ! Perform operations ntimes
    end do
    call t%dtimer_stop(message = 'Elapsed time:', print=.false.)
-   call t%dtimer_write('test/test30_etimes') ! Optionally, write the elapsed time to a file
+   call t%dtimer_write('test/test30_etimes.txt') ! Optionally, write the elapsed time to a file
 
    call ut%check(res=t%elapsed_dtime, expected=real(nloops,rk)*1.0_rk, tol=1.0e-1_rk, msg='test30')
 

diff --git a/test/test30_etimes b/test/test30_etimes
diff --git a/test/test3_etimes b/test/test3_etimes
diff --git a/test/test5.f90 b/test/test5.f90
@@ -15,7 +15,7 @@ program test5
       call sleep(1) ! Perform operations ntimes
    end do
    call t%ctimer_stop(nloops = nloops, message = 'CPU time:')
-   call t%ctimer_write('test/test5_ctimes') ! Optionally, write the elapsed time to a file
+   call t%ctimer_write('test/test5_ctimes.txt') ! Optionally, write the elapsed time to a file
 
 end program test5
 
diff --git a/test/test5_ctimes b/test/test5_ctimes
diff --git a/test/test6.f90 b/test/test6.f90
@@ -15,7 +15,7 @@ program test6
       call sleep(1) ! Perform operations ntimes
    end do
    call t%ctimer_stop(message = 'CPU time:')
-   call t%ctimer_write('test/test6_ctimes') ! Optionally, write the elapsed time to a file
+   call t%ctimer_write('test/test6_ctimes.txt') ! Optionally, write the elapsed time to a file
 
 end program test6
 
diff --git a/test/test6_ctimes b/test/test6_ctimes
diff --git a/test/test7.f90 b/test/test7.f90
@@ -6,11 +6,11 @@ program test7
 
    implicit none
 
+#if defined(USE_OMP)
    type(timer) :: t
    type(unit_test) :: ut
 
 
-#if defined(USE_OMP)
    ! OMP time
    call t%otimer_start()
       call sleep(1) ! Perform operations here

diff --git a/test/test8.f90 b/test/test8.f90
@@ -6,19 +6,19 @@ program test8
 
    implicit none
 
+#if defined(USE_OMP)
    type(timer) :: t
    type(unit_test) :: ut
    integer :: nl, nloops=3
 
 
-#if defined(USE_OMP)
    ! OMP time with nloops
    call t%otimer_start()
    do nl = 1, nloops
       call sleep(1) ! Perform operations ntimes
    end do
    call t%otimer_stop(nloops = nloops, message = 'OMP time:')
-   call t%otimer_write('test/test8_otimes') ! Optionally, write the elapsed time to a file
+   call t%otimer_write('test/test8_otimes.txt') ! Optionally, write the elapsed time to a file
 
    call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test8')
 

diff --git a/test/test8_otimes b/test/test8_otimes
diff --git a/test/test9.f90 b/test/test9.f90
@@ -6,12 +6,12 @@ program test9
 
    implicit none
 
+#if defined(USE_OMP)
    type(timer) :: t
    type(unit_test) :: ut
    integer :: nl, nloops=3
 
 
-#if defined(USE_OMP)
    ! OMP time with nloops
    call t%otimer_start()
    do nl = 1, nloops

diff --git a/test/test9_otimes b/test/test9_otimes
-Original file line number
+Diff line change
@@ -1,3 +1,4 @@
     /build
     /doc
-    /mod
+    /mod
+    *.txt