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