out_bin_512r.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: OUT_BIN_512R                                           C
!  Purpose: write out an array in chunks of 512 bytes (REAL    WORDS)  C
!                                                                      C
!  Author: P. Nicoletti                               Date: 02-JAN-92  C
!  Reviewer: P. Nicoletti, W. Rogers, M. Syamlal      Date: 24-JAN-92  C
!                                                                      C
!  Revision Number:                                                    C
!  Purpose:                                                            C
!  Author:                                            Date: dd-mmm-yy  C
!  Reviewer:                                          Date: dd-mmm-yy  C
!                                                                      C
!  Literature/Document References:                                     C
!                                                                      C
!  Variables referenced:                                               C
!  Variables modified:                                                 C
!                                                                      C
!  Local variables: NWORDS, L, NSEG, NREM, LC, N1, N2                  C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      SUBROUTINE out_bin_512r(IUNIT, ARRAY, N, NEXT_REC)
!...Translated by Pacific-Sierra Research VAST-90 2.06G5  12:17:31  12/09/98
!...Switches: -xf
!
!-----------------------------------------------
!   M o d u l e s
!-----------------------------------------------
      USE machine
      IMPLICIT NONE
!-----------------------------------------------
!   D u m m y   A r g u m e n t s
!-----------------------------------------------
!
!                      array to write out
      REAL             ARRAY(*)
!
!                      output unit number
      INTEGER          IUNIT
!
!                      number of elements in ARRAY
      INTEGER          N
!
!                      next record number in direct access output file
      INTEGER          NEXT_REC
!
! local variables
!
!                      number of words for 512 bytes (nwords * 4 = 512)
      INTEGER          NWORDS
!
!                      loop counter
      INTEGER          L
!
!                      number of full 512 byte segments need to write N
!                      double precision words
      INTEGER          NSEG
!
!                      number of double precision words in the partially
!                      filled last record
      INTEGER          NREM
!
!                      loop counter
      INTEGER          LC
!
!                      write out array elements N1 to N2
      INTEGER          N1 , N2
!
!-----------------------------------------------
!
!
      nwords = nwords_r
      IF (n <= nwords) THEN
         WRITE (iunit, rec=next_rec) (array(l),l=1,n)
         next_rec = next_rec + 1
         RETURN
      ENDIF
!
      nseg = n/nwords
      nrem = mod(n,nwords)
      n1 = 1
      n2 = nwords
!
! write out the full 512 byte segments
!
      DO lc = 1, nseg
         WRITE (iunit, rec=next_rec) (array(l),l=n1,n2)
         n1 = n1 + nwords
         n2 = n2 + nwords
         next_rec = next_rec + 1
      END DO
      IF (nrem /= 0) THEN
         WRITE (iunit, rec=next_rec) (array(l),l=n1,n)
         next_rec = next_rec + 1
      ENDIF
!
      RETURN
      END SUBROUTINE out_bin_512r