Commit 2b430c98 authored by Uliana Alekseeva's avatar Uliana Alekseeva

Output format changed.

parent 706c24b6
......@@ -147,7 +147,7 @@ CONTAINS
chmom(itype,ispin) = qmtt
WRITE (6,FMT=8100) itype, (qmtl(l),l=0,3),qmtt
WRITE (16,FMT=8100) itype, (qmtl(l),l=0,3),qmtt
8100 FORMAT (' -->',i2,2x,4f9.5,2x,f9.5)
8100 FORMAT (' -->',i3,2x,4f9.5,2x,f9.5)
attributes = ''
WRITE(attributes(1),'(i0)') itype
......
......@@ -401,7 +401,7 @@
!---> evaluate cartesian coordinates of positions
WRITE (6,FMT=8190) atoms%ntype,atoms%nat
8190 FORMAT (/,/,' number of atom types=',i3,/,&
& ' total number of atoms=',i2,/,/,t3,'no.',t10,'type',&
& ' total number of atoms=',i4,/,/,t3,'no.',t10,'type',&
& t21,'int.-coord.',t49,'cart.coord.',t76,'rmt',t84,&
& 'jri',t92,'dx',t98,'lmax',/)
na = 0
......
......@@ -164,7 +164,7 @@ c-odim modifications due to one-dimensionality, YM
c+odim
c listing
WRITE (6,8000) gmax,n3d,n2d,k1d,k2d,k3d
8000 FORMAT (' gmax=',f10.6/' n3d= ',i5/' n2d= ',i5/' k1d= ',
8000 FORMAT (' gmax=',f10.6/' n3d= ',i10/' n2d= ',i5/' k1d= ',
+ i5/' k2d= ',i5/' k3d= ',i5/)
DEALLOCATE (kv2)
......@@ -274,8 +274,8 @@ c
c
c listing
WRITE (6,8000) gmax,n3d,n2d,k1d,k2d,k3d
8000 FORMAT (' gmax=',f10.6/' n3d= ',i5/' n2d= ',i5/' k1d= ',
+ i5/' k2d= ',i5/' k3d= ',i5/)
8000 FORMAT (' gmax=',f10.6/' n3d= ',i7/' n2d= ',i7/' k1d= ',
+ i7/' k2d= ',i7/' k3d= ',i7/)
DEALLOCATE (kv3,ig)
END SUBROUTINE strgn2_dim
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment