1      SUBROUTINE SUBINT(LLOC, LANS)
2C
3C***  FORCE AN INTEGER INTO AN EXTERNAL ARRAY
4C
5      LLOC=LANS
6C
7      RETURN
8      END
9