w3fi20.f File Reference

Cut a 65 x 65 grid to a nmc 1977 point grid. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3fi20 (A, B)
	Extracts the NMC 1977 point octagon grid points out of a 65x65 (4225 point) array. More...

Detailed Description

Cut a 65 x 65 grid to a nmc 1977 point grid.

Author

Ralph Jones

Date

1984-07-02

Definition in file w3fi20.f.

Function/Subroutine Documentation

w3fi20()

subroutine w3fi20	(	real, dimension(*)	A,
		real, dimension(*)	B
	)

Extracts the NMC 1977 point octagon grid points out of a 65x65 (4225 point) array.

Program history log:

• Ralph Jones 1973-06-15
• Ralph Jones 1984-07-02 Convert to vs fortran
• Ralph Jones 1989-02-02 Convert to microsoft fortran 4.10
• Ralph Jones 1990-08-22 Convert to sun fortran 1.3
• Ralph Jones 1991-03-29 Convert to silicongraphics fortran
• Ralph Jones 1993-03-29 Add save statement

Parameters

[in]	A	REAL*4 (65 x 65 grid, 4225 point) array grid is office note 84 type 27 or 1b hex.
[out]	B	1977 point array (octagon) office note 84 type 0 or hex 0.

Note

Arrays A and B may be the same array or be equivalenced, in which case the first 1977 words of 'A' are written over.

Author

Ralph Jones

Date

1984-07-02

Definition at line 25 of file w3fi20.f.