This library case is an example of what can be called by Q2, so as to
  modify data, for example those of the test battery
if(lsweep.gt.10) then
 lsweep=10
 lsweep   
endif

if(lithyd.gt.10) then
 lithyd=10
 lithyd   
endif

if(parab) then
 if(nz.gt.10) then
 nz=10
 nz
endif 
endif