USE: import symbolic names to local function or subroutine from main program or other local functions or subroutines (f)

⇒Home ⇒Contents ⇒more on Programming

⇒ Example of a USE call in "Standard_deviation" (RosettaCode)

USE gives a SUBROUTINE or FUNCTION accessibility to variables in another SUBROUTINE or FUNCTION or in the "main section" of the script
main section symbolic names:
- USE : name1, name2, ...
local
names x, y of another subroutine or function SUBorFNCname:
- USE SUBorFNCname : x, y
USEd variables must be defined PRIOR to the 1st reference in a USE

example:

  ! --- top of script ---
   CHARACTER text*100
   DIMENSION array(5)
   joe = SIN(x)

   ...
   CALL local( x )
 END ! of main section

SUBROUTINE local(dummy) ! procedure communicates via: dummy
   USE : joe, text, array  ! and with USE also via: joe, text, array
   USE other_proc : secret ! and now also with secret of other_proc.
   ...
 END

⇒ Programming - procedures