A two-state model of simple reaction time

I
I
SRTEXP 10
I:
2: C
3:
4: C
S:
6:
7:
8:
9: 1000
I 0:
II:
12:
13:
SRTEXP II
I:
2: C
3:
4: C
S:
6:
7:
8:
9: 1000
10:
I I:
12:
13:
SRTEXP 12
- 136 -
SUBROUTINE DTANL I
DI:1ENSION I ST:1( 100),XRT( 100)
CALL FL I
REWI ND 8
READ( 8) I STM, X RT
,mITE(6,1000)
FOR:-1AT( IHI, 10X, 'DATA OF BLOCK 1'1/1
* IX,S('ITI RT(SEC) '),11)
CALL DTANL 0( I STM, XRT)
RETURN
END
SUBROUTINE DTANL2
DI:1ENSION ISTM( 100),XRT( 100)
CflLL FL 2
RE'·!I ND 8
READ(8) I STt'l,XRT
WRITE(6,1000)
FOR.'1AT( IHI, 10X, 'DATA OF BLOCK 2'111
* IX,S('ITI RT(SEC) '),11)
CALL DTANL 0( I STM, XRT>
RETURN
END
I: SUBROUTINE DTANL3
2: C
3:
4: C
S:
6:
7:
8:
9 :
10:
II:
12:
13:
DIMENSION
ISTM( 100),XRT< 1(0)
CALL FL3
REWIND 8
READ(8) I STM,XRT
WRI TE( 6, 1000)
1000, FOR;1AT( IHI, 10X, 'DATA OF BLOCK 3'111
* IX,S('ITI RT(SEC) "),11)
CALL DT ANL 0( I STM, X RT)
RETURN
END