Parent Directory | Revision Log | Revision Graph | Patch
revision 1.273 by jmc, Tue Sep 1 19:39:56 2015 UTC | revision 1.274 by jmc, Fri Nov 20 01:22:36 2015 UTC | |
---|---|---|
# | Line 1968 printf " Do we have the etime() command | Line 1968 printf " Do we have the etime() command |
1968 | cat > genmake_tcomp.$FS <<EOF | cat > genmake_tcomp.$FS <<EOF |
1969 | program hello | program hello |
1970 | REAL*4 ACTUAL, TARRAY(2) | REAL*4 ACTUAL, TARRAY(2) |
1971 | EXTERNAL ETIME | call etime( tarray, actual ) |
REAL*4 ETIME | ||
actual = etime( tarray ) | ||
1972 | print *, tarray | print *, tarray |
1973 | end | end |
1974 | EOF | EOF |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |