proc Series_GM_Analyze { SeriesName Damping GM_Name_List dt { Model_Descp "" } } {  #Input Model  source "Model\0_Main.tcl"  #Mode Analyze !!!!!!  ProModeAnalyze_Proc 5  #Damping Ratio Define  Rayleigh_Proc 1 2 $Damping  #Gravity_Analysis  Gravity_Proc 10  #Mode Analyze !!!!!!  ProModeAnalyze_Proc 5  ##Time History LoadTag  set gmLoadCaseTag 1000  ##Foreach LoadCase Name  foreach GM_Name $GM_Name_List {    set direct_name "$SeriesName\$GM_Name"    #Create Directory    file mkdir $direct_name    #Define Recorder    Recorder_Proc $direct_name    #Ground Motion Analysis    set TimeCost [SeriesGroundMotionAnalysis $gmLoadCaseTag $GM_Name $dt $Model_Descp]    }    #Mode Analyze !!!!!!    ProModeAnalyze_Proc 5    #Update loadcase tag    set gmLoadCaseTag [expr $gmLoadCaseTag + 3]    #Remove old recorder    remove recorders    #Time back to Zero    loadConst -time 0.0  }  #Clear All  wipe All}