read10.F File Reference

#include "implicit_f.inc"
#include "units_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	read10 (irec, nbc, key0)

Function/Subroutine Documentation

read10()

subroutine read10	(	integer	irec,
		integer	nbc,
		character, dimension(*)	key0 )

Definition at line 33 of file read10.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IREC, NBC
      CHARACTER KEY0*(*)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "units_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER IV1(40), IV2(10), K, JJ, I, N, J, NC1, NC2
C-----------------------------------------------
       k=0
       jj=0
       DO i=1,nbc
        CALL wciusc2(irec+k,1,n,key0)
        READ(iusc2,*)(iv1(j),j=1,n)
        k=k+1
        nc1=1
        DO
         nc2=min(nc1+9-jj,n)
         DO j=nc1,nc2
           jj=jj+1
           iv2(jj)=iv1(j)
         ENDDO
         IF(jj<10)EXIT
         WRITE(iin,'(10I10)')(iv2(j),j=1,jj)
         nc1=nc2+1
         jj=0
         IF(nc2==n)EXIT
        ENDDO
       ENDDO ! I
       IF(jj/=0)WRITE(iin,'(10I10)')(iv2(j),j=1,jj)
      RETURN