Example3.3.tcl
needed files:
File:ReadSMDFile2.tcl tcl procedure to read original Peer strong motion database records
File:ReadNGAFile.tcl tcl procedure to read current peer strong motion database (PEER NGA)
ARL360.AT2 a file from original Peer Strong Motion Database
A-HCH181.AT2 a file from the current Peer Strong Motion Database (Peer NGA Database)
<tcl>Example3.3.tcl</tcl>