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