FUNCTION ID *Operation((IntervalIndex*10000000)+ 123000) 
  NAME "accelerogram for interval *IntervalIndex" 
  TYPE "CCMultiLinearFunction" REMOVE_ALL 
xvalues
*tcl(DejFunkciGround 0 *IntervalIndex "Import_function_from_file")

yvalues
*tcl(DejFunkciGround 1 *IntervalIndex "Import_function_from_file")
  ;


*If(IntvData(Ground_Accelerogram2,real)==1)

// Zapis funkce pro zemetreseni2
FUNCTION ID *Operation((IntervalIndex*10000000)+ 124000) 
  NAME "accelerogram2 for interval *IntervalIndex" 
  TYPE "CCMultiLinearFunction" REMOVE_ALL 
xvalues
*tcl(DejFunkciGround 0 *IntervalIndex "Import_function_from_file2")

yvalues
*tcl(DejFunkciGround 1 *IntervalIndex "Import_function_from_file2")
  ;

*EndIf
 
 
*If(IntvData(Ground_Accelerogram3,real)==1)

// Zapis funkce pro zemetreseni3
FUNCTION ID *Operation((IntervalIndex*10000000)+ 125000) 
  NAME "accelerogram3 for interval *IntervalIndex" 
  TYPE "CCMultiLinearFunction" REMOVE_ALL 
xvalues
*tcl(DejFunkciGround 0 *IntervalIndex "Import_function_from_file3")

yvalues
*tcl(DejFunkciGround 1 *IntervalIndex "Import_function_from_file3")
  ;

*EndIf