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