NCEPLIBS-w3emc  2.9.2
xstore.f
Go to the documentation of this file.
1 C> @file
2 C . . . .
3 C> SUBPROGRAM: XSTORE STORES A CONSTANT VALUE INTO AN ARRAY
4 C> PRGMMR: KEYSER ORG: W/NMC22 DATE: 07-02-92
5 C>
6 C> ABSTRACT: STORES AN 8-BYTE (FULLWORD) VALUE THROUGH CONSECUTIVE
7 C> STORAGE LOCATIONS. (MOVING IS ACCOMPLISHED WITH A DO LOOP.)
8 C>
9 C> PROGRAM HISTORY LOG:
10 C> 92-07-02 D. A. KEYSER (W/NMC22)
11 C> 95-10-31 IREDELL REMOVED SAVES AND PRINTS
12 C>
13 C> USAGE: CALL XSTORE(COUT,CON,MWORDS)
14 C> INPUT ARGUMENT LIST:
15 C> CON - CONSTANT TO BE STORED INTO "MWORDS" CONSECUTIVE
16 C> FULLWORDS BEGINNING WITH "COUT" ARRAY
17 C> MWORDS - NUMBER OF FULLWORDS IN "COUT" ARRAY TO STORE "CON";
18 C> MUST BE .GT. ZERO (NOT CHECKED FOR THIS)
19 C>
20 C> OUTPUT ARGUMENT LIST: (INCLUDING WORK ARRAYS)
21 C> COUT - STARTING ADDRESS FOR ARRAY OF "MWORDS" FULLWORDS
22 C> SET TO THE CONTENTS OF THE VALUE "CON"
23 C>
24 C> REMARKS: THE VERSION OF THIS SUBROUTINE ON THE HDS COMMON LIBRARY
25 C> IS NAS-SPECIFIC SUBR. WRITTEN IN ASSEMBLY LANG. TO ALLOW FAST
26 C> COMPUTATION TIME. SUBR. PLACED IN CRAY W3LIB TO ALLOW CODES TO
27 C> COMPILE ON BOTH THE HDS AND CRAY MACHINES.
28 C> SUBPROGRAM CAN BE CALLED FROM A MULTIPROCESSING ENVIRONMENT.
29 C>
30 C> ATTRIBUTES:
31 C> LANGUAGE: CRAY CFT77 FORTRAN
32 C> MACHINE: CRAY Y-MP8/864
33 C>
34  SUBROUTINE xstore(COUT,CON,MWORDS)
35 C
36  dimension cout(*)
37 C
38  DO 1000 i = 1,mwords
39  cout(i) = con
40 1000 CONTINUE
41 C
42  RETURN
43  END
xstore
subroutine xstore(COUT, CON, MWORDS)
SUBPROGRAM: XSTORE STORES A CONSTANT VALUE INTO AN ARRAY PRGMMR: KEYSER ORG: W/NMC22 DATE: 07-02-92.
Definition: xstore.f:35