Aim: Initialization of the pattern library for EDUSOFT.
The F90 calling sequence is:
! patterns : input argument. Pattern library read from the CAL by a call like ! call CAL_getEventPatterns(patterns, eduThreshold) integer(kind=int8), dimension(:,:,:), pointer :: patterns ! edupat: output argument. Pattern library as used by edusoft routine. type(edu_pattern) :: edupat(edu_npat) call pat_init(patterns,edupat)