read10p.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	read10p (irec, nbc, key0, iv2, jj)

Function/Subroutine Documentation

read10p()

subroutine read10p	(	integer	irec,
		integer	nbc,
		character, dimension(*)	key0,
		integer, dimension(*)	iv2,
		integer	jj )

Definition at line 33 of file read10p.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, IV2(*), JJ
      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), K, I, N, J, NC1, NC2
C-----------------------------------------------
C
       k=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
      RETURN