Parent Directory
| 
Revision Log
PamVMC update
| 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 |