Parent Directory | Revision Log
Test pamVMC
1 | pamelats | 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 |