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

• 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