ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

must write out 3 lines of comment in fortran code. sync output style with python

Browse Source
This commit is contained in:
Axel Kohlmeyer
2022-02-12 10:04:24 -05:00
parent 2fdadcfeb6
commit 8808b11d26
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
tools/eam_database/create.f
View File

@ -243,11 +243,14 @@ ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
outfile = outfile(1:index(outfile,' ')-1)//'.eam.alloy' outfile = outfile(1:index(outfile,' ')-1)//'.eam.alloy'
open(unit=1,file=outfile) open(unit=1,file=outfile)
call date_and_time(DATE=date) call date_and_time(DATE=date)
write(1,*) ' DATE: ',date(1:4),'-',date(5:6),'-',date(7:8),' ', write(1,*) '# DATE: ',date(1:4),'-',date(5:6),'-',date(7:8),' ',
* 'UNITS: metal ',
* 'CONTRIBUTOR: Xiaowang Zhou xzhou@sandia.gov and ', * 'CONTRIBUTOR: Xiaowang Zhou xzhou@sandia.gov and ',
* 'Lucas Hale lucas.hale@nist.gov ', * 'Lucas Hale lucas.hale@nist.gov ',
* 'CITATION: X. W. Zhou, R. A. Johnson, ', * 'CITATION: X. W. Zhou, R. A. Johnson, ',
* 'H. N. G. Wadley, Phys. Rev. B, 69, 144113(2004)' * 'H. N. G. Wadley, Phys. Rev. B, 69, 144113(2004)'
write(1,*) '# created by create.f'
write(1,*) '#'
write(1,8)ntypes,outelem write(1,8)ntypes,outelem
8 format(i5,' ',a24) 8 format(i5,' ',a24)
write(1,9)nrho,drho,nr,dr,rc write(1,9)nrho,drho,nr,dr,rc