===================================================== SUBROUTINE PROD2(C,A,B) COMMONS: SUBROUTINES USED: micromap-index Mon Jul 17 08:57:43 CEST 2017