The SAVE attribute is given implicitly if:
SUBROUTINE Barmy IMPLICIT NONE REAL :: s = 3.5 ! set on first call to 3.5 !REAL, SAVE :: s = 3.5 ! Exactly the same ...
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