xstore.f File Reference

Stores a constant value into an array. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	xstore (cout, con, mwords)
	Stores an 8-byte (fullword) value through consecutive storage locations.

Detailed Description

Stores a constant value into an array.

Author

Dennis Keyser

Date

1992-07-02

Definition in file xstore.f.

Function/Subroutine Documentation

xstore()

subroutine xstore	(	dimension(*)	cout,
			con,
			mwords
	)

Stores an 8-byte (fullword) value through consecutive storage locations.

(moving is accomplished with a do loop.)

Program History Log:

Date	Programmer	Comment
1992-07-02	Dennis Keyser (W/NMC22)	Initial.
1995-10-31	Mark Iredell	Removed saves and prints.

Parameters

[in]	CON	Constant to be stored into "mwords" consecutive fullwords beginning with "cout" array
[in]	MWORDS	Number of fullwords in "cout" array to store "con"; must be .gt. zero (not checked for this)
[out]	COUT	Starting address for array of "mwords" fullwords set to the contents of the value "con"

Remarks

The version of this subroutine on the hds common library is nas-specific subr. written in assembly lang. to allow fast computation time. subr. placed in cray w3lib to allow codes to compile on both the hds and cray machines. subprogram can be called from a multiprocessing environment.

Author

Dennis Keyser

Date

1992-07-02

Definition at line 28 of file xstore.f.