pack21.F File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	pack21 (KWRDS, PIN, PPACKED, KDUM1, KDUM2)

Function/Subroutine Documentation

pack21()

subroutine pack21	(	integer(kind=jpim), intent(in)	KWRDS,
		real (kind=8), dimension(kwrds)	PIN,
		real (kind=4), dimension(kwrds)	PPACKED,
		integer(kind=jpim), intent(in)	KDUM1,
		integer(kind=jpim), intent(in)	KDUM2
	)

Definition at line 3 of file pack21.F.