KPG1_UNZ2x

Unzips a two-dimensional co-ordinate array into two one-dimensional arrays

Description:

This routine takes an array of dimension 2 by EL elements and puts the two columns into separate arrays.

Invocation

CALL KPG1_UNZ2x( EL, IN, OUT1, OUT2, STATUS )

Arguments

EL = INTEGER (Given)
The number of lines in the input array, and elements in each of the output arrays.
IN( 2, EL ) = ? (Given)
The array to be ‘unzipped’ .
OUT1( EL ) = ? (Returned)
The vector to contain first column of the input array.
OUT2( EL ) = ? (Returned)
The vector to contain second column of the input array.
STATUS = INTEGER (Given and Returned)
The global status.

Notes: