Host Association

Consider

    SUBROUTINE calculate_pay
     IMPLICIT NONE
     EXTERNAL hex
     REAL :: pay, tax
     pay = ...;  tax = ...
     CALL print_pay
    CONTAINS
     SUBROUTINE print_pay
      REAL :: tax_paid
       tax_paid = pay*tax; PRINT*, tax_paid
       CALL change_pay;    PRINT*, pay*tax
       CALL hex
     END SUBROUTINE print_pay
     SUBROUTINE change_pay
      pay = ...; tax = ...
     END SUBROUTINE change_pay
    END SUBROUTINE calculate_pay

    SUBROUTINE hex
     REAL :: pay, tax
      ...
    END SUBROUTINE hex

• pay and tax in print_pay are the same variables as in the host subroutine, they are accessible by host association.
• pay and tax in hex is unrelated.

For more information, click here

Now try this question