Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://xmm.vilspa.esa.es/sas/5.4.1/doc/emsaplib/node4.html
Дата изменения: Fri Jan 10 22:19:33 2003 Дата индексирования: Sat Dec 22 09:21:36 2007 Кодировка: Поисковые слова: stars |
Subroutine name: addFilename
Aim: Write history line with the name of an input file, removing the directory
The routine declaration is:
SUBROUTINE addFilename(in_tab, filename, comment) ! in_tab : handle to the output table ! filename : name of the file ! comment : comment string to introduce file name type(BlockT), intent(in) :: in_tab character(len=*), intent(in) :: filename, comment