1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 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