mirror of https://gitlab.com/QEF/q-e.git
Small fixes for "pedantic" compilation
This commit is contained in:
parent
305f46b881
commit
90a0de8e13
|
@ -773,6 +773,14 @@ END SUBROUTINE laxlib_multi_init_desc_x
|
|||
DEALLOCATE(work_d)
|
||||
#endif
|
||||
#else
|
||||
IMPLICIT NONE
|
||||
include 'laxlib_kinds.fh'
|
||||
INTEGER :: m
|
||||
REAL(DP) :: rhos(:,:)
|
||||
REAL(DP) :: rhod(:)
|
||||
REAL(DP) :: s(:,:)
|
||||
INTEGER :: info
|
||||
!
|
||||
CALL lax_error__( ' laxlib diagonalize_serial_gpu ', ' not compiled in this version ', 0 )
|
||||
#endif
|
||||
END SUBROUTINE
|
||||
|
|
|
@ -77,7 +77,7 @@ MODULE lmdif_module
|
|||
DOUBLEPRECISION x (n), fvec (m)
|
||||
EXTERNAL fcn
|
||||
! internal variables
|
||||
INTEGER ipvt(n), maxfev
|
||||
INTEGER ipvt(n), maxfev, mode
|
||||
DOUBLEPRECISION qtf(n), fjac(m,n), diag(n)
|
||||
DOUBLEPRECISION wa1 (n), wa2(n), wa3(n), wa4(m)
|
||||
INTEGER iwa (n), nprint, nfev
|
||||
|
|
|
@ -17,7 +17,6 @@ MODULE parser
|
|||
PRIVATE
|
||||
!
|
||||
PUBLIC :: parse_unit, field_count, read_line, get_field
|
||||
PUBLIC :: version_parse, version_compare
|
||||
!
|
||||
INTEGER :: parse_unit = 5 ! normally 5, but can be set otherwise
|
||||
!
|
||||
|
|
Loading…
Reference in New Issue