Parent Directory
| 
Revision Log
Initial revision
| 1 | formato | 1.1 | input card: |
| 2 | |||
| 3 | READ(88,*,IOSTAT=iostat) | ||
| 4 | $ IPA,VERTEX(1), VERTEX(2), VERTEX(3), | ||
| 5 | $ PXYZ(1), PXYZ(2), PXYZ(3), | ||
| 6 | $ IB(1),IB(2),IB(3),IB(4),IB(5),IB(6),IB(7), | ||
| 7 | $ IB(8),IB(9),IB(10),IB(11),IB(12) | ||
| 8 | IF(iostat.NE.0)THEN | ||
| 9 | PRINT*,FILEN,': *** Error reading file ***' | ||
| 10 | RETURN | ||
| 11 | ENDIF | ||
| 12 | C decompress the bad va1 integers | ||
| 13 | DO II=1,12 | ||
| 14 | DO JL=1,3 | ||
| 15 | DO IV=1,8 | ||
| 16 | IVA1=(JL-1)*8+IV | ||
| 17 | BADVA1(II,JL,IV)=JBIT( IB(II) , IVA1 ) | ||
| 18 | ENDDO | ||
| 19 | ENDDO | ||
| 20 | ENDDO | ||
| 21 | |||
| 22 | |||
| 23 | then look at GPUCOLLECTION |
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |