src/f77/gpinit.F

      SUBROUTINE GPINIT(CWX,CWY)
* This was written for sampling data array dutring initialization
*
#include "gprspe.inc"
*
      REAL CWX(NDHIRES,NBINANG),CWY(NDHIRES,NBINANG)
      DO I=1,NBINANG
         DO II=1, NDHIRES
            WX(II,I)=CWX(II,I)
            WY(II,I)=CWY(II,I)
         ENDDO
      ENDDO
            
      DO IK=0,10
         CALL GPRNHPRE(WX(1,IK+1),NDHIRES)
         CALL GPRNHPRE(WY(1,IK+1),NDHIRES)
      ENDDO

      END
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