Progress to resolving the bug with complex testers

SRC/zgedmdq.f90

@@ -8,9 +8,9 @@ SUBROUTINE ZGEDMDQ( JOBS,  JOBZ, JOBR, JOBQ, JOBT, JOBF,   &
 !.....
 !      USE PRECISION, ONLY: WP => DP ! double precision
 !      IMPLICIT NONE
-       use iso_fortran_env, only: real32
+       use iso_fortran_env, only: real64
        IMPLICIT NONE
-       integer, parameter :: WP = real32
+       integer, parameter :: WP = real64
 
 !.....
 !     Scalar arguments
@@ -616,6 +616,8 @@ SUBROUTINE ZGEDMDQ( JOBS,  JOBZ, JOBR, JOBQ, JOBT, JOBF,   &
           ZWORK(1) = MLWORK
           ZWORK(2) = OLWORK
           WORK(1)  = MLRWRK
+          !WRITE(*,*) 'ZWORK(1) = ', ZWORK(1)
+          !WRITE(*,*) 'ZWORK(2) = ', ZWORK(2)
           RETURN
       END IF
 !.....
@@ -645,6 +647,7 @@ SUBROUTINE ZGEDMDQ( JOBS,  JOBZ, JOBR, JOBQ, JOBT, JOBF,   &
                   EIGS, Z, LDZ, RES, B,  LDB,   V, LDV,    &
                   S, LDS, ZWORK(MINMN+1), LZWORK-MINMN, &
                   WORK,   LWORK, IWORK, LIWORK, INFO1 )
+                  !S, LDS, ZWORK(MINMN+1), LZWORK-MINMN, &
       IF ( INFO1 == 2 .OR. INFO1 == 3 ) THEN
           ! Return with error code. See ZGEDMD for details.
           INFO = INFO1

TESTING/EIG/Makefile

@@ -83,6 +83,8 @@ CEIGTST = cchkee.o \
    csgt01.o cslect.o csyl01.o\
    cstt21.o cstt22.o cunt01.o cunt03.o
 
+CDMDEIGTST = cchkdmd.o
+
 DZIGTST = dlafts.o dlahd2.o dlasum.o dlatb9.o dstech.o dstect.o \
    dsvdch.o dsvdct.o dsxt1.o
 
@@ -129,13 +131,16 @@ all: single complex double complex16
 
 .PHONY: single complex double complex16
 single: xeigtsts xdmdeigtsts
-complex: xeigtstc
+complex: xeigtstc xdmdeigtstc
 double: xeigtstd xdmdeigtstd
 complex16: xeigtstz xdmdeigtstz
 
 xdmdeigtsts: $(SDMDEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
 	$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
 
+xdmdeigtstc: $(CDMDEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
+	$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
+
 xdmdeigtstd: $(DDMDEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
 	$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
 
@@ -155,6 +160,7 @@ xeigtstz: $(ZEIGTST) $(DZIGTST) $(AEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
 	$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
 
 $(SDMDEIGTST): $(FRC)
+$(CDMDEIGTST): $(FRC)
 $(DDMDEIGTST): $(FRC)
 $(ZDMDEIGTST): $(FRC)
 $(AEIGTST): $(FRC)
@@ -185,6 +191,8 @@ zchkee.o: zchkee.F
 	$(FC) $(FFLAGS_DRV) -c -o $@ $<
 schkdmd.o: schkdmd.f90
 	$(FC) $(FFLAGS_DRV) -c -o $@ $<
+cchkdmd.o: cchkdmd.f90
+	$(FC) $(FFLAGS_DRV) -c -o $@ $<
 dchkdmd.o: dchkdmd.f90
 	$(FC) $(FFLAGS_DRV) -c -o $@ $<
 zchkdmd.o: zchkdmd.f90