character*(MAX_LEN_FNAM) profilesfiles(50)
& profilesfiles
IL = ILNBLNK( profilesfiles(num_file) )
& profilesfiles(num_file)(1:IL)
& profilesfiles,
profilesfiles(num_file) = ' '
& profilesfiles(num_file)(1:IL),' ',prof_names(num_var), ' = ',