Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://xmm.vilspa.esa.es/sas/7.0.0/doc/emsaplib/node4.html
Дата изменения: Wed Jun 28 23:42:47 2006 Дата индексирования: Sat Dec 22 09:38:29 2007 Кодировка: |
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