BEGIN_PROVIDER[integer, istart]
    implicit none

    istart=0

END_PROVIDER