Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Browse files

small cleanups

  • Loading branch information...
commit 58f2293059baddd60f552c5eb8fde2d8938e789f 1 parent 0065812
@akohlmey authored
Showing with 6 additions and 5 deletions.
  1. +1 −1  doc/install.doc
  2. +5 −4 src/sysinfo.f90
2  doc/install.doc
@@ -13,7 +13,7 @@ While the design of the program tries to incorporate object oriented
programming design pattersn, the use of any Fortran language specifics
that were introduced in the Fortran 2003 and Fortran 2008 standards
were avoided in order to increase portability.
-The however many features have been introduced with Fortran 90/95 are
+However many new features introduced with Fortran 90/95 are
used extensively, so full compatibility with Fortran 95 is assumed.
As of this writing GNU gfortran version 4.5.x and Intel ifort version 11.x
were tested successfully and should be assumed to be the minimum requirements.
9 src/sysinfo.f90
@@ -54,7 +54,7 @@ subroutine sysinfo_read
use io
use atoms, only: atoms_init, atoms_replicate, types_init
use cell, only: cell_init
- use memory, only: alloc_vec, clear_vec
+ use memory, only: alloc_vec, clear_vec, memory_print
integer :: ierr, topchannel, poschannel, velchannel
! input is only read by io task
@@ -80,8 +80,6 @@ subroutine sysinfo_read
write(stdout,*) 'Positions read from : ', trim(posfile)
write(stdout,*) 'Velocities read from : ', trim(velfile)
write(stdout,*) separator
- write(stdout,nml=sysinfo)
- write(stdout,*) separator
! initialize system storage
call atoms_init(maxtypes)
@@ -119,7 +117,7 @@ subroutine sysinfo_read
open(unit=geoin, file=trim(posfile), form='formatted', &
status='old', iostat=ierr)
if (ierr /= 0) call mp_error('Failure opening geometry file',ierr)
- write(stdout,*) 'Using geometry from file', trim(posfile)
+ write(stdout,*) 'Using geometry from file: ', trim(posfile)
poschannel = geoin
end if
@@ -137,10 +135,13 @@ subroutine sysinfo_read
call mp_error('Unknown or unsupported input data format',ierr)
end if
+ write(stdout,*) separator
+ call memory_print
end if ! mp_ioproc()
call atoms_replicate(maxtypes)
! call cell_replicate
end subroutine sysinfo_read
subroutine xyz_topogeom(channel)

0 comments on commit 58f2293

Please sign in to comment.
Something went wrong with that request. Please try again.