C------------------------------------------------------------------------
        subroutine ftpki2(i2vals,nvals,temp)

C       pack array of 4-byte integers into sequence of 2-byte integers
C       This routine is only currently used on the SUN Solaris F90
C       which does not directly support integer*2 variables and instead
C       maps them into integer*4 variables.

        integer nvals,ii,jj
        integer*2 temp
        character*1 i2vals(nvals*4)

        jj = 2
        do 10 ii = 4,nvals*4,4
             i2vals(jj-1) = i2vals(ii - 1)
             i2vals(jj)   = i2vals(ii)
             jj = jj +2
10      continue

        end