#L110 
STEADY=F; LSTEP=100; TLAST=100; grdpwr(T,LSTEP,TLAST,1.0) 
SPEDAT(SET,GXMONI,TRANSIENT,L,F) 
  
  re-set final patch argument to LSTEP
PATCH(INFLOWA,CELL,1,1,1,1,1,1,1,LSTEP)
PATCH(INFLOWB,CELL,1,1,1,1,1,1,1,LSTEP)
PATCH(OUTFLOW,VOLUME,1,1,1,1,1,1,1,LSTEP)

  re-set to 0 the amount of fully-reacted fluid 
  entering in stream B
COVAL(INFLOWB,F:NFLUIDS:,ONLYMS,0.0)
  determine which fluid enters in stream B
text(2d Population, Transient, L113
LIBREF=113
TITLE
mesg(Insert desired value of RB, currently :RB:
READVDU(RB,REAL,:RB:)   

REAL(DUM)
INTEGER(IB,IB0,IB1)
IB1=NFLUIDS
IB0=NFLUIDS - NFLR+1
IB = IB0 + RB * (NFLR - 1)
  IB=DUM
FLUIDB=F:IB:
FLUIDB
COVAL(INFLOWB,:FLUIDB:,ONLYMS,1.)
  use smaller-than before lsweep, because flow is transient
LSWEEP=25
distil=t
EX(F2  )=   1.115E-02;EX(F12 )=   1.972E-02;EX(F23 )=   1.117E-02
EX(F24 )=   2.233E-02;EX(F25 )=   2.312E-02;EX(F26 )=   1.431E-02
EX(F34 )=   7.185E-03;EX(F35 )=   1.668E-02;EX(F36 )=   2.581E-02
EX(F37 )=   2.620E-02;EX(F38 )=   1.866E-02;EX(F47 )=   1.217E-04
EX(F48 )=   1.505E-04;EX(F49 )=   2.286E-04;EX(F50 )=   1.418E-01
EX(F59 )=   1.197E-04;EX(F60 )=   1.593E-01;EX(F70 )=   1.226E-01
EX(F79 )=   1.604E-02;EX(F80 )=   5.800E-02;EX(F89 )=   1.153E-02
EX(F90 )=   4.496E-02;EX(AVER)=   7.634E-01