/*  This is a translation of a Fortran subroutine written by SC
    Jan. 18, 1979.  The old routine didn't work because the
    Sun uses 2's complements whereas the Perkin-Elmer didn't.
   
    You must declare cnvtint to be an integer*4 variable in the beginning
    of the program.  The value of the integer is assigned to cnvtint.
    

    Written 12-30-88 by DMC
*/

   cnvtint_(j)
   unsigned short   *j;
   {
    int  i;

    i = *j;

    return *((int *)&i);
   }