A FORTRAN SUBROUTINE FOR UNPACKING AND PACKING BINARY DATA

摘要

This is a general purpose routine to unpack data stored in core in packed binary format or to pack binary data stored word for word in an array. The data must be stored in bytes which are a multiple of three bits in length with a minimum length of 3 bits and a maximum of 48 bits. It is useful for unpacking data read in packed binary form and sorting it into an array so as to be convenient for further processing by a Fortran program, or for preparing data from an array for writing out in a compact form, or possibly for intermediate storage of large arrays during execution of a program in order to save core space.