LISEQUIV.SPS
(Computes equivalence Scale LISEQ = .5 + (D4 - 1)*.25 IF (LISEQ GT 3) LISEQ = 3)

Note: User must specify the following variables on the keep line:

1) D4

ROUTINE:

COMPUTE LISEQ = .5 + (D4 - 1)*.25

IF (LISEQ GT 3) LISEQ = 3

/********************* END OF EQUIVALENCE ROUTINE *********************/