/[PAMELA software]/trieste/pamVMC/trk/src/f77/gpinit.F
ViewVC logotype

Annotation of /trieste/pamVMC/trk/src/f77/gpinit.F

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (hide annotations) (download) (vendor branch)
Wed Mar 4 12:51:30 2009 UTC (15 years, 9 months ago) by pamelats
Branch: MAIN, pamVMC
CVS Tags: start, v0r00, HEAD
Changes since 1.1: +0 -0 lines
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