diff options
| author | tradke <tradke@21a6bef8-4479-4f54-8f8d-0db94a2919ef> | 2003-08-06 12:23:27 +0000 |
|---|---|---|
| committer | tradke <tradke@21a6bef8-4479-4f54-8f8d-0db94a2919ef> | 2003-08-06 12:23:27 +0000 |
| commit | bf0225505894535a9ae36f02a3f6efa6642c5c00 (patch) | |
| tree | 822a739d2aa7568d819e634ced6e26035991b1ef /doc/html/writef77.f | |
| parent | dfcc3d15b8728f2827b323a77e3f8a9e57ca9904 (diff) | |
Added FlexIO documentation in HTML format.
Taken from the (almost forgotten) repository /afs/aei/cvsroot/IEEEIO/doc.
Should be the same as on http://zeus.ncsa.uiuc.edu/~jshalf/FlexIO/.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusExternal/FlexIO/trunk@50 21a6bef8-4479-4f54-8f8d-0db94a2919ef
Diffstat (limited to 'doc/html/writef77.f')
| -rw-r--r-- | doc/html/writef77.f | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/doc/html/writef77.f b/doc/html/writef77.f new file mode 100644 index 0000000..1ca4d2f --- /dev/null +++ b/doc/html/writef77.f @@ -0,0 +1,17 @@ + + subroutine openf77() + OPEN(UNIT=10,FILE='f77speed.unf',FORM='UNFORMATTED') + RETURN + END + + subroutine writef77(array) + REAL*8 array(64,64,64) + WRITE(10) array + RETURN + END + + subroutine closef77() + CLOSE(10) + RETURN + END + |