20 # define Fclose fclose
21 # define Ftell ftell64
22 # define Fseek fseek64
23 # define long_int long long int
25 # define Fopen fopen64
26 # define Fclose fclose
27 # define Ftell ftello64
28 # define Fseek fseeko64
29 # define long_int off64_t
32 # define Fclose fclose
33 # define Ftell _ftelli64
34 # define Fseek _fseeki64
35 # define long_int __int64
40 # define Fclose fclose
46 # define long_int long int
51 # ifdef FT_USE_LOWLEVEL_IO
55 # include <sys/stat.h>
60 int _ft_open(
const char* name,
int flag);
61 int _ft_close(
int fp);
63 int _ft_ungetc(
int c,
int fp);
64 char* _ft_gets(
char* buf,
int n,
int fp);
65 size_t _ft_read(
char* buf,
size_t n,
size_t m,
int fp);
66 size_t _ft_write(
const char* buf,
size_t n,
size_t m,
int fp);
67 size_t _ft_setbuf(
size_t bufsiz);
72 # define FT_rb _O_BINARY | _O_RDONLY
73 # define FT_wb _O_BINARY | _O_WRONLY | _O_CREAT | _O_TRUNC
74 # define FT_ab _O_BINARY | _O_WRONLY | _O_APPEND
75 # define FT_rbp _O_BINARY | _O_RDWR
76 # define FT_wbp _O_BINARY | _O_RDWR | _O_CREAT | _O_TRUNC
77 # define FT_tmp _O_BINARY | _O_RDWR | _O_CREAT | _O_TEMPORARY
78 # define FT_open _ft_open
79 # define FT_close _ft_close
80 # define FT_tell _telli64
81 # define FT_seek _lseeki64
82 # define FT_read(buf,n,m,f) _ft_read((char*)buf,n,m,f)
83 # define FT_write(buf,n,m,f) _ft_write((char*)buf,n,m,f)
84 # define FT_setbuf(n) _ft_setbuf(n)
85 # define FT_flush _commit
86 # define FT_getc _ft_getc
87 # define FT_ungetc _ft_ungetc
88 # define FT_gets _ft_gets
90 # define FT_int __int64
104 # define FT_rbp "rb+"
106 # define FT_wbp "wb+"
108 # define FT_tmp "wb+"
110 # define FT_open Fopen
112 # define FT_close Fclose
114 # define FT_tell Ftell
116 # define FT_seek Fseek
118 # define FT_read(buf,n,m,f) fread((void*)buf,n,m,f)
120 # define FT_write(buf,n,m,f) fwrite((void*)buf,n,m,f)
122 # define FT_setbuf(n) false
124 # define FT_flush fflush
126 # define FT_getc fgetc
128 # define FT_ungetc ungetc
130 # define FT_gets fgets
134 # define FT_int long_int
136 # define FT_FILE FILE*
real(dp), dimension(:,:), allocatable c
Definition: inverseModule.f90:39
real(dp), dimension(:,:), allocatable m
Definition: inverseModule.f90:38