Parent Directory
| 
Revision Log
Initial revision
| 1 | SUBROUTINE GPINIT(CWX,CWY) |
| 2 | * This was written for sampling data array dutring initialization |
| 3 | * |
| 4 | #include "gprspe.inc" |
| 5 | * |
| 6 | REAL CWX(NDHIRES,NBINANG),CWY(NDHIRES,NBINANG) |
| 7 | DO I=1,NBINANG |
| 8 | DO II=1, NDHIRES |
| 9 | WX(II,I)=CWX(II,I) |
| 10 | WY(II,I)=CWY(II,I) |
| 11 | ENDDO |
| 12 | ENDDO |
| 13 | |
| 14 | DO IK=0,10 |
| 15 | CALL GPRNHPRE(WX(1,IK+1),NDHIRES) |
| 16 | CALL GPRNHPRE(WY(1,IK+1),NDHIRES) |
| 17 | ENDDO |
| 18 | |
| 19 | END |
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |