Output format changed.

cdn_mt/cdnmt.f90

@@ -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

init/inped.F90

@@ -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

init/strgn_dim.F

@@ -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