Merge pull request sissaschool#69 from kousuke-nakano/devel-#10

version info. is printed in the stand-alone .f90 programs
kousuke-nakano · Jul 13, 2023 · 62d0d84 · 62d0d84
2 parents 892da00 + 11ae732
commit 62d0d84
Show file tree

Hide file tree

Showing 7 changed files with 20 additions and 1 deletion.
diff --git a/src/a_convertfort10/convertfort10.f90 b/src/a_convertfort10/convertfort10.f90
@@ -121,6 +121,9 @@ program convertfort10
     nprocn = 1
     commopt_mpi = 0
 #endif
+    ! output version information
+    if (rankn .eq. 0) call print_version
+
     proc8 = nprocn
     !#ifdef __CASO
     !#else

diff --git a/src/a_convertfort10mol/convertfort10mol.f90 b/src/a_convertfort10mol/convertfort10mol.f90
@@ -62,6 +62,9 @@ program convertfort10mol
     end if
     !    AAA   end lines to be added
 #endif
+    ! output version information
+    if (rankn .eq. 0) call print_version
+
     nprocu = nprocn
     nproc_diag = nprocu
     call mpi_sub_comm_create(comm_mpi, nproc_diag, sub_comm_diag, ierr)

diff --git a/src/a_convertfortpfaff/convertpfaff.f90 b/src/a_convertfortpfaff/convertpfaff.f90
@@ -34,6 +34,9 @@ program convertpfaff
     real*8 scale_unp, angle_rot, phi_rot
     real*8, dimension(:, :), allocatable :: surot, suscra, sutry
 
+    ! output version information
+    call print_version
+
     !reading and saving the quantities of the fort.10_in
 
     open (unit=10, file='fort.10_in', form='formatted', status='unknown')

diff --git a/src/a_makefort10/makefort10.f90 b/src/a_makefort10/makefort10.f90
@@ -148,6 +148,9 @@ program makefort10
         stop
     end if
 
+    ! output version information
+    call print_version
+
     write (*, *)
     write (*, *) ' * * * Creates fort.10 for solids and open systems * * * '
     write (*, *)

diff --git a/src/a_prep/prep.f90 b/src/a_prep/prep.f90
@@ -61,6 +61,10 @@ program main
     old_threads = 1
 #endif
 
+    ! output version information
+    if (rank .eq. 0) call print_version
+
+    ! print threads and mpi info.
     if (rank .eq. 0) write (6, *) ' Number of threads /mpi proc =', old_threads
 
 #if defined UNREL_SMP

diff --git a/src/a_readforward/readforward.f90 b/src/a_readforward/readforward.f90
@@ -233,6 +233,9 @@ program readforward
     sizep = 1
 #endif
 
+    ! output version information
+    if (rank .eq. 0) call print_version
+
     zero = 0.d0
     max_shells = 20000 ! max number of k-shells allowed
 

diff --git a/src/m_common/_version.f90 b/src/m_common/_version.f90
@@ -1,6 +1,6 @@
 subroutine print_version
     implicit none
-    character(LEN=6) :: version_number = '0.0.1'
+    character(LEN=6) :: version_number = '1.0.0'
     character(LEN=40) :: git_revision = 'unknown'
 
     write (6, *) "----------------------------------------------------------------------------"