diff options
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 + |