?? get_filename.f90
字號:
subroutine get_filename (fulpath, filname)!----------------------------------------------------------------------- ! ! Purpose: ! returns filename given full pathname!! Method: ! ! Author: Mariana Vertenstein! !-----------------------------------------------------------------------! $Id: get_filename.F90,v 1.1.12.1 2001/11/07 18:16:07 mvertens Exp $!-----------------------------------------------------------------------! ------------------------ arguments -------------------------------- character(len=*), intent(in) :: fulpath !full pathname character(len=*), intent(out) :: filname !full pathname! -------------------------------------------------------------------! ------------------------ local variables -------------------------- integer i !loop index integer klen !length of fulpath character string! ------------------------------------------------------------------- klen = len_trim(fulpath) do i = klen, 1, -1 if (fulpath(i:i) == '/') go to 10 end do i = 010 filname = fulpath(i+1:klen) returnend subroutine get_filename
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -