Commit 71663c91 authored by rtoy's avatar rtoy
Browse files

Comment out the EQUIVALENCE statement for now since f2cl can't handle that.

parent d81b8532
......@@ -161,8 +161,8 @@
INTRINSIC ABS, MAX
* ..
* .. Equivalences ..
EQUIVALENCE ( CI( 1, 1 ), CIV( 1 ) ),
$ ( CR( 1, 1 ), CRV( 1 ) )
c EQUIVALENCE ( CI( 1, 1 ), CIV( 1 ) ),
c $ ( CR( 1, 1 ), CRV( 1 ) )
* ..
* .. Data statements ..
DATA ZSWAP / .FALSE., .FALSE., .TRUE., .TRUE. /
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment