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