call OPENAD_THE_MAIN_LOOP( mytime, myiter, mythid )
CALL OPENAD_THE_MAIN_LOOP( myCurrentTime, myCurrentIter, myThid )