*DECK ISSUE 
      PROC ISSUE ((GH), (I), (J), (K)); 
*CALL COMISSUE
