Merge pull request #681 from edoapra/master

updates
This commit is contained in:
Edoardo Aprà 2022-11-02 08:00:55 -07:00 committed by GitHub
commit 1f2cd25356
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 12 additions and 0 deletions

View file

@ -8,7 +8,9 @@ c
#include "esp_common.fh"
#include "global.fh"
#include "msgids.fh"
#include "geom.fh"
#include "util.fh"
#include "errquit.fh"
c
real*8 x(3,natoms),q(ndim,4)
real*8 g(*)
@ -83,6 +85,7 @@ c
c
call util_file_name('xyz',.false.,.false.,xyzfil)
open(unit=lfnxyz,file=xyzfil,form='formatted',status='unknown')
#if 0
write(lfnxyz,2000) natoms
2000 format('* Coordinates in XYZ format',/,i5)
do 5 i=1,natoms
@ -90,6 +93,11 @@ c
+ (10.0d0*cau2nm*x(j,i),j=1,3),q(i,4)
2001 format(a,t3,4f12.6)
5 continue
#else
if(.not.geom_print_xyz(igeom, lfnxyz))
A call errquit(' failed geom_print_xyz',
E 0, GEOM_ERR)
#endif
close(lfnxyz)
endif
c

View file

@ -158,6 +158,10 @@ function get_mpi_lib ()
outlist="${outlist} ${word}"
fi
done
# homebrew hwloc
if pkg-config --exists hwloc; then
outlist="${outlist} $(pkg-config --libs-only-L hwloc 2> /dev/null) -lhwloc"
fi
echo ${outlist}
}
function get_mpi_fortran ()