NCEPLIBS-w3emc  2.11.0
xstore.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Stores a constant value into an array
3 C> @author Dennis Keyser @date 1992-07-02
4 
5 C> Stores an 8-byte (fullword) value through consecutive storage locations.
6 C> (moving is accomplished with a do loop.)
7 C>
8 C> ### Program History Log:
9 C> Date | Programmer | Comment
10 C> -----|------------|--------
11 C> 1992-07-02 | Dennis Keyser (W/NMC22) | Initial.
12 C> 1995-10-31 | Mark Iredell | Removed saves and prints.
13 C>
14 C> @param[in] CON Constant to be stored into "mwords" consecutive
15 C> fullwords beginning with "cout" array
16 C> @param[in] MWORDS Number of fullwords in "cout" array to store "con";
17 C> must be .gt. zero (not checked for this)
18 C> @param[out] COUT Starting address for array of "mwords" fullwords
19 C> set to the contents of the value "con"
20 C>
21 C> @remark The version of this subroutine on the hds common library
22 C> is nas-specific subr. written in assembly lang. to allow fast
23 C> computation time. subr. placed in cray w3lib to allow codes to
24 C> compile on both the hds and cray machines.
25 C> subprogram can be called from a multiprocessing environment.
26 C>
27 C> @author Dennis Keyser @date 1992-07-02
28  SUBROUTINE xstore(COUT,CON,MWORDS)
29 C
30  dimension cout(*)
31 C
32  DO 1000 i = 1,mwords
33  cout(i) = con
34 1000 CONTINUE
35 C
36  RETURN
37  END
xstore
subroutine xstore(COUT, CON, MWORDS)
Stores an 8-byte (fullword) value through consecutive storage locations.
Definition: xstore.f:29