diff options
-rw-r--r-- | SRC/cpoequb.f | 6 | ||||
-rw-r--r-- | SRC/zpoequb.f | 6 | ||||
-rw-r--r-- | TESTING/EIG/cdrgsx.f | 6 | ||||
-rw-r--r-- | TESTING/EIG/ddrgsx.f | 6 | ||||
-rw-r--r-- | TESTING/EIG/sdrgsx.f | 6 | ||||
-rw-r--r-- | TESTING/EIG/zdrgsx.f | 6 |
6 files changed, 12 insertions, 24 deletions
diff --git a/SRC/cpoequb.f b/SRC/cpoequb.f index 88a87b71..ca7af368 100644 --- a/SRC/cpoequb.f +++ b/SRC/cpoequb.f @@ -84,12 +84,6 @@ * .. Intrinsic Functions .. INTRINSIC MAX, MIN, SQRT, LOG, INT, REAL, AIMAG * .. -* .. Statement Functions .. - REAL CABS1 -* .. -* .. Statement Function Definitions .. - CABS1( ZDUM ) = ABS( REAL( ZDUM ) ) + ABS( AIMAG( ZDUM ) ) -* .. * .. Executable Statements .. * * Test the input parameters. diff --git a/SRC/zpoequb.f b/SRC/zpoequb.f index f0330f93..4e311015 100644 --- a/SRC/zpoequb.f +++ b/SRC/zpoequb.f @@ -84,12 +84,6 @@ * .. Intrinsic Functions .. INTRINSIC MAX, MIN, SQRT, LOG, INT, REAL, DIMAG * .. -* .. Statement Functions .. - DOUBLE PRECISION CABS1 -* .. -* .. Statement Function Definitions .. - CABS1( ZDUM ) = ABS( DBLE( ZDUM ) ) + ABS( DIMAG( ZDUM ) ) -* .. * .. Executable Statements .. * * Test the input parameters. diff --git a/TESTING/EIG/cdrgsx.f b/TESTING/EIG/cdrgsx.f index 0d7833f8..52fa6cf3 100644 --- a/TESTING/EIG/cdrgsx.f +++ b/TESTING/EIG/cdrgsx.f @@ -823,10 +823,10 @@ $ ' 10 = 1/ULP if PLEST/PLTRU > THRESH or ', $ 'PLTRU/PLEST > THRESH', / $ ' ( Test 10 is only for input examples )', / ) - 9992 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', E10.4, + 9992 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', E10.3, $ ', order(A_11)=', I2, ', result ', I2, ' is ', 0P, F8.2 ) - 9991 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', E10.4, - $ ', order(A_11)=', I2, ', result ', I2, ' is ', 0P, E10.4 ) + 9991 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', E10.3, + $ ', order(A_11)=', I2, ', result ', I2, ' is ', 0P, E10.3 ) 9990 FORMAT( ' Input example #', I2, ', matrix order=', I4, ',', $ ' result ', I2, ' is', 0P, F8.2 ) 9989 FORMAT( ' Input example #', I2, ', matrix order=', I4, ',', diff --git a/TESTING/EIG/ddrgsx.f b/TESTING/EIG/ddrgsx.f index 149458bd..2716ded3 100644 --- a/TESTING/EIG/ddrgsx.f +++ b/TESTING/EIG/ddrgsx.f @@ -890,10 +890,10 @@ $ ' 10 = 1/ULP if PLEST/PLTRU > THRESH or ', $ 'PLTRU/PLEST > THRESH', / $ ' ( Test 10 is only for input examples )', / ) - 9991 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', D10.4, + 9991 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', D10.3, $ ', order(A_11)=', I2, ', result ', I2, ' is ', 0P, F8.2 ) - 9990 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', D10.4, - $ ', order(A_11)=', I2, ', result ', I2, ' is ', 0P, D10.4 ) + 9990 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', D10.3, + $ ', order(A_11)=', I2, ', result ', I2, ' is ', 0P, D10.3 ) 9989 FORMAT( ' Input example #', I2, ', matrix order=', I4, ',', $ ' result ', I2, ' is', 0P, F8.2 ) 9988 FORMAT( ' Input example #', I2, ', matrix order=', I4, ',', diff --git a/TESTING/EIG/sdrgsx.f b/TESTING/EIG/sdrgsx.f index ee79a68e..ddbbbcff 100644 --- a/TESTING/EIG/sdrgsx.f +++ b/TESTING/EIG/sdrgsx.f @@ -891,10 +891,10 @@ c MINWRK = MAX( 10*( NSIZE+1 ), 5*NSIZE*NSIZE / 2-2 ) $ ' 10 = 1/ULP if PLEST/PLTRU > THRESH or ', $ 'PLTRU/PLEST > THRESH', / $ ' ( Test 10 is only for input examples )', / ) - 9991 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', E10.4, + 9991 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', E10.3, $ ', order(A_11)=', I2, ', result ', I2, ' is ', 0P, F8.2 ) - 9990 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', E10.4, - $ ', order(A_11)=', I2, ', result ', I2, ' is ', 0P, E10.4 ) + 9990 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', E10.3, + $ ', order(A_11)=', I2, ', result ', I2, ' is ', 0P, E10.3 ) 9989 FORMAT( ' Input example #', I2, ', matrix order=', I4, ',', $ ' result ', I2, ' is', 0P, F8.2 ) 9988 FORMAT( ' Input example #', I2, ', matrix order=', I4, ',', diff --git a/TESTING/EIG/zdrgsx.f b/TESTING/EIG/zdrgsx.f index a7f862e6..e224ccf6 100644 --- a/TESTING/EIG/zdrgsx.f +++ b/TESTING/EIG/zdrgsx.f @@ -824,10 +824,10 @@ $ ' 10 = 1/ULP if PLEST/PLTRU > THRESH or ', $ 'PLTRU/PLEST > THRESH', / $ ' ( Test 10 is only for input examples )', / ) - 9992 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', D10.4, + 9992 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', D10.3, $ ', order(A_11)=', I2, ', result ', I2, ' is ', 0P, F8.2 ) - 9991 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', D10.4, - $ ', order(A_11)=', I2, ', result ', I2, ' is ', 0P, D10.4 ) + 9991 FORMAT( ' Matrix order=', I2, ', type=', I2, ', a=', D10.3, + $ ', order(A_11)=', I2, ', result ', I2, ' is ', 0P, D10.3 ) 9990 FORMAT( ' Input example #', I2, ', matrix order=', I4, ',', $ ' result ', I2, ' is', 0P, F8.2 ) 9989 FORMAT( ' Input example #', I2, ', matrix order=', I4, ',', |