2k820309 919.0\e  module_ra_rrtmg_lw.f90MERSENNETWISTERRANDOMNUMBERSEQUENCEFINALIZE_RANDOMNUMBERSEQUENCEGETRANDOMINTGETRANDOMPOSITIVEINTGETRANDOMREALgen@NEW_RANDOMNUMBERSEQUENCE IMKIND_IMRBKIND_RB u #INITIALIZE_SCALAR#INITIALIZE_VECTOR&@@X #SEED#RANDOMNUMBERSEQUENCE @&@@X #SEED#RANDOMNUMBERSEQUENCE @&p @' #CURRENTELEMENT#STATE$ $pp&ppopp#@  #TWISTER  D  #RANDOMNUMBERSEQUENCE%@   #TWISTER  D@  #RANDOMNUMBERSEQUENCE%@   #TWISTER D@ #RANDOMNUMBERSEQUENCE%@   #TWISTER D@ #RANDOMNUMBERSEQUENCE/fn#fn%buapp(MERSENNETWISTER_VJPARKIND-ngen@NEW_RANDOMNUMBERSEQUENCE"#tINITIALIZE_SCALAR'@aINITIALIZE_SCALAR%SEED"tINITIALIZE_VECTOR'KaINITIALIZE_VECTOR%SEED%oRANDOMNUMBERSEQUENCE4JHaRANDOMNUMBERSEQUENCE%CURRENTELEMENT+aRANDOMNUMBERSEQUENCE%STATE.>UFINALIZE_RANDOMNUMBERSEQUENCE6baFINALIZE_RANDOMNUMBERSEQUENCE%TWISTER]GETRANDOMINT%RbaGETRANDOMINT%TWISTER%]GETRANDOMPOSITIVEINT-baGETRANDOMPOSITIVEINT%TWISTERs]GETRANDOMREAL&baGETRANDOMREAL%TWISTER