1      SUBROUTINE FSALRM
2      call x11cloche
3      END
4c-----------------------------------------------------
5      integer*2 function int2(i)
6      int2 = i
7      end
8