*
#$b001
  display
  *
 
     This example Q1 demonstrates the use of options
     provided for setting the 'time-grid'.
CT1=TEXT(TIME_SETTING                        B543
#$b002
  *
     Set simulation to TRANSIENT
CT1=STEADY=F
#$b002
  *
     Set beginning time (default 0)
readvdu(tbg,int,0)
     Set duration time (default 10 sec)
readvdu(tdur,int,10)
     Set number of time steps (default 5)
readvdu(ntst,int,5)
CT1=RSET(U,:tbg:,:tdur:,:ntst:)
#$b002
  *
     Insert time region at...(default 1 sec)
readvdu(irgt,real,1.)
CT1=RSET(T,L,0,:irgt:)
#$b002
  *
IRGT=IRGT+1
MESG(Insert second time region at...(default :irgt: sec)
readvdu(irgt,real,:irgt:)
CT1=RSET(T,L,0,:Irgt:)
#$b002
  *
     Set 10 time-steps in first region and use uniform
     distribution.
CT1=RSET(T,1,10,1)
#$b002
     Set 5 time-steps in second region and use symmetric
     power-law distribution with power of 1.6.
CT1=RSET(T,2,-5,1.6000E+00)
#$b002
     Set 10 time-steps in third region and use power-law
     distribution with power of 2; negative sign signals
     contracting grid.
CT1=RSET(T,3,10,-2)
#$b002
  enddis