Commit | Line | Data |
---|---|---|
1 | INTEGER REC,REC5,I,J,JE,RECORD(14,6),RECPOS\r | |
2 | EXTERNAL NCOND\r | |
3 | INTEGER NCOND\r | |
4 | C\r | |
5 | C\r | |
6 | DEFINE FILE 5 (400,85,U,REC5)\r | |
7 | C\r | |
8 | REC5=1\r | |
9 | READ (5'REC5) RECPOS,RECORD\r | |
10 | DO 10 REC=1,RECPOS/6+1\r | |
11 | REC5=REC\r | |
12 | READ (5'REC5) I,RECORD\r | |
13 | JE=NCOND(RECPOS.GT.REC*6,6,MOD(RECPOS,6)+1)\r | |
14 | 10 WRITE (4,1) ((RECORD(I,J),I=1,14),J=1,JE)\r | |
15 | STOP\r | |
16 | 1 FORMAT (1X,A2,1H/,A2,3H/19,A2,1X,10A6,A4)\r | |
17 | END\r | |
18 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0 |