1 2 3 4 5 6 7 8 9 10 11
LOGICAL FUNCTION ZELCTG( PAR1, PAR2 ) C C PURPOSE C C Void logical function for ZGGES. C COMPLEX*16 PAR1, PAR2 C ZELCTG = .TRUE. RETURN END