There are mismatched arguments in the call to PPADD in COMPB and in the calls to CPROD and CPRODP from BLKTR1. In the first case arg 5 (B(J1)) is a real and should be complex. Similarly arg 2 to CPRDCT is of type complex but the provided argument is real.

To fix the above appears to require a COMPLEX w/space array to be provided to store information which is then discarded.