home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / vmsnet / alpha / 134 < prev    next >
Encoding:
Internet Message Format  |  1993-01-23  |  2.3 KB
  1. Path: sparky!uunet!stanford.edu!unixhub!fnnews.fnal.gov!fnsg01.fnal.gov!kreymer
  2. From: kreymer@fnsg01.fnal.gov (Art Kreymer)
  3. Newsgroups: vmsnet.alpha
  4. Subject: Re: Alpha speed on disk devices
  5. Date: 22 Jan 1993 21:23:11 GMT
  6. Organization: Fermi National Accelerator Laboratory, Batavia IL
  7. Lines: 54
  8. Distribution: world
  9. Message-ID: <1jpojvINNin@fnnews.fnal.gov>
  10. NNTP-Posting-Host: fnsg01.fnal.gov
  11. Keywords: FORTRAN,I/O,Alpha
  12.  
  13.  
  14.     There was earlier discussion of I/O problems on some Alpha systems.
  15.     Fortran unformatted I/O to disk seems to be somewhat slower than
  16.     expected, and, surprisingly, is CPU limited. That is, the CPU is
  17.     running at 100% utilization in USER mode while the I/O is in progress.
  18.  
  19.     The I/O problem is almost certainly related to the Fortran Compiler.
  20.     Note the following timings, writing a 32,000 block (16 Mbyte) file
  21.     composed of records of length 8000 words (32 Kbytes)
  22.  
  23.     Formatted writes and VESTed images use much less CPU than native
  24.     unformatted writes. Implied I/O do loops suffer no or negative
  25.     overhead.
  26.  
  27.     Elapsed    CPU    Method
  28.       15         1.   UNFORMATTED  WRITE (1) DATA  (vested image from VAX)
  29.       25.        1.   FORMATTED    WRITE (1,'(A32000)') CDATA
  30.       20.       15.   UNFORMATTED  WRITE (1) DATA  (native image)
  31.       15.       15.   UNFORMATTED  WRITE (1) (DATA(J),J=1,8000)
  32.  
  33.     Here's the test program:
  34.  
  35.           PROGRAM WRITE
  36.  
  37.           PARAMETER ( LEN = 8000 )
  38.           INTEGER DATA ( LEN )
  39.           CHARACTER*(4*LEN) CDATA
  40.           EQUIVALENCE ( CDATA , DATA )
  41.  
  42.           DO I = 1 , LEN
  43.              DATA(I) = I
  44.           ENDDO
  45.  
  46.           OPEN ( 1 , FILE = 'TEST' ,
  47.          +   STATUS = 'NEW' ,
  48.          +   FORM = 'UNFORMATTED' ,    ! unformatted
  49.     !     +   FORM = 'FORMATTED' ,     !   formatted
  50.          +   RECL = 8000 ,             ! unformatted
  51.     !     +   RECL = 32000 ,           ! formatted
  52.          +   RECORDTYPE = 'VARIABLE' ,
  53.          +   INITIALSIZE = 32 000 )
  54.  
  55.           DO I = 1 , 512
  56.              WRITE (1)  DATA                 ! unformatted
  57.     !        WRITE (1) (DATA(J),J=1,LEN)     ! unformatted implied do
  58.     !         WRITE (1, '(A32000)' ) CDATA   !   formatted
  59.           ENDDO
  60.  
  61.           WRITE (*,*) ' DONE '
  62.           CLOSE (1)
  63.  
  64.           CALL EXIT
  65.           STOP
  66.           END
  67.