Commit 4acf2392 authored by Gregor Michalicek's avatar Gregor Michalicek

Remove usage of some nonstandard Fortran extensions

parent 2190bfd6
......@@ -41,8 +41,8 @@ CONTAINS
INTEGER :: matind(DIMENSION%nbasfcn,2),nred
TYPE(t_lapw) :: lapw
LOGICAL:: skip_kpt(kpts%nkpt)
REAL :: g(3)
LOGICAL :: skip_kpt(kpts%nkpt)
INTEGER :: g(3)
#if defined(CPP_MPI)&&defined(CPP_NEVER)
INTEGER :: sndreqd, rcvreqd, rcvreq(kpts%nkpt)
......
......@@ -356,7 +356,7 @@
xmlElectronStates = noState_const
xmlPrintCoreStates = .FALSE.
DO i = 1, atoms%nat
WRITE(atoms%label(i),'(i0)'), i
WRITE(atoms%label(i),'(i0)') i
END DO
DO i = 1, atoms%ntype
noel(i) = namat_const(atoms%nz(i))
......
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