module test_def

    logical :: have_infile = .false. 

CONTAINS

SUBROUTINE init_test_def

    print *, "In init_test_def"
    print *, "test_def ", have_infile


RETURN
END SUBROUTINE init_test_def

end module test_def