1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
module config implicit none character(1024)::template_directory character(1024)::database_filename character(1024)::description_filename contains subroutine load_configuration(filename) implicit none character(*), intent(in)::filename end subroutine load_configuration end module config