Implicit SAVE Attribute and the SAVE Statement

The SAVE attribute is given implicitly if:

• the variable is initialised (or is in a COMMON block).

      SUBROUTINE Barmy
       IMPLICIT NONE
       REAL :: s = 3.5 ! set on first call to 3.5
      !REAL, SAVE :: s = 3.5 ! Exactly the same
        ...

• the default mode is changed to SAVE,

      SUBROUTINE Mad
       REAL :: saved
       SAVE
       REAL :: saved_an_all

Here the default storage class of the procedure is changed by the SAVE statement. Note that SAVE applies to all local objects in the procedure.

For more information, click here

Now try this question