_RL Rgas
Rgas = 83.1451 _d 0 ! bar*cm3/(mol*K)
RT = Rgas*tk
& Tf0kel, Rgas,
EQUIVALENCE ( Rgas , RD )
WRITE(iUnit,*) 'BlkF: Rgas =',Rgas
& Tf0kel, Rgas, xkar, stefan,
Rgas = atm_Rd