TR No.22 
@®SEQUENCE:0 8 
@JOB2673sTC31209ND 
®EQUIPs2#MTCOEOU02 
®EQUIPs3#MTCOEOU03 
@®FORTRANsL 2X 
PROGRAM MOD 
DIMENSION KK%70H2A%7002X%700O2FXLP%¥/70HsFREQ%/00»ZA%80H»SPK%700 
DIMENSION SPN% 700 
READ%60 5 LONF 
1 FORMAT%1I5a 
NFC#O 
Seal 
READ%S60920%ZA%KOs K#¥128C0 
2 FORMAT®%80RI14Q 
WRITE%612920%ZA%KO» K#1l»s800 
WRITE%612110 
11 FORMAT%1X»54H K ACOV SIP PERIOD FREQ SPK SF 
INa 
READ%3 s160KK%Ilo2A%IlOoXHI1OsFXLPHeIo 
16 FORMAT%1393F9~3n 
l#2 
3 READ%3 »40KK%IHsA%lO»sX%IOsFXLP%IOsFREQ*I4O 
4 FORMAT%1353F9e32F8.6n 
GO, TO; Sb 6E BORCKR%3 5 
6 1#161 
GO, oO) 3 
SV RRIE@ Soll atte 999999 
DOW Vs elton 
SPK% JO#312.102*X%Ju 
SPN%JH#SPK%JB/A%14O 
WRITE%61s105KK%JOsA%®IJB»X%¥IOeFXLP%¥IOsFREQ%IJHsSPK%IO»SPN%JO 
7 WRITE%2s100KK%JO »A%JO2X%JO oFXLP%JOsFREQ%IJO»SPK%IO»SPN%JIO 
10 FORMAT%1X21323F9e39F8e6:s2F10.3n 
ENDER Tet 2 
NFC#NFCE&1 
WRITE%615150 
15 FORMAT%IH1a 
TFSNFCeEQeNFO8 39 
8 REWIND -3 
REWIND 2 
B-10 
