Yet another funny bug of PGI compiler workaround

QEF · Apr 19, 2018 · f43e72c · f43e72c
1 parent 7ca9678
commit f43e72c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Modules/qexsd.f90 b/Modules/qexsd.f90
@@ -1235,7 +1235,7 @@ SUBROUTINE  qexsd_init_outputElectricField(obj, lelfield, tefield, ldipole, lber
     TYPE(outputElectricField_type)                    :: obj 
     ! 
     LOGICAL,INTENT(IN)                                :: lberry, lelfield, tefield, ldipole
-    REAL(DP),OPTIONAL,DIMENSION(3),INTENT(IN)         :: el_pol, ion_pol
+    REAL(DP),OPTIONAL,INTENT(IN)                      :: el_pol(:), ion_pol(:)
     TYPE(berryPhaseOutput_type),OPTIONAL,INTENT(IN)   :: bp_obj
     TYPE ( dipoleOutput_type ),OPTIONAL, INTENT(IN)   :: dipole_obj 
     TYPE ( gateInfo_type),OPTIONAL,INTENT(IN)         :: gateInfo