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