comp-chem/cp2k
1
0
Fork 0
mirror of https://github.com/cp2k/cp2k.git synced 2026-07-28 22:25:32 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bug fix...temporary, since this week I hope to commit a major change that will obviate the need for this routine.

Browse source 
svn-origin-rev: 5521
This commit is contained in:
Matthew McGrath 2006-11-05 16:28:46 +00:00
parent c0de18d4b0
commit 8e159ab64e
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/mc_misc.F
View file

@ -1031,7 +1031,8 @@ SUBROUTINE mc_make_dat_file(coordinates,natoms_tot,box_length,filename,&
WRITE(unit,10000) " &CELL"
WRITE(unit,40000) ' ABC ',box_length(1:3)
WRITE(unit,10000) ' UNIT ANGSTROM'
IF(force_env%in_use == use_qs_force) THEN
IF(force_env%in_use == use_qs_force .OR. &
force_env%in_use == use_kg_force) THEN
IF(use_ref_cell) THEN
WRITE(unit,10000) ' &CELL_REF'
WRITE(unit,40000) ' ABC ',&