neci_flush Module Subroutine

module subroutine neci_flush(un)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: un

Source Code

    module subroutine neci_flush(un)
        integer, intent(in) :: un
#ifdef NAGF95
        integer(kind=int32) :: dummy
#endif
#ifdef BLUEGENE_HACKS
        call flush_(un)
#else
#ifdef NAGF95
        dummy = un
        call flush(dummy)
#else
        call flush(un)
#endif
#endif
    end subroutine neci_flush