... path_len CHARACTER(:), ALLOCATABLE :: path path_len = pathconf('. ... 'current directory is ', trim(path) END IF ELSE CALL perror('') END IF END
確定! 回上一頁