===================================================== SUBROUTINE TWOFOUR(A11,A12,A21,A22,F) COMMONS: SUBROUTINES USED: micromap-index Mon Jul 17 08:57:44 CEST 2017