Searched defs:sub_a2 (Results 1 – 1 of 1) sorted by relevance
14 subroutine sub_a2(w, j) subroutine15 character*(*), intent(in) :: w local16 integer, intent(in) :: j local