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