A two-state model of simple reaction time

SRT.C.D 21
I:
2: C
3:
il: C
S:
6:
7:
8:
9: 1000
10:
1 1:
12:
13:
SRT.C.D 22
I:
2: C
3:
il: C
5:
6:
7:
8:
9: 1000
10:
11:
12:
13:
SRr.C.D 23
I:
2: C
3:
il: C
5:
6:
7:
8:
9: 1000
10:
11:
12:
13:
- 155 -
SUBROUTINE DTANL7
DH1 EN SI ON I ST,H 100), X RTC 1(0)
CALL FL 7
REWIND 8
READ( 8) I STi1. XRT
1,.'RI TE< 6. 10(0)
FOR'IAT( IHI. 10X. 'DATA OF BLOCK 7'///
* IX.S('ITI RT(SEC) ').//>"
CALL DTAI')L0(ISTi'1.XRT)
RETUR.f\J
END
SUBROUTINE DTANL8
Dli1ENSION ISTM( 100),XRTC 1(0)
CIlLL FL8
RE\..JIND 8
READ( 8) I ST:-I. XRT
l,lRITE(6.1000) •
FOR.'1AT( IHI. leX. 'DATA OF BLOCK 8'///
* lX.S('ITI RT(SEC) ').//)
CIlLL DTANL0(ISTi1.XRT>
RETURN
END
SUBROUTINE DTANL9
DH1ENSION IST,H 1(0).XRT( 100)
CALL FL9
REWIND 8
READ( 8) I STM. X RT,
wm TE( 6. 10(0)
FOR,'1AT(IHI.10X.'DATA OF BLOCK 9'///
* IX.S('ITI RT(SEC) ').//)
CIlLL DTANL0
RETURN
END