diff --git a/src/a_convertfort10/convertfort10.f90 b/src/a_convertfort10/convertfort10.f90 index 22a47e1..fef2e60 100644 --- 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 index 106ef62..e143c1f 100644 --- 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 index c688244..982e458 100644 --- 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 index 310207d..570052b 100644 --- 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 index 4f30748..f0f42f1 100644 --- 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 index 6db819e..b766220 100644 --- 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 index b409a24..05602df 100644 --- 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, *) "----------------------------------------------------------------------------"