OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
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.

34C-----------------------------------------------
35C I m p l i c i t T y p e s
36C-----------------------------------------------
37#include "implicit_f.inc"
38C-----------------------------------------------
39C D u m m y A r g u m e n t s
40C-----------------------------------------------
41 INTEGER IREC, NBC, IV2(*), JJ
42 CHARACTER KEY0*(*)
43C-----------------------------------------------
44C C o m m o n B l o c k s
45C-----------------------------------------------
46#include "units_c.inc"
47C-----------------------------------------------
48C L o c a l V a r i a b l e s
49C-----------------------------------------------
50 INTEGER IV1(40), K, I, N, J, NC1, NC2
51C-----------------------------------------------
52C
53 k=0
54 DO i=1,nbc
55 CALL wciusc2(irec+k,1,n,key0)
56 READ(iusc2,*)(iv1(j),j=1,n)
57 k=k+1
58 nc1=1
59 DO
60 nc2=min(nc1+9-jj,n)
61 DO j=nc1,nc2
62 jj=jj+1
63 iv2(jj)=iv1(j)
64 ENDDO
65 IF(jj<10)EXIT
66 WRITE(iin,'(10I10)')(iv2(j),j=1,jj)
67 nc1=nc2+1
68 jj=0
69 IF(nc2==n)EXIT
70 ENDDO
71 ENDDO ! I
72 RETURN
#define min(a, b)
Definition macros.h:20
subroutine wciusc2(irec, nbc, n, key0)
Definition wciusc2.F:38