subroutine aml_parser () implicit none print *, 'DUMMY AML_PARSER CALLED!!!!' call err_exit end subroutine