sys/gio/nspp/portlib/jlm2.f


1
2
3
4
5
6
7

function jlm2 (ichar)
      dimension       ichar(1)
      call ncgchr (ichar,2,1,ichar1)
      call ncgchr (ichar,2,2,ichar2)
      jlm2 = ior(ishift(ichar1,8),ichar2)
      return
      end