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