Parent Directory | Revision Log | Revision Graph | Patch
revision 1.81 by cnh, Wed Jun 30 00:58:06 2004 UTC | revision 1.82 by cnh, Wed Jun 30 01:19:29 2004 UTC | |
---|---|---|
# | Line 1156 rm -f genmake_tcomp* | Line 1156 rm -f genmake_tcomp* |
1156 | printf " Do we have the etime() command using $FC... " | printf " Do we have the etime() command using $FC... " |
1157 | cat > genmake_tcomp.f <<EOF | cat > genmake_tcomp.f <<EOF |
1158 | program hello | program hello |
1159 | REAL*4 TARRAY(2) | REAL*4 ACTUAL, TARRAY(2) |
1160 | call etime( tarray ) | EXTERNAL ETIME |
1161 | REAL*4 ETIME | |
1162 | actual = etime( tarray ) | |
1163 | print *, tarray | print *, tarray |
1164 | end | end |
1165 | EOF | EOF |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |