Parent Directory | Revision Log | Revision Graph | Patch
revision 1.274 by jmc, Fri Nov 20 01:22:36 2015 UTC | revision 1.275 by jmc, Fri Nov 20 18:12:50 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 | call etime( tarray, actual ) | EXTERNAL ETIME |
1972 | REAL*4 ETIME | |
1973 | actual = etime( tarray ) | |
1974 | print *, tarray | print *, tarray |
1975 | end | end |
1976 | EOF | EOF |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |