===================================================== SUBROUTINE TRANS2(A,AI) COMMONS: SUBROUTINES USED: micromap-index Mon Jul 17 08:57:44 CEST 2017