module bank
    implicit none
    private money
    public loadMoney,saveMoney,report
    integer::money=1000000
    contains
        subroutine loadMoney(num)
            implicit none
            integer::num
            money=money-num
            return
            end subroutine

        subroutine saveMoney(num)
            implicit none
            integer::num
            money=money+num
            return
            end subroutine

        subroutine report()
            implicit none
            write(*,*)"当前银行存款为",money
            return
            end subroutine
end module

program ex1102
    use bank
    implicit none
    call loadMoney(100)
    call saveMoney(1000)
    call report()
    stop
end