w3fi52.f File Reference

Computes scaling constants used by grdprt(). More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3fi52 (IDENT, CNST, IER)
	Computes the four scaling constants used by grdprt(), w3fp03(), or w3fp05() from the 1st 5 identifier words in office note 84 format. More...

Detailed Description

Computes scaling constants used by grdprt().

Author

John Stackpole

Date

1980-06-15

Definition in file w3fi52.f.

Function/Subroutine Documentation

w3fi52()

subroutine w3fi52	(	integer, dimension(4)	IDENT,
		real, dimension(4)	CNST,
			IER
	)

Computes the four scaling constants used by grdprt(), w3fp03(), or w3fp05() from the 1st 5 identifier words in office note 84 format.

Program history log:

• John Stackpole 1980-06-15
• Ralph Jones 1985-12-03 Made subroutine in genout into this subr.
• Ralph Jones 1989-07-07 Convert to microsoft fortran 4.10
• Ralph Jones 1990-02-03 Convert to cray cft77 fortran

Parameters

[in]	IDENT	First 5 id's in office note 84 format.
[out]	CNST	4 constant's used by grdprtO(), w3fp05(), or w3fp03()
[out]	IER	0 = normal return. 1 = ID'S IN IDENT ARE NOT IN O.N. 84 FORMAT

Author

John Stackpole

Date

1980-06-15

Definition at line 21 of file w3fi52.f.