1      SUBROUTINE SUBREA(LLOC, LANS)
2C
3C***  FORCE A REAL INTO AN EXTERNAL ARRAY
4C
5      REAL LLOC,LANS
6C
7      LLOC=LANS
8C
9      RETURN
10      END
11