Commit c55cc339 authored by Marco Govoni's avatar Marco Govoni
Browse files

Corrected typo

parent 54c4aada
...@@ -52,8 +52,8 @@ MODULE pdep_io ...@@ -52,8 +52,8 @@ MODULE pdep_io
CHARACTER(LEN=30) :: endian CHARACTER(LEN=30) :: endian
INTEGER :: npwqx_g INTEGER :: npwqx_g
INTEGER, ALLOCATABLE :: igq_l2g_kdip(:), igq_l2g(:) INTEGER, ALLOCATABLE :: igq_l2g_kdip(:), igq_l2g(:)
LOGICAL, PARAMETER :: default_iq = 1 INTEGER, PARAMETER :: default_iq = 1
LOGICAL :: iq_ INTEGER :: iq_
! !
IF( PRESENT(iq) ) THEN IF( PRESENT(iq) ) THEN
iq_ = iq iq_ = iq
...@@ -141,8 +141,8 @@ MODULE pdep_io ...@@ -141,8 +141,8 @@ MODULE pdep_io
LOGICAL :: found, isle LOGICAL :: found, isle
INTEGER :: npwqx_g INTEGER :: npwqx_g
INTEGER, ALLOCATABLE :: igq_l2g_kdip(:), igq_l2g(:) INTEGER, ALLOCATABLE :: igq_l2g_kdip(:), igq_l2g(:)
LOGICAL, PARAMETER :: default_iq = 1 INTEGER, PARAMETER :: default_iq = 1
LOGICAL :: iq_ INTEGER :: iq_
! !
IF( PRESENT(iq) ) THEN IF( PRESENT(iq) ) THEN
iq_ = iq iq_ = iq
......
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