3
c Shows fdf capabilities..
8
parameter ( maxa = 100 )
10
character fname*20, symbol(maxa)*2
11
integer i, ia, isa(maxa), na, na_default, iblk
13
double precision factor, xa(3,maxa), cutoff, phonon_energy
19
call fdf_init('sample.fdf','sample.out')
21
if (fdf_defined('new-style')) write(6,*) 'New-style stuff'
24
na = fdf_integer('NumberOfAtoms', na_default )
25
write(6,*) 'examples: na =', na
27
fname = fdf_string('NameOfFile','calimero')
30
cutoff = fdf_physical('MeshCutoff',8.d0,'Ry')
33
phonon_energy = fdf_physical('phonon-energy',0.01d0,'eV')
34
write(6,*) phonon_energy
36
i = fdf_integer('SomeInt',34)
39
wmix = fdf_single('WmixValue',0.55)
42
factor = fdf_double('FactorValue',1.d-10)
45
debug = fdf_boolean('Debug',.true.)
48
doit = fdf_boolean('DoIt',.false.)
51
if (fdf_block('AtomicCoordinatesAndAtomicSpecies',iblk)) then
53
read(iblk,*) (xa(i,ia),i=1,3), isa(ia)
57
if (fdf_block('AtomicSymbolsAndAtomicCoordinates',iblk)) then
59
read(iblk,*) symbol(ia), (xa(i,ia),i=1,3)
64
write(6,*) (xa(i,ia),i=1,3)
67
if (fdf_block('AtomicInfo',iblk)) then
69
read(iblk,*) (xa(i,ia),i=1,3)
74
write(6,*) (xa(i,ia),i=1,3)