blob: 3ff556f8858fd78ce1b165312e0666282124a07d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- examples/TMB03LD.f.orig 2022-05-27 14:40:35 UTC
+++ examples/TMB03LD.f
@@ -26,6 +26,8 @@
$ DWORK( LDWORK ), FG( LDFG, NMAX/2+1 ),
$ Q( LDQ, 2*NMAX )
*
+ LOGICAL LSAME
+ EXTERNAL LSAME
* .. External Subroutines ..
EXTERNAL MB03LD
*
|
