blob: 2a129edb127473adf488f35f898090678046b260 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
#include "cctk.h"
module cctk_File
implicit none
interface
subroutine CCTK_CreateDirectory (ierr, mode, pathname)
implicit none
integer ierr
integer mode
character(*) pathname
end subroutine CCTK_CreateDirectory
end interface
end module cctk_File
|